lmnd.net
当前位置:首页 >> 按键精灵读取txt文件 >>

按键精灵读取txt文件

//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)Text = Plugin.File.ReadFileEx("C:\Config.txt")Msgbox "向目标文件读出文本内容为:"& Textdim MyArrayMyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBoun...

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改 dim MyArray MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i))...

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

我建议提取excel的表格的形势要好点 Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\ss.txt")//填写你的txt地址dim MyArray MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到...

For i = 1 To UBound(Split(Plugin.File.ReadFileEx("C:\123.txt"), "|")) If len(Lib.文件.读取指定行文本内容("C:\123.txt", i)) > 4 Then RunApp lib.文件.读取指定行文本内容("C:\123.txt", i) End If Delay 500 Next 复制上面代码,如果路...

代码没问题,问题出在"D:\内容.txt"里面最后句是否有个回车,建议加入一个判断空白句避免回车空白, Text = Plugin.File.ReadFileEx("D:\内容.txt") TracePrint Text Var = Split(Text, "|") Var1 = UBound(Var) TracePrint Var1 Randomize 行数...

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

File插件里面有读键值函数,你查看File插件里面的帮助文档就有例子用法。

I=0 Test=Plugin.File.ReadFileEx("C:\Users\zen\Desktop\文章.txt") txtArray = Split(Test, "|") While Len(txtArray(I))>=1 RE=txtArray(I) SayString RE I=I+1 KeyPress "Enter", 1 Wend 输出源文件“文章”中每行的内容,然后按回车,直到遇...

fh = Lib.文件.读取指定行文本内容("C:\Users\Administrator\Desktop/565.txt",1)//这里是路径以及第几句 Dsmhisan = Split(fh, " ")//字符串进行分割 MessageBox "账号为:"&Dsmhisan(0)&"密码为:"&Dsmhisan(2)

网站首页 | 网站地图
All rights reserved Powered by www.lmnd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com