读取指定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