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

Private

Sub

Command1_Click()

'基本读取方法---只能读取非中文

'

Dim

a

As

String,

b

As

String,

c

As

String,

d

As

String,

e

As

String,

f

As

String'定义几个变量

Dim

FileNo

As

Integer

FileNo

=

FreeFile()

'获取一个未使用的文件号

Dim

str

As

String

'用来记录最终的值

Open

"你要读取文件的完整路径"

For

Input

As

#FileNo

While

Not

EOF(FileNo)

Dim

str_Read

As

String

Input

#FileNo,

str_Read

'读唤汪隐取一个字符陵腊到变量str_Read---不包含换行回车符,也和厅不包括逗号，分号及Tab，当读到分隔符号(前面列举的4种)时就赋值给后面的变量，如果有多个变量就读取相对应多的分隔数据

'如果为你的007.txt文件且为你列举的内容那么上面一句就改成下面的语句

'

Input

#FileNo,

a,

b,

c,

d,

e,

f

'

str

=

str

&

str_Read

Wend

'Me.Text1.Text

=

str

Close

#FileNo

End

Sub

---