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.