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

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

举报该问题

其他回答

第1个回答 2013-10-30

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本回答被网友采纳

第2个回答 2019-10-16

你可以先从
环境变量
中获取桌面的地址，这样就不会随着机器的不同而造成
程序
的影响了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
'直到读完
关闭文件

第3个回答 2013-10-30

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

第4个回答 2013-11-05

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

相似回答

如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里答：先添加commondialog控件到窗体，改名称CDL1，加按钮Cmd1，文本框TexT1..Private Sub Cmd1_Click()Dim yy$, FF&(10)Text1 = ""CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDL1.FileName = ""CDL1.ShowOpen On Error Resume Next If CDL1.FileName = "" Then Exit...

用vb6.0,获取两个txt文本内容,然后把两个文本里相同一数据保留下来并存...答：Print #3, x Close #3 假设文本 a 和 b 分别位于 C:\temp\a.txt 和 C:\temp\b.txt，合并后的文本位于 C:\temp\x.txt。代码先读取两个文本中的内容，然后将每个文本的行分别存储到数组 arrA 和 arrB 中，接着遍历数组 arrA 和 arrB，找到相同的三位数，将其存储到变量 x 中，并在 ...

用vb6.0怎么连接一个文本文档?答：显示文本文档的内容,一般用文本框来实现,当然,如果是比较规则的文本,也可以用表格控件,列表框控件等来实现,下面,以文本框为例,演示如何显示文本文档的内容 '运行之前 , 请先在窗体上添加一个文本框,'并设置Multiline属性为True,ScrollBars属性为True Private Sub Form_Load()Dim S1 As String, S2 A...

VB6.0中如何实现逐行读入文本文件?答：VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。以下代码是可以提取文本文件任何一行内容的：Private Sub Command1_Click() Dim strWj As String Dim strj() As String Dim...

VB如何把文件内容显示在文本框中?答：VB6.0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中。TextBox 控件有时也称作编辑字段或者编辑控件，显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。为了在 TextBox 控件中显示多行文本，要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条，那么...

vb 怎样打开文件并把文件内容显示在文本框答：文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码：1、添加必要的组件（文本框、按钮）2、设置属性：3、编写按钮的响应代码：代码如下：Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\test.txt" For Input...

VB6.0中 如何读取一个TXT中特定的一行字?答：dim Str as string Open "D:\a.txt" For Input As #1 Do Until EOF(1)Line Input #1,Str '读出一整行 if left(Str,1)="2" then msgbox "找到一行啦，其结果是=" & Str '判断左边是否是2，是就显示 Loop Close #1 更详细的还可以参考我的以下回答《关于如何读取TXT文件》：http...

VB6.0读取TXT的问题答：TextLine Open "TESTFILE" For Input As #1' 打开文件。Do While Not EOF(1)' 循环至文件尾。Line Input #1, TextLine' 读入一行数据并将其赋予某变量。Debug.Print TextLine' 在调试窗口中显示数据。Loop Close #1' 关闭文件。他是自动读过第一行，指向第二行的，所以顺序读下去就可以了 ...

VB6.0读取TXT内容答：文本文件：Option Explicit Private Sub Command1_Click()Dim SZtxt() As String Dim d() As String Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 n = n +...

大家正在搜

JAVA读取中文TXT文件 linux读取txt文件内容 java读取txt文件内容 java读取txt文件并输出 c++读取txt文件 java读取txt文件 java怎么读取txt文件 c语言怎样读取txt文件 c语言逐行读取txt文件