Question

VB6.0中，如何实现读取TXT文件中的内容并在VB上显示出来？

创建AcitveX控件，在其中添加一个ListBox 我需要实现，VB自动读取桌面上某TXT文件中的所有内容，并显示在ListBox中，怎么实现呢？（而这个TXT文件中的内容是随时都可能变化的，每个人电脑桌面路径也有可能不同） 先谢谢各位大侠了

Answer 1

Option ExplicitPrivate Sub Form_Load()

Dim FileNo As Integer
Dim PathName As String, FileName As String
Dim tmp As String

Me.Show

PathName = Environ("USERPROFILE") & "\桌面\"
FileName = "1.txt"

On Error Resume Next

FileNo = FreeFile

Open PathName & FileName For Input As FileNo

List1.Clear
Do While Not EOF(FileNo) ' 循环至文件尾。
Line Input #FileNo, tmp ' 读入一行数据并将其赋予某变量。
List1.AddItem tmp ' 在立即窗口中显示数据。
Loop Close

End Sub

Answer 2

你可以先从
环境变量
中获取桌面的地址，这样就不会随着机器的不同而造成
程序
的影响了str
=
Environ("USERPROFILE")
&
"\桌面\"
'获取桌面路径file=str
&
"\YourTxt.txt"
'这里是你要读取的txt
文件名
list1.clear
'先清空列表框open
file
for
input
as
#1
'打开这个文件开始读内容do
while
not
eof(1)line
input
#1,s
'读取一行给s
list1.AddItem
s
把s添加到列表框loopclose
#1
'直到读完
关闭文件

Answer 3

主要用的函数，filefree, open,等等。

Answer 4

http://down.51cto.com/data/999952