Question

vb读取文件夹中所有的txt文件

如何用VB读取多个txt文件并输出到textbox中，逐步读取获得文件路径的txt里面的内容，逐步添加到textbox中，求代码，VB6.0的版本

Answer 1

使用VB内建函数读取文本文件

1/3

双击Command1添加如下代码

Private Sub Command1_Click()

    Dim strFile     As String

    Dim intFile     As Integer

    Dim strData     As String

    strFile = "c:\学生成绩.txt"

    intFile = FreeFile

    Open strFile For Input As intFile

    strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

    Debug.Print strData

    Close intFile

End Sub

2/3

运行代码读取文件

按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

查看剩余1张图

3/3

关键代码说明

intFile = FreeFile：获取一个文件句柄

Open strFile For Input As intFile ：打开文件

FileLen(strFile) ：获取文件内容字节大小

InputB：读取文件内容字节流

StrConv：将字节流转换为Unicode字符串

Debug.Print strData：将字符串内容输出到立即窗口

Close intFile：关闭文件句柄

使用FileSystemObject读取文本文件

1/3

添加Microsoft Scripting Runtime引用

点击Project菜单，再点击下拉菜单中的Reference，打开引用对话框，浏览找到Microsoft Scripting Runtime引用，选择后点确定按钮。

查看剩余1张图

2/3

双击Command2添加如下代码

Private Sub Command2_Click()

    Dim objFS

3/3

运行代码读取文件

按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

Answer 2

你是VB的哪个版本？

追问

VB6.0

追答

给出一个例子：

'1，使用菜单：[工程] -- [部件]，勾选其中的：Microsoft Common Dialog Control 6.0 (SP6)

'2，在窗体上添加1个文本框Text1，2个按钮，添加1个CommonDialog1控件。

'3，设置文本框Text1的MultiLine 属性为True，ScrollBars 属性为2。

代码如下：

Option Explicit

Private Sub Command1_Click()
'使用通用对话框实现寻找并打开指定文件
'CancelError属性为True。
On Error GoTo ErrHandler
'设置过滤器
CommonDialog1.Filter = "Text Files（*.txt）|*.txt|Batch Files（*.bat）|*.bat"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 1
'显示"打开"对话框。
CommonDialog1.ShowOpen
'调用打开文件的过程


'读文本文件
Dim MyStr As String     '用来存放文本文件的内容
Dim MyStrLine As String     '用来存放读取1行文本的内容
Dim n As Integer

MyStr = ""
'读取文件信息
'以读的方式打开文件,其中文件名由用户通过CommonDialog1指定
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)   ' 循环至文件尾
   Line Input #1, MyStrLine   '读入一个自然段
   MyStr = MyStr & MyStrLine & vbCrLf
Loop
Close #1   ' 关闭文件。

'将文件内容显示在文本框
Text1.Text = MyStr

Exit Sub

ErrHandler:
'用户在通用对话框里按了"取消"按钮。
Exit Sub
End Sub

Private Sub Command2_Click()
   End
End Sub