Parsing Vb6:分隔制表符分隔的文本
我有一个文件,有几千行和几列,用制表符隔开。我想做的是逐个循环,将列放入数组中,这样我就可以将它们分别放在另一个应用程序中,然后移到下一行。不幸的是,我已经做到了这一点:Parsing Vb6:分隔制表符分隔的文本,parsing,vb6,tab-delimited,Parsing,Vb6,Tab Delimited,我有一个文件,有几千行和几列,用制表符隔开。我想做的是逐个循环,将列放入数组中,这样我就可以将它们分别放在另一个应用程序中,然后移到下一行。不幸的是,我已经做到了这一点: Open mytextfile.txt For Input As #FileHandle Do While Not EOF(FileHandle) Line Input #FileHandle, IndividualLine StringToBreakup = IndividualLine Loop 那么,如何使用sp
Open mytextfile.txt For Input As #FileHandle
Do While Not EOF(FileHandle)
Line Input #FileHandle, IndividualLine
StringToBreakup = IndividualLine
Loop
那么,如何使用split命令将单个行拆分为一个数组呢
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
澄清一下:我会避免使用变体,而使用vbTab
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