vb读取txt文件的内容

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

vb读取txt文件的内容，有什么好的办法吗？

解析:

读文件:

dim inp as string

open "文件路径如c:\ff.txt" for input as #1

input #1,inp

close#1

写文件:

open "文件路径" for append as #1 ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入

print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号

close#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运行完成，就完成了读取文本文件内容并输出到立即窗口。

1、获取文本文件路径\x0d\x0a2、通过流的方式打开文本文件\x0d\x0a示例：\x0d\x0aDim MyString\x0d\x0aPrivate Sub Command1_Click() ’按钮事件\x0d\x0a Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。\x0d\x0a Do While Not EOF(1) '是否没到文件末尾\x0d\x0a Input #1, MyString '读取文件内容\x0d\x0a Loop\x0d\x0a Close #1\x0d\x0aEnd Sub

---