VB 读取data.txt文件中2列数据到数组a（i），b（i）.....e(i)，急，在线等！！！

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:03:31
VB 读取data.txt文件中2列数据到数组a（i），b（i）.....e(i)，急，在线等！！！数据为：
1171.170 0.000 0.000 0.000 0.000
1173.170 0.000 0.000 0.000 0.000
1175.170 0.000 0.000 0.000 0.000
1177.170 0.000 0.000 0.000 0.000
1179.170 0.000 0.000 0.000 0.000
1187.170 0.000 0.000 0.000 0.000
1189.170 0.742 37.117 5.027 1.628
1191.170 4.014 200.686 11.688 1.784
1193.170 0.958 47.909 5.711 2.219
1195.170 0.763 38.164 5.097 1.796
1197.170 0.330 16.519 3.353 1.625
1199.170 2.617 130.856 9.438 1.364
1201.170 0.348 17.396 3.441 1.766
1203.170 0.868 43.415 5.436 2.128
主要把第一列赋值给a(i),第二列赋值给b（i）依次下去道e（i）
请问高手如何做。
是用vb6.0读取text中的4列数据 赋值给数组，题目上写错了

请高手们 帮解决一下

答案

Dim A() As Variant
Dim B() As Variant
Dim C() As Variant
Dim D() As Variant
Dim E() As Variant
Dim Num As Integer
Open App.Path & "\Data.OU2DAT" For Input As #1
'Open "D:\data.txt" For Input As #

说清楚OK
文件操作。。。
Option Explicit
Dim A() As Variant
Dim B() As Variant
Dim C() As Variant
Dim D() As Variant
Dim E() As Variant
Dim Num As Integer
Private Sub Command1_Click()
Open "D:\data.txt" For Input As #1
Do While Not EOF(1)
Num = Num + 1
ReDim Preserve A(Num)
ReDim Preserve B(Num)
ReDim Preserve C(Num)
ReDim Preserve D(Num)
ReDim Preserve E(Num)
Input #1, A(Num), B(Num), C(Num), D(Num), E(Num)
Loop
Close #1
Print Num '这里是用来看录入的行数，你自己看一下是不是135行
End Sub