快速从文本文件装入文本到 ListBox

领测软件测试网

　　 
　　装入文本文件的文本到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

速度就会快很多。

文章来源于领测软件测试网 https://www.ltesting.net/