vb读取顺序文件数据
'如果文本文件不是非常大，如下代码供参考（VB6环境）
Private Sub Command1_Click()
Dim AA(), A1, A2, fs, f, s, i, j, l, k
'读取文本文件内容。假如文本文件名为：file.txt
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("file.txt", 1, False, -2)
s = f.readall
f.Close
Set fs = Nothing
'获得文本各行内容。
A1 = Split(s, vbCrLf)
'统计行数，并去除行中多余的分隔符（这里按空格符进行，如为其它分隔符，Split函数中替换）
l = 0
For i = 0 To UBound(A1)
If A1(i) <> "" Then
A2 = Split(A1(i), " ")
s = ""
For j = 0 To UBound(A2)
If A2(j) <> "" Then
If s = "" Then
s = A2(j)
Else
s = s & " " & A2(j)
End If
End If
Next
A1(i) = s
l = l + 1
End If
Next
'将列内容保存至数组（按7列进行）
ReDim AA(l - 1, 7 - 1)
k = 0
For i = 0 To UBound(A1)
If A1(i) <> "" Then
A2 = Split(A1(i), " ")
For j = 0 To 7 - 1
AA(k, j) = A2(j)
Next
k = k + 1
End If
Next
'演示。输出各列内容
Debug.Print "共"; l; "行"
For i = 0 To 7 - 1
For j = 0 To l - 1
Debug.Print " "; AA(j, i);
Next
Debug.Print
Next
End Sub