деление переменной

[Djars]

как разбить текстовую переменную в формате V=" a b c " на три разных переменных "a" "b" "c"? количество пробелов в переменной V может быть различное, но всегда там три значения. a, b и с - неизвестны заранее, это какие-то значения, каждый раз разные

Заранее спасибо)

[uhm]

Вопрос на миллион долларов: КАК ОПРЕДЕЛИТЬ, где у тебя кончается "a" и начинается "b"?

[lord0n]

предлагаю собрать консилиум и посоветоваться с товарищами
для решения столь сложного вопроса времени потребуется где то 1 год
кто будет ответственным за написание докторской по столь важному вопросу ?

а если серьезно: split и trim те поможет

[uhm]

Вот если там разное число пробелов, то сплит может не помочь. Я потому и спросил...

[skiperski]

Странно, никто не отвечает. Тогда можно я с ноги пробью?

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


Dim V As String
Dim arr() As String

V = "      a          b               c         "

V = Trim$(V)
Do While (InStr(1, V, "  "))
    V = Replace(V, "  ", " ")
Loop

arr = Split(V)

Debug.Print "_"; arr(0); "_"
Debug.Print "_"; arr(1); "_"
Debug.Print "_"; arr(2); "_"


[uhm]

Я понимаю фразу "количество пробелов в переменной V может быть различное" в более широком смысле: а вдруг там " а а b c c c c c c"?
Хотя, скорее всего, ты прав, чел имел в виду именно это.

[lord0n]

можно так:

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


Dim f(2)
b = -1
v = " a          b        c "
a = Split(v, " ")

For x = 0 To UBound(a)
If a(x) <> "" Then
b = b + 1
f(b) = a(x)
End If
Next x


наприсано на каленке, поэтому не знаю работает или нет

[Djars]

Странно, никто не отвечает. Тогда можно я с ноги пробью?

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

Dim V As String
Dim arr() As String

V = "      a          b               c         "

V = Trim$(V)
Do While (InStr(1, V, "  "))
    V = Replace(V, "  ", " ")
Loop

arr = Split(V)

Debug.Print "_"; arr(0); "_"
Debug.Print "_"; arr(1); "_"
Debug.Print "_"; arr(2); "_"


в Excel не работает((
мне эта функция нужна для следующего:
есть значение в ячейке вида: "количество_____цена_____сумма" "_" - это я так тут пробел обозначил, а хотелось бы с помощью функции разделить на три разных переменных "количество", "цена", "сумма".


на вот этом месте "arr = Split(V)" выдает ошибку, что неправильный формат параметра(

[skiperski]

в Excel не работает((

Странно, только что проверил - всё работает. Excel 2000

Попробуй заменить

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

Dim arr() As String

на

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

Dim arr As Variant

Или вызывать Split с явным параметром

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

arr = Split(V, " ")

[Djars]

в Excel не работает((

Странно, только что проверил - всё работает. Excel 2000

Попробуй заменить

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

Dim arr() As String

на

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

Dim arr As Variant

Или вызывать Split с явным параметром

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

arr = Split(V, " ")

у меня excel 2003, ругается на синтаксис Split, даже при явном прописании параметра, говорит, что либо неправильное число аргументов, либо параметр задан неверно.

[skiperski]

Ну прочитай в хелпе, чего ему там надо. У меня 2003 нет.