Question

新手提问：如何用VB编程将*.txt文件中的数据读入到二维的数组？

比如说有一个文件1.txt，内容是：
1 0.6
2 0.3
4 0.7
。
。
。
有多少行是不知道的，将其读到一个二维的数组中。
要求第一列放在下标1，第二列放在下标2.
多谢，急需要!!!
再以二维数组的下标一为横轴，以数组的下标二为纵轴，画出折线图

Answer 1

Private Sub Command1_Click()
Dim s() As String, r() As String, i As Long, t As String
Open "c:\1.txt" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, t
Do While InStr(t, " ")
t = Replace(t, " ", " ")
Loop
r = Split(t, " ")
If UBound(r) = 1 Then
ReDim Preserve s(1 To 2, i)
s(1, i) = r(0)
s(2, i) = r(1)
i = i + 1
End If
Loop
Close #1
For i = 0 To UBound(s, 2)
Print s(1, i), s(2, i)
Next
End Sub