Текстовый файл

[oskolok_vatbI]

В текстовом файле данные отделены друг от друга пробелами, типа:
**.** *.* *.*
я хочу разделить его так, чтобы мне в разные текстбоксы разные колонки попадали, но количесво пробелов разделителей может быть разным. Как мне привести любое количество пробелов к одному чтобы потом поделить данные функцией Split ? Спасибо.

[BV]

А зачем? Дели Split'ом, а потом режь Trim'ом.

[oskolok_vatbI]

Не могу понять как Split`ом делить если много колонок и разное количество пробелов. Вот как поделить строку "Иванов Иван Иванович" - я понял, а тут не могу. Помогите пожалуйста.

[BV]

Даже Trim'ом резать не надо...

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

Option Explicit

Private Const MY_DATA As String = " one   two  three      four   five " & _
                                  "six  seven     eight nine    ten     "

Private Sub Form_Load()
    Call Foo
End Sub

Private Sub Foo()
    Dim strData() As String
    Dim i As Long
    strData = Split(MY_DATA, Chr$(32))
    For i = LBound(strData) To UBound(strData)
        If Len(strData(i)) Then
            Debug.Print strData(i) & vbTab & Len(strData(i))
        End If
    Next i
End Sub

[oskolok_vatbI]

Большое спасибо.