网页按键精灵：陆续写出文本内每行内容
读取指定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 更多精彩
wys
