Question

用VB6.0读取TXT文本文件的内容

最近刚开始学习用VB6.0，想实现读取TXT文本文件的内容，文件格式是这样的：
时间单位:mS, 转换单位: 毫伏
Index Tims AI00 AI01 AI02
0 0.00000 954.59 1257.32 1031.49
1 3.00300 954.59 1259.77 1035.16
2 6.00601 955.81 1257.32 1031.49
3 9.00901 957.03 1258.54 1032.71
... ... ... ...
在文件的开头有一些如：index、time...等，我想去除他们，只把下面的数据存成数组用于后期使用，分数不多 请高手们帮帮啊
网上我没找到现成的例子，知道写代码很麻烦，麻烦高手能不能给指点一下啊，我用的这个方法
Open fpath For Input As #1 '取TEXT1里的文件路径
While Not EOF(1)
ReDim Preserve a11(i), tt(i), a12(i), a13(i), a14(i), d1(i), d2(i), d3(i)
Input #1, a11(i)
Input #1, tt(i)
Input #1, a12(i)
Input #1, a13(i)
Input #1, a14(i)
i = i + 1
Wend
Close 1
但是必须把文件开头的注释去掉才可以实现，像这样的数据格式：
0 0.00000 954.59 1257.32 1031.49
1 3.00300 954.59 1259.77 1035.16
... ... ... ...

Answer 1

Dim fileName As String
Private Sub Command1_Click() '单击添加
'将文本框中的信息添加到列表框中
Dim i As Integer
With ListView1.ListItems.Add()
.Text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
Next i
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
Dim tpList As ListItem
'保存数据
Open fileName For Output As #1
For Each tpList In ListView1.ListItems
Print #1, tpList.Text
For i = 1 To 4
Print #1, tpList.SubItems(i)
Next i
Next tpList
Close #1
End Sub

Answer 2

1、写代码麻烦
2、网上肯定能搜到现成的
3、所以没人回答