parsing - 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