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 "成功输

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

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

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

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

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

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

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

本身自带的FILE插件读取TXT文件,用VBSCRIPT分割函数Split 分隔每行, 用

Rem 输入字符BT=InputBox("请输入聊天窗口标题如多个窗口可用 | (例子: 张山|李世|马五 ) 符号分隔 注:多个窗口时聊天窗口要分离")If BT= "" Then Goto 输入字符End IfText = Plugin.File.ReadFileEx("C:\Config.txt") MyArray = Split

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