查看: 552|回复: 10
阿扬的世界
手机按键精灵读取文本并输出
我有一个手机TXT文件，想让手机脚本自动读取文档内的内容，每次读取一行，并输出到指定输入框，然后下次运行脚本的时候，读取第2行并输出。是手机按键精灵，请问这代码该怎么写啊
//下面这句是向目标文件(&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
用数组.按键有读取文本文档的函数.读出后全部保存到变量.然后用solit函数以行为单位分拆到数组.
那你是要从文档取账号密码
把txt放到按键精灵附件里，可以释放的！
步骤一（增加新脚本）： 1，进入精灵后点增加的按钮，点击源文件，把脚本复制进去，然后把循环次数，开始结束热键等设定好，点保存。 2，先弄个脚本文件的txt格式的文件（文本文档），然后点击按键精灵的导入功能，选择好文件后导入进去就会看到
linxue1029
这样的话你数字的格式要统一，是一行一个数字吧；就算是字符也是可以的，不过这样输出的是字符串格式，也就是不能当数字变量用。把C:\Documents and Settings\Administrator\桌面\11.txt 改成你的txt文件路径，“”要保留。你如果要输出到其他程序
xiaoside520
可以的,用懒人插件可以逐行读取,然后设置到剪贴板,操作键盘鼠标切换到另一个输入框,按CTRL+V粘贴或者用saystring输出.然后读下一行 你没有给出应用环境,无法写代码给你,但是你把懒人插件下载了,看看范例就懂了,超级简单的
步步高微营销
没看到你的文档，所以就不写出具体脚本了，给你个示例脚本，你自己看着改吧 //在您的电脑上需要安装有Office办公软件,否则使用不了 //下面这句是打开Excel文档工作表 Call Plugin.Office.OpenXls(&C:\测试.xls&) //下面这句是向Excel文档工作表(
文本路径 = &C:\Documents and Settings\Administrator\桌面\外挂.txt&输入文本坐标 = array(500, 100)Do If WaitKey = 115 Then Rem 读取 s = Lib.文件.读取指定行文本内容(文本路径, 行数 + 1) If s = && Then 行数 = 行数 + 1 If a = 3 Then你的位置：
求教 用PC版按键精灵在模拟器输入文本的方法
11:52:28 |
来源: 按键精灵资源站
是电脑版 不是安卓版，安卓版在模拟器里卡死，知道怎么输入文本的大师给个示例代码吧求教关于手机输入文字的命令 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.6软件大小：62.5M更新时间：09-27
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 624|回复: 3
按键精灵开发者4级可通过提升认证等级来升级勋章：
InputText now()
复制代码这个命令可以直接输入文字
但是此命令在模拟器中需要几百毫秒、手机上的调用时间需要1秒多(太耗时间)，另外在模拟器中使用此命令后从模拟器外面就不能打字了除非重启模拟器或模拟器里面装输入法Sys.SetClipText Now()
KeyDown 82
KeyPress 50
复制代码此命令相当于pc的Ctrl+V，在模拟器中可以代替InputText命令并且调用时间只有几十毫秒，但是不能再手机里使用我想要个可以在手机里使用(不是模拟器)并且调用时间快可以输入文字的命令
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章脚本作者商业小精灵作者绑定账号后自动赠送
您好 , 我这边 测试 InputText 命令 不管是 在手机上还是在 模拟器上都是瞬间完成 . 和直接 粘帖 没有区别
按键精灵开发者4级可通过提升认证等级来升级勋章：
回复 InputText Now()TracePrint TickCount()
按键精灵开发者4级可通过提升认证等级来升级勋章：
回复 InputText Now()
TracePrint TickCount()
复制代码最快都是300毫秒+这还只是模拟器的
放到手机上更慢急！按键精灵手机帮手文本内容分割问题 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.6软件大小：62.5M更新时间：09-27
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 1177|回复: 13
按键精灵手机助手进行文本内容分割问题？做一个安卓小脚本，手机内存卡内放一个TXT文本，程序获取文本所有内容后进行分割每行内容，在输出每行内容，怎么写，坐等帮忙！是安卓系统程序，不是电脑的，电脑的我会
都没有人回答
&GetSdcardDir()这个命令后返回值是 /mnt/sdcard 但是后面少一个 / 符号&
都没有人回答
都没有人回答
火山发电厂
按键精灵开发者4级可通过提升认证等级来升级勋章：
Replace (原str,找str,换成str)//将字符替换InStr (字串,Str)//返回Str的位置数组=Split(字串,&分隔符&)//分割For j = 0 To UBound(数组)//输出&&&&TracePrint
数组(j)Next//路径 GetSdcardDir()这个命令后返回值是 /mnt/sdcard 但是后面少一个 / 符号
火山发电厂 最后编辑于
过大年勋章俩小福娃给大家拜年啦！按键精灵开发者4级可通过提升认证等级来升级勋章：
回复 File.Readline(文件路径, 第几行内容) //读取并输出第几行字符串内容InputText 待输入的字符串//在当前窗口输入待输入的字符串PC端会写相信用这两个命令你也会写了，具体使用方法去帮助说明里查看有详细说解释。
学习按键ing，无偿帮助解答各种简单小问题，共同学习，共同进步。
回复 谢谢，我试试
过大年勋章俩小福娃给大家拜年啦！
回复 你能不能按照你的模版写一个真实的，不需要代替的我模仿下，你写的这个第一行我不知道怎么使用
火山发电厂
按键精灵开发者4级可通过提升认证等级来升级勋章：
另一个脚本
多分隔符分割字串
分隔符是字串S = &++-*|5ds5\5d/f45f[5f5f45]54d4ds4-5f5f4*f6f6d+4df5d45d4f|564fg6ddf/+&列表 = &\/[]-*+|&分隔符 = &■&长度 = Len(列表)For N = 1 To 长度'-----------------------逐一抽取要替换符号找 = Mid(列表, N, 1)'-------------------------换成统一分隔符S = Replace(S, 找, 分隔符)Next'-------------------------去除前导边缘分隔符位置 = 1While InStr(位置, S, 分隔符) = 位置位置 = 位置 + 1WendIf 位置 & 1 Then S = Right(S, Len(S) - 位置 + 1) //S=Mid(S,位置)End If'-------------------------去除末尾边缘分隔符位置 = Len(S)While InStrRev(S, 分隔符, 位置) = 位置位置 = 位置 - 1Wend If 位置 & Len(S) Then S = Left(S, 位置)End If//Next这里原先错误'--------------------分割数组 = Split(S, &■&)'--------------------调试MessageBox S
火山发电厂 最后编辑于
回复 我写了一个简单的你看看，但是还是有问题！Dim 行数行数 = File.linesnumber(&/storage/emulated/0/storage/emulated/号码.txt&)For 行数Dim 文件路径=&/storage/emulated/0/storage/emulated/号码.txt&,ii=1If i&=0 Then
InputText iTracePrint File.Readline(文件路径, i)End If
回复 InputText i ---------但是怎么才能在光标的位置输入文本的行内容TracePrint File.Readline(文件路径, i)
-------测试环境是OK的
火山发电厂
按键精灵开发者4级可通过提升认证等级来升级勋章：
//----------------------------------------------------------用InputBox录入分隔符/* Dim 列表(), MM = - 1 Do
M = M + 1 : Redim Preserve 列表(M)
列表(M) = InputBox(&输入分隔符&)
If 列表(M) = && Then
M = M - 1 : Redim Preserve 列表(M)
End IfLoop */S=&&a&&b&kjddkjd|lkjfkdfkdjf&b&kdfdhfif|s5df4df54/df45df/&a&&//----------------------------------------------------------将多分隔符 换成 单分隔符/分隔符是字串列表 = Array(&&a&&, &&b&&, &|&, &/&)分隔符=&&b&&Max = UBound(列表) : Min = LBound(列表)For N = Min To Max
找 = 列表(N)
If 找 && 分隔符 Then
S = Replace(S, 找, 分隔符)
End IfNext//------------------------------------------去除 前导/边缘分隔符位置 = 1While InStr(位置, S, 分隔符) = 位置
位置 = 位置 + Len(分隔符)WendS = Mid(S, 位置)//--------------------------分割数组 = Split(S, 分隔符)//------------------------------------------在数组中去除 末尾/边缘分隔符 形成的空单元Max = UBound(数组)Do
If 数组(Max) = && Then
Max = Max - 1
End IfLoopRedim Preserve 数组(Max)//---------------------------调试MessageBox Join(数组, & / &)}