按键精灵如何实现按行读取文本文件。从网上搜了搜，有这样写的

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()

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