按键精灵读写记事本——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年错误博客亲测项目系列

• 亲测看新闻视频赚钱项目 - 长期稳定
• 亲测币圈项目 - 零撸暴利