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

澄清一下:我会避免使用 Variants 并使用 vbTab。