Vb6: Разделительная вкладка с разделителем

Question

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

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

Так как я пошел бы о разрыве отдельной линии вверх в массив

Answer 1

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

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 

Answer 2

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 

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