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

澄清：我会避免使用变体并使用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