Option Explicit Dim s() As String Private Sub Command1_Click() '顺序读读取 Open "e:\test.txt" For Input As #1 Dim s As String List1.Clear Do While Not EOF(1) Input #1, s List1.AddItem s Loop Close #1 End SubPrivate Sub Command2_Click() '二进制读取 Open "e:\test.txt" For Binary As #1 Dim b As Byte, s As String List1.Clear Do While Not EOF(1) Get #1, , b s = s + Chr(b) If b = 10 Then List1.AddItem s s = "" End If Loop Close #1 End Sub
但是读顺序文件时,用string效率最高,
读固定格式的记录文件时,用random效率最高.
Dim s() As String
Private Sub Command1_Click() '顺序读读取
Open "e:\test.txt" For Input As #1
Dim s As String
List1.Clear
Do While Not EOF(1)
Input #1, s
List1.AddItem s
Loop
Close #1
End SubPrivate Sub Command2_Click() '二进制读取
Open "e:\test.txt" For Binary As #1
Dim b As Byte, s As String
List1.Clear
Do While Not EOF(1)
Get #1, , b
s = s + Chr(b)
If b = 10 Then
List1.AddItem s
s = ""
End If
Loop
Close #1
End Sub