mdsk.net
当前位置:首页 >> 按键精灵逐行写入文本 >>

按键精灵逐行写入文本

text = Plugin.File.ReadFileEx("C:\Users\lenovo\Desktop\1.txt") dim MyArray MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i)) Delay 1000 Msgbox "成功输

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

读TXT文件,这样麻烦.最好的办法是读 ini配置文件 过程:1、定义文件路径:filetiegui = "c:\new\铁床.ini"2、读取数字记录 num = Plugin.File.ReadINI("command", "num", filetiegui)3、记录加1 num = num + 14、生成值 账号 valu = "

Text = Plugin.File.ReadFileEx(文件路径)【把汉字替换为文件路径】 While text > "" //循环,直至读完所有内容为止 qa = InStr(text, "|") qs = Len(text) 本行内容 = Left(text, qa - 1)【一行一行读取,文本里只有账号就可以了,密码可以改成统一的】 text = right(text, qs - qa) 【执行,此处自己插入命令,你要的变量名为:本行内容】 Wend

本来就有一个读指定行的命令!

这些操作有现成软件能完成,你去看下阿冲点击软件,是全部图形化界面菜单,在阿冲点击软件里提供有文本提取、自动点击输入等

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改dim MyArrayMyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i)) Delay 1000Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i)) Delay 1000 i=i+1 NextEnd If

text = plugin.file.readfileex(文件路径)【把汉字替换为文件路径】while text > "" //循环,直至读完所有内容为止 qa = instr(text, "|") qs = len(text) 本行内容 = left(text, qa - 1)【一行一行读取,文本里只有账号就可以了,密码可以改成统一的】 text = right(text, qs - qa) 【执行,此处自己插入命令,你要的变量名为:本行内容】wend

高手啊Excel插件有没有?没有的话保存Excel为csv格式,按TXT方式逐行读取不清楚你需要修改的地方有什么规律,我建议你用,按键精灵查哪个uedit的文字的位置,然后sendsting过去.qhsjfy.有问题叫我

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

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