本文总共632个字,阅读需3分钟,全文加载时间:2.405s,本站综合其他专栏收录该内容! 字体大小:

文章导读: 前几天写了个小程序,需要按行读取文本文件。从网上搜了搜,有这样写的 Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改 dim MyArray MyArray = Split(Text, "|") If U……各位看官请向下阅读:

前几天写了个小程序,需要按行读取文本文件。从网上搜了搜,有这样写的

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改

dim MyArray

MyArray = Split(Text, "|")

If UBound(MyArray)>=0 Then

i=0

For UBound(MyArray)

//下面这句是得到文本内容

SayString Cstr(MyArray(i))

Delay 1000

Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))

Delay 1000

i=i+1

Next

End If

这样写的话我觉得很麻烦,需要把文本内容全部读取到变量里再进行分割,其时有更简单的写法。我是这样写的。

Set fso = CreateObject("Scripting.FileSystemObject")

Const forreading = 1

Set myfile = fso.opentextfile("d:\123.txt",forreading)

mail_number = myfile.readline(按行读取文件)

MsgBox mail_number

mail_number = myfile.readline

MsgBox mail_number

mail_number = myfile.readline

Call Plugin.File.CloseFile()

这个比上边的简单,做一个循环就可以按行读取文本所有内容。

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑,如果对您有帮助欢迎转发分享!

你可能对这些文章感兴趣:

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注