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

来源：百度知道 编辑：UC知道 时间：2024/09/28 06:50:04
data.txt
1153.17 116.60
1162.72 122.60
1172.37 126.50
1182.01 128.90
1191.63 129.90
1201.25 126.80
1210.81 125.20
1220.58 125.90
1230.21 130.80
1239.81 132.10
1249.52 132.70
1259.17 132.80
1268.80 132.50
1278.38 133.30
1287.96 134.50
1297.59 135.70
1307.22 135.20
1316.80 134.80
1326.44 134.70
1336.08 134.70
1345.68 134.30
1355.28 134.20
1364.90 134.00
1374.51 134.00
1384.14 134.10
1393.67 134.10
1403.32 133.10
1412.92 131.60
1422.55 130.50
vb6.0
1.读取这两列数据 并把数据第一，二列赋给a（i），b（i）数组
2.把a（i），b（i）作为x y点画出坐标图
请问高手怎么做？主要是第一个问题 很着急 在线等 去部分属都给您

那就给你第一部分的吧
Dim a(), b(), n As Long
Open "d:\data.txt" For Input As #1
n = 0
While Not EOF(1)
n = 1
Line Input #1, aa
ReDim a(n)
ReDim b(n)
a(n) = Trim(Mid(aa, 1, InStr(aa, " ")))
b(n) = Trim(Mid(aa, InStr(aa, " "), Len(aa)))
MsgBox a(n) & "|" & b(n)
Wend
Close #1