怎样把文本文件的内容读入ListBox控件中?

来源：百度知道 编辑：UC知道 时间：2024/05/28 19:52:09
如果文本内容如下:
"123123"
"asdfgh"
"asdf"
如何读入并且自动分列呢?

Private Sub Command1_Click()
Open "d:\mydate.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, st
List1.AddItem st
Loop
Close #1
End Sub

呵呵.楼上的方法是正确的..不过实际中,经常文本文件末尾或是中间有空行, 我每次都是加了一条判断呵:

Private Sub Command1_Click()
Open "d:\mydate.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, st

if st<>"" then List1.AddItem st

Loop
Close #1
End Sub