请问如何把下面的.txt文件中的数据读入一个3*n的数组中啊，(n为行数)

Question

10 10 12 
12 15 13     
13 17 45   
15 21 23    
17 28 24    
18 36 23    
21 45 25    
25 67 23    
27 89 12
中间以空格格开。

Answer 1

Private Sub Command1_Click()
Dim b() As Byte, x() As String, s() As String, i As Integer, j As Integer, max As Integer
Open "c:\1.txt" For Binary As #1
ReDim b(LOF(1) - 1)
Get #1, , b
Close #1
x = Split(StrConv(b, vbUnicode), vbCrLf)
Erase b
max = UBound(x)
ReDim s(2, max)
For i = 0 To 2
For j = 0 To max
s(i, j) = Split(x(j), " ")(i)
Debug.Print s(i, j)
Next
Next
Erase x
End Sub