按键精灵读取逐行读取TXT文档，一次读取一行

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

//////////////////////////////////////

dim a,text

Call Plugin.Office.OpenXls("E:\test.xlsx")

//ReadXls(Sheet,行，列）

text = Plugin.Office.ReadXls(1, 2, 1)//sheet,行，列

MessageBox "读出内容为："&text

————————————————