按鍵精靈 對文本的讀取與 寫入

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