Question

关于将指定路径下txt文件逐行导入vb6.0中listbox的问题

现有在D:\temp下的a.txt
txt文件大概有1000行左右
需要逐行导入到VB6.0中的LISTBOX 求代码

具体是想点击COMMAND1后将TXT读取到名为LISTL的LISTBOX控件中
求高人帮忙写代码

Answer 1

在按钮单击事件中添加以下代码
Dim StrTemp as string '声明字符串型变量
Open "d:\temp\a.txt" For Input As #1 '打开已知文件
Do While Not EOF(1) '循环，当该文件不是最后一行时
Line Input #1, Strtemp '整行输出数据 并赋值给变量StrTemp
List1.additem Strtemp '在列表框List1中增加数据 StrTemp
loop
close #1 '关闭文件

Answer 2

上面的代码有点问题
Private Sub Command1_Click()
Dim S As String
Open "d:\temp\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S
List1.AddItem S
Loop
Close #1
End Sub

Answer 3

Private Sub Command1_Click()
Dim S As String
Open "d:\temp\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S
ListL.AddItem S
Loop
Close 1
End Sub