装入文本文件的文本到listbox,一行为一个item,通常用的方法是:
Open filename For Input As #1
Do Until EOF(1)
Line Input #1, strTemp
If Trim(strTemp) <> "" Then
List1.AddItem strWordsItem
End If
Loop
Close #1
这种方法在文件大的时候速度慢。
改进的方法:
Dim strtemp As String
Dim strT As Variant
Open filename For Binary As #1
strtemp = Input$(LOF(1), 1)
Close #1
strT = Split(strtemp, Chr(13))
Dim i As Long
For i = LBound(strT) To UBound(strT)
if trim(strT)<>"" then
ListWords.AddItem strT(i)
end if
Next i
速度就会快很多。
|