|  | 
 
 發表於 2005-5-3 16:24:43
|
顯示全部樓層 
| Private Sub cmdinput_Click() lst1.Clear
 lst2.Clear
 lst3.Clear
 lst4.Clear
 lst5.Clear
 lst6.Clear
 Open App.Path & "123.txt" For Input As #1
 
 Do Until EOF(1)
 Input #1, a, b, c, d, e, f
 lst1.AddItem a
 lst2.AddItem b
 lst3.AddItem c
 lst4.AddItem d
 lst5.AddItem e
 lst6.AddItem f
 Loop
 
 Close #1
 
 
 End Sub
 | 
 |