按键精灵 对文本的读取与 写入
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
博客园:冷色008
百度:冷色008