解析 – Vb6：分隔制表符分隔文本

发布时间：2020-12-17 07:17:33 所属栏目：百科来源：网络整理

导读：我有一个文件,有几千行,几列用标签分隔我想要做的是逐个循环,将列放入一个数组,以便我可以将它们单独放在另一个应用程序中,然后移到下一行.不幸的是我得到了这个： Open mytextfile.txt For Input As #FileHandle Do While Not EOF(FileHandle) Line Input #

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

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

那么我将如何将单个阵容分解为数组呢？

解决方法

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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!