我在E:\test.txt文件内存放着两列数据，例如：

321     是你
265     得力喔喔
还行    594好ihi
461     木木米
……    ……

【补充说明下，数据每行都是成双的，以空格做为一个数据的分界，空格数量不固定，每个数据的长度也不固定。这文件内容大于5000行，不过每行都是两个数据】
现在我想把第一列数据{321,265,还行,461,……}放到数组a（i），第二列数据放到数组b（i）。
 
请有心人帮忙，最好详细点，能加注说明，非常感谢。

[[it] 本帖最后由 h80322285 于 2008-9-23 22:22 编辑 [/it]]

你先弄清楚怎么读一行数据。

i=i的初值
Dim s,Arr ' s是字符串，arr是字符串数组
While 文件未读完
   s=读入一行
   While Instr(s,"  ")>0 ' 使s中只有一个空格
     s=Replace(s,"  "," ")
   Wend
   Arr=Split(s," ") ' Arr是一个2个元素的数组
   a(i)=Arr(0)
   b(i)=Arr(1)

   i=i+1
Wend

Private Sub Command12_Click()
    Dim a() As String
    Dim b() As String
    Dim i As Integer
   
    txtTest.Text = ""
    i = 1
   
    Open "c:/TEST.TXT" For Input As #1
   
    On Error GoTo h
    Do While Not EOF(1)
        
        ReDim Preserve a(i)
        ReDim Preserve b(i)
        Input #1, a(i), b(i)
        
        i = i + 1
    Loop
h:
    Close #1
   
    For i = 1 To UBound(a)
        txtTest.Text = txtTest.Text & a(i) & "," & b(i) & vbCrLf
    Next
   
'文本内容格式:
'aaa,bbb
'ccc,ddd
End Sub

强人。我收藏了。。。。。。。。。。。。。。