如何安卓按键精灵输入文字随机输入一行文字或者一段文字~文字为txt文本里的字~

来源：蜘蛛抓取(WebSpider) 时间：2017-07-19 12:17 标签： 按键精灵随机输入文字
如何实现TXT随机读取一行且删除此行直到读取完为止 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：76.8M更新时间：2-21
软件版本：3.2.5软件大小：62.5M更新时间：06-06
软件版本：1.2.7软件大小：29.2M更新时间：06-19
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 396|回复: 8
如何实现TXT随机读取一行且删除此行直到读取完为止例如：123456
随机读取一样后，再删除读取的这行，直到文本里面的所有行都读取完Text = Plugin.File.ReadFileEx(&D:\1.txt&)TracePrint TextVar1 = UBound(Split(Text, &|&))TracePrint Var1For Var1
行数 = Int(Var1 * Rnd + 1)
返回值 = Lib.文件.读取指定行文本内容(&D:\1.txt&, 行数)
TracePrint 返回值
Call Lib.文件.删除指定行文本内容(&D:\1.txt&, 行数)
Var1 = Var1 - 1
Next 我这样如果文本有8行却只能输出4行
nahlj 最后编辑于
按键精灵开发者4级可通过提升认证等级来升级勋章：
你竟然有这个问题，和我的问题很类似，我看能否写个代码吧，前二天刚试过，我的问题是解决了
按键精灵开发者4级可通过提升认证等级来升级勋章：
你稍等，我正在调试，就先不看你的代码，免得干扰我的思路，等我把代码写完，再看你的代码
剑侠勋章剑侠世界公测活动勋章过大年勋章俩小福娃给大家拜年啦！年全勤论坛连续打卡签到365次以上（365天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。天使勋章天使一样的用户按键明星按键明星勋章按键精灵开发者6级可通过提升认证等级来升级勋章：论坛GG按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦
问题很明显啊。下面代码Text = Plugin.File.ReadFileEx(&C:\1.txt&)TracePrint TextVar1 = UBound(Split(Text, &|&))TracePrint Var1i=Var1For i
行数 = Int(Var1 * Rnd + 1)
返回值 = Lib.文件.读取指定行文本内容(&C:\1.txt&, 行数)
TracePrint 返回值
Call Lib.文件.删除指定行文本内容(&C:\1.txt&, 行数)
Var1 = Var1 - 1 Next
按键精灵开发者4级可通过提升认证等级来升级勋章：
我是这样写的，测试通过Text1 = Plugin.File.ReadFileEx(&C:\删除某行测试.txt&)arr1=Split(Text1,&|&)a=UBound(arr1)b=LBound(arr1)+1do until a=0c=sDelay(b,a)e=Lib.文件.读取指定行文本内容(&C:\删除某行测试.txt&,c)TracePrint &读取第&&c&&行，内容是&&eDelay 500Call Lib.文件.删除指定行文本内容(&C:\删除某行测试.txt&, c)TracePrint &删除第&&c&&行&a=a-1loopFunction sDelay(var1,var2) //var1和var2取任意数值Randomize //执行一次Randomize为了产生真正意义上的随机Dim nn=Int((Rnd*(var2-var1+1))+var1) //生成var1与var2之间的随机数。//Dim sDelaysDelay = nDelay sDelayEnd Function
按键精灵开发者4级可通过提升认证等级来升级勋章：
几点说明：1.我调用了一个sDelay函数，你可以装在自己命令库，也可以象我这样自己放代码下面2.&C:\删除某行测试.txt&，改成你的文件路径3.Text1,arr1,a,b,c,e是我设的变量名，因为时间短，没有认真命名，就a,b,c,e了4,调试窗口的读取第几行，是指删除以后的第几行，不是最初始的行号，如果要最初始的行号，还可以稍微调整
回复 谢谢，就是不明白为什么不能直接For Var1
而是要重新赋值于i
剑侠勋章剑侠世界公测活动勋章过大年勋章俩小福娃给大家拜年啦！年全勤论坛连续打卡签到365次以上（365天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。天使勋章天使一样的用户按键明星按键明星勋章按键精灵开发者6级可通过提升认证等级来升级勋章：论坛GG按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦
Dim t'举个例子For i = 0 To 10&&&&i = i + 1&&&&t=t+1NextMessageBox &一共循环了&&t&&次&循环里面的变量 和for后面的变量一样，循环里的变化，for后面的变量也跟着变化了
按键精灵开发者4级可通过提升认证等级来升级勋章：
意思就是FOR循环后面的变量i，最好在循环体里不要再进行赋值操作，如果要变化也转到另一个变量去变，否则会影响i的循环，这个紫猫视频上说了求文字里面制作随机文本的思路。【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：389,421贴子：
求文字里面制作随机文本的思路。收藏
比如下面一行文字。“我是一行%随机中文%文字里%随机中文%面有随机%随机中文%内容”把文本里面的 “ %随机中文% ” 真的规换成一个一个的随机中文。有什么思路吗，目前我已知一个插件命令可以生成随机中文，求制作以上文本的思路。
虽不明，但觉厉
我的插件吧？谢谢对插件的支持mystring = "我是一行%随机中文%文字里%随机中文%面有随机%随机中文%内容"domypoint = instr(1,mystring,"%随机中文%",1)if mypoint & 1 thenexit doelsemywords = Plugin.Cabbage.RndChanese(4 , 1)mystring = left(mystring,mypoint-1)&mywords&right(mystring,len(mystring)-mypoint-5)end ifloopmsgbox mystring
登录百度帐号推荐应用

我要回帖

更多关于 按键精灵随机输入文字 的文章

 

随机推荐