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