错误博客( 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”的文件。

1.txt的文件

2)接来下使用ReadFileEx命令读取这个文件里面的内容,把文本的内容返回给变量Text,脚本如下:

Text = Plugin.File.ReadFileEx(“C:\1.txt”)

TracePrint Text

3)进入调试,启动脚本,可以看到从1.txt里面读取的内容都显示出来的是”123|456|789″。下方执行后如下方所示:

1.txt里面读取的内容

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年错误博客亲测项目系列

错误教程( cuowu.com )专注网推培训、SEO培训和网赚培训,微信/电话:13722793092

关注微信公众号:第一时间获得错误博客最新教程,让我们一起成长!

公众号二维码