Преобразование строки в числа

[KPEATOP]

Доброе утро всем!
Имеется строка :
stroka= ".1120E+02 .7415E+02 .2872E+03 .5392E-05"
Не помню как преобразовать ее в четыре числа, чтобы стало n1=.1120E+02, n2=.7415E+02, n3=.2872E+03, n4=.5392E-05
Можно конечно использовать цикл от 1 до len(stroka) и рассматривать при помощи mid() каждый элемент, например, когда появиться пробел, брать все прошедшие элементы и присваивать числу, но это долго и нудно. Я помню, что есть какой то способ сразу присвоить из строки 4 значения.

[alibek]

Не помню как преобразовать ее в четыре числа

Как ты можешь помнить то, о чем не знаешь?

Я помню, что есть какой то способ сразу присвоить из строки 4 значения.

Нет такого способа.

[MIT]

Split(" ") ?

[KPEATOP]

Неужели нет такого способа. Значит мне память изменяет. А при помощи Split как ?

[Viper]

Код: Выделить всё

Dim arItems() As String
arItems = Split(s, " ")

Как то так, а потом каждый элемент преобразовываешь в число.

[iGrok]

Неужели нет такого способа. Значит мне память изменяет. А при помощи Split как ?

В VB нет такого способа. Может, ты его с сишным sscanf перепутал..

[zHackLeX]

По-видимому, автор хочет вот этого.
пусть Values = ".15415e-2 .8424e+1 .13411e-2"

Код: Выделить всё

    StringValues = Split(Values, " ")
    ReDim DoubleValues(LBound(StringValues) To UBound(StringValues))
    For i& = LBound(StringValues) To UBound(StringValues)
        DoubleValues(i) = Val(StringValues(i))
    Next


Массив DoubleValues() будет содержать значения типа Double,
если строка Values действительно была набором чисел, разделённых
пробелами.

ЗЫ. Конечно, решение очевидно, но вдруг ещё нужно...