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
'后面就可以对数组进行处理了
