Vb6：分隔制表符分隔的文本答案

【问题标题】：Vb6: Separating Tab Delimited TextVb6：分隔制表符分隔的文本
【发布时间】：2010-09-22 10:52:16
【问题描述】：

我有一个文件有几千行和几列用标签分隔我想要做的是逐个循环，将列放入一个数组中，以便我可以将它们单独放在另一个应用程序中，然后继续下一行。不幸的是，我做到了这一点：

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

那么我将如何将单个行分解为数组

【问题讨论】：

标签： parsing vb6 csv

【解决方案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

【讨论】：

【解决方案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。

【讨论】：