按键精灵 对文本的读取与 写入

2016-05-23

  //向文本后一行写入内容--------------------

Call Plugin.File.WriteFileEx("C:\第一个.txt", "来把读取我")   

Text = Plugin.File.ReadFileEx("C:\第一个.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")

     //显示气泡提示信息第几行内容就改下面的数字-------------------------
Call Plugin.Msg.Tips( Cstr(MyArray(2)))

    //一行一行读取-------------------------------------------------
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