错误博客( 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)上述脚本输出如下内容:
随机文章
什么影响性格?如何塑造更好的性格优化营销(通过网络推广抢占行业半壁江山)
男人窝(给别人做微商代理可靠吗)
考试吧(eBay新增海外仓服务供应商)
小小课堂:优化文章排名是网站优化的第一步!SEO案例分析
CSS教程
按键精灵剪贴板内容
伦敦银行同业拆放利率(LIBOR)一公斤网赚论坛

发表评论