|
發表於 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 |
|