G
Guest
имеется строка objtxt:
#Кольцевой шов 1 1 1 -1 1800 1800 false -1 0 0 0 40
#Кольцевой шов 2 2 1 1 2000 3800 false -1 0 0 0 40
#Люк 3 3 2 -1 1200 1200 true -2 -35 55 240 28
#Штуцер 4 4 -2 2000 16000 true -2 0 90 110 24
Необходимо считать 2е,5е,6е,9,10 и 11е цифры после слов. Вот такое решил написать:
Ругается Subscript out of range(error 9) и указывает на typ.
Как я понял про индекс ругается, сделал вот так:
Тогда тычет туда же, но говорит type mismatch
Что делать?) где ошибка?? подскажите пожалуйста.
#Кольцевой шов 2 2 1 1 2000 3800 false -1 0 0 0 40
#Люк 3 3 2 -1 1200 1200 true -2 -35 55 240 28
#Штуцер 4 4 -2 2000 16000 true -2 0 90 110 24
Необходимо считать 2е,5е,6е,9,10 и 11е цифры после слов. Вот такое решил написать:
Код:
Dim element as variant
Dim typ as integer
For Each element In Split(objtxt, "#")
Dim mas() As String
mas() = Split(element)
Typ = CInt(mas(2))
call proc
Next
Ругается Subscript out of range(error 9) и указывает на typ.
Как я понял про индекс ругается, сделал вот так:
Код:
For Each element In Split(objtxt, "#")
Dim mas() As String
mas() = Split(element)
Redim mas(11)
Typ = CInt(mas(2))
call proc
Next
Тогда тычет туда же, но говорит type mismatch
Что делать?) где ошибка?? подскажите пожалуйста.