结婚为什么要彩礼:文本文件装入文本到 ListBox

来源:百度文库 编辑:中财网 时间:2024/04/29 09:23:29
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

速度就会快很多。