错误博客( cuowu.com )发布于 2019-06-08 23:18:11
按键精灵读写记事本
按键精灵读写记事本——File插件里面提供了一组用于读写记事本内容的命令——WriteFileEx和ReadFileEx如下:
向记事本里面插入数据的过程如下:
1)假设向C盘1.txt文件写入三行内容,内容分别是123,456,789.编写脚本如下:
Call Plugin.File.WriteFileEx(“C:\1.txt”,”123″) //在文件后一行写入123
Call Plugin.File.WriteFileEx(“C:\1.txt”,”456″) //在文件后一行写入456
Call Plugin.File.WriteFileEx(“C:\1.txt”,”789″) //在文件后一行写入789
编辑完这段脚本,就可以先试运行一下。可以看到C盘目录下生成了“1.txt”的文件。
2)接来下使用ReadFileEx命令读取这个文件里面的内容,把文本的内容返回给变量Text,脚本如下:
Text = Plugin.File.ReadFileEx(“C:\1.txt”)
TracePrint Text
3)进入调试,启动脚本,可以看到从1.txt里面读取的内容都显示出来的是”123|456|789″。下方执行后如下方所示:
4)这时Text变量就保存了整个文件的内容,那么如何分行?从上图中可以看到每行的内容中间有个“|”符号。这里采用Split命令拆分这个内容,然后将返回值赋给MyArray,最后遍历MyArray里面所保存的信息。脚本如下:
Call Plugin.File.WriteFileEx(“C:\1.txt”, “123”)
Call Plugin.File.WriteFileEx(“C:\1.txt”, “456”)
Call Plugin.File.WriteFileEx(“C:\1.txt”, “789”)
Text = Plugin.File.ReadFileEx(“C:\1.txt”)
TracePrint “从文件读出的文本内容是” & Text
Dim MyArray
MyArray = Split(Text, “|”)
If UBound(MyArray)>=0 Then
i = 0
For UBound(MyArray)
//下面这句用于显示得到文本内容
TracePrint “第” & i + 1 & “行文本内容为:” & MyArray(i)
i = i + 1
Next
End If
5)上述脚本输出如下内容:
2020年错误博客亲测项目系列
- 亲测看新闻视频赚钱项目 - 长期稳定
- 亲测币圈项目 - 零撸暴利

发表评论