Question

vb如何从文本文件中按列读取数据到数组中，且文件行数未知？

文本文件的格式大致如图，如何在行数不清楚的情况下将每列数据读入事先定义好的数组中，而这些数组又该怎么定义呢？

Answer 1

Dim A(), B(), C(), D(), E() '数据类型不详，可以不声明数据类型，首先声明动态数组
Dim X As Integer, Y As Integer
Open "C:\ABC\123.txt" For Input As #1    '读取123.txt文本文件的数据
If Not EOF(1) Then
X = X + 1    '首先得到文本文件的总行数
End If
Close #1
ReDim A(1 To X), B(1 To X), C(1 To X), D(1 To X), E(1 To X)   '定义数组下标
Open "C:\ABC\123.txt" For Input As #1
If Not EOF(1) Then
Y = Y + 1
Input #1, A(Y), B(Y), C(Y), D(Y), E(Y)    '将数据读入数组
End If
Close #1
    '后面就可以对数组进行处理了