Text = Plugin.File.ReadFileEx(文本路径)
MyArray = Split(Text, "|")
i = 0
Do
Key = WaitKey
If i=UBound(MyArray) Then Exit Do
If key =109 Then 
SayString MyArray(i)
I=I+1
End If
Loop
//这个是读取文本的内容  然后分行输出的脚本  是我在论坛里面给兄弟回答的时候写的   估计对新手会有帮助
//馒头脚本,QQ  2651161556