Vb6: Разделение табуляции с разделителями

Question

У меня есть файл с несколькими тысячами строк и несколькими столбцами, разделенными вкладками. Что я хотел бы сделать, так это циклически проходить по каждому из них, поместить столбцы в массив, чтобы я мог поместить их в другое приложение по отдельности, а затем перейти следующая строка. К сожалению, я дошел до этого:

Open mytextfile.txt For Input As #FileHandle
 Do While Not EOF(FileHandle)
 Line Input #FileHandle, IndividualLine
 StringToBreakup = IndividualLine
Loop

Итак, как бы я разбил отдельную строку на массив

Answer 1

Dim str() as String

Open mytextfile.txt For Input As #FileHandle
    Do While Not EOF(FileHandle)
    Line Input #FileHandle, IndividualLine
    str = Split(IndividualLine, vbTab)
    Debug.Print str(0)  'First array element
Loop

Чтобы уточнить: я бы избегал использования Variants и использовал бы vbTab.

Answer 2

Используйте команду разделения

Dim StringArray as Variant

Open mytextfile.txt For Input As #FileHandle
 Do While Not EOF(FileHandle)
 Line Input #FileHandle, IndividualLine
 StringToBreakup = IndividualLine

 StringArray = Split(StringToBreakup, CHR(9)) 

 Process array here...

Loop