你的位置：
关于 写入TXT 文本的问题
20:11:33 |
来源: 按键精灵资源站
写入TXT文本怎么才能在第一行连续输入& &代码如下
Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\2.txt&, A)
If A & 10 Then
GOTO B& && &&&
输出结果是&&：
怎么才能输出：
12345........
小弟先谢谢大师傅了~~~~~谢谢~~~~账号密码读取记录数据文本问题 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：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
查看: 390|回复: 3
账号路径 =(&/sdcard/账号密码.txt&)Dim
账号行数 =(&/sdcard/记录行数.txt&)
file.Readline(账号路径, i)
//读取并输出第i行字符串内容请教下大师们
怎么才能实现
每次读取了就把本次所读取的行数写进记录行数的那个TXT文本里
每读取一次
记录行数那个TXT文件里的数字自动改变递增1
方便下次需要在读取的时候可以继续按照之前记录在记录行数那个文本里的行数继续下去
账号行数 =(&/sdcard/记录行数.txt&)i=File.Read(账号行数)Do
&&&&i = i + 1&&&&&&&&
Call File.Write(账号行数,i)//读取文本信息（路径）Dim 返回值返回值=File.Read(账号行数)TracePrint 返回值&&&&Delay 3000Loop
账号行数 =(&/sdcard/记录行数.txt&)i=File.Read(账号行数)Do
&&&&i = i + 1&&&&&&&&
Call File.Write(账号行数,i)//读取文本信息（路径）Dim 返回值返回值=File.Read(账号行数)TracePrint 返回值&&&&Delay 3000Loop
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章脚本作者商业小精灵作者绑定账号后自动赠送
你好 , File 插件
写入命令 . 直接把 你需要的数字写入 即可读取过的文本内容，记录到完成怎么写啊 _ 有问有答 - 按键精灵论坛
腾讯微博：
软件版本：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
查看: 606|回复: 16
读取过的文本内容，记录到完成怎么写啊C:\1.txt内容：21111----1sssss----11111132222----3qqqqq----222223----6543www----666666读取了第一行内容，输出以后，怎么在文里记录成21111----1sssss----111111----完成，这样的格式然后第二次读取的时候，第一行有“完成”两个字就跳过第一行直接读取第二行要怎么弄啊
同求，顶~~~~~~~
按键精灵开发者3级可通过提升认证等级来升级勋章：按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送爱心大使积极帮助新手（可向管理员进行申请）
function 读文本指定行(文件路径,行数)
on error resume next
txt=createobject(&scripting.filesystemobject&). _
opentextfile(文件路径,1).readall()
txt=split(txt,vbcrlf)
读文本指定行=txt(行数 -1)
end function
sub 改文本指定行(文件路径,内容,行数)
复制代码纯手打不知道有没有错,草，居然吞了我一半代码。算了你就用命令库里面的吧
mjg2009 最后编辑于
&font color=&Red&&&strong&接各种单QQ:&/strong&&/font&
按键精灵开发者6级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
Call lib.文件.替换指定行文本内容(&C:\log.txt&,&文本内容&,5)命令库
Call lib.文件.替换指定行文本内容(&C:\log.txt&,&文本内容&,5)命令库
文件 xx60151 发表于
7:38:58 。。。。。。。。。。。。。。。大哥你看清一下
[code]function 读文本指定行(文件路径,行数)dim txton error resume nexttxt=createobject(&scripting.filesystemobject&). _opentextfile(文件路径,1).readall()txt=split(txt,vbcrlf)读文本指定行=txt(行数 -1)enmjg2009 发表于
23:35:20 语法错误：脚本 我的脚本3 ，第11行，第0个字符：（错误码0）没有找到合法的符号。
按键精灵开发者3级可通过提升认证等级来升级勋章：按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送爱心大使积极帮助新手（可向管理员进行申请）
回复 msgbox readtxtline(&c:\config.ini&,5)uptxtline &c:\config.ini&,5,&abcde2&msgbox readtxtline(&c:\config.ini&,5)function readtxtline(filepath,line)dim txton error resume nexttxt=createobject(&scripting.filesystemobject&). _opentextfile(filepath,1).readalltxt=split(txt,vbcrlf)if ubound(txt)+1&line then exit functionreadtxtline=txt(line-1)end functionsub uptxtline(filepath,line,nstr)dim txt,objon error resume nextset obj=createobject(&scripting.filesystemobject&)txt=obj.opentextfile(filepath,1).readallobj.closetxt=split(txt,vbcrlf)if ubound(txt)+1&line then exit subtxt(line-1)=nstrobj.opentextfile(filepath,2,false).write(join(txt,vbcrlf))obj.closeset obj=nothingend sub这下没错了吧
&font color=&Red&&&strong&接各种单QQ:&/strong&&/font&
回复 msgbox readtxtline(&c:\config.ini&,5)uptxtline......mjg2009 发表于
19:37:04 obj.opentextfile(filepath,2,false).write(join(txt,vbcrlf))大神这句错了txt=obj.opentextfile(filepath2,false).write(join(txt,vbcrlf))运行以后，无效果脚本 我的脚本3.Q ，第18行：对象不支持此属性或方法: 'F9_445E_97C7_L3F7612771DA.OBJ.CLOSE', 脚本 我的脚本3.Q ，第22行：无效的过程调用或参数, 脚本 我的脚本3.Q ，第23行：对象不支持此属性或方法: 'F9_445E_97C7_L3F7612771DA.OBJ.CLOSE', 没有对已读取行进行标记，二次读取的时候还会读到
ydm566 最后编辑于
按键精灵开发者3级可通过提升认证等级来升级勋章：按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送爱心大使积极帮助新手（可向管理员进行申请）
回复 删掉这两行吧。我居然这么二我还是不明明白你的意思。你是想让它不要读你上次读过的？？这个我可做不到，你自己处理读出来的东西。有标志就跳过不处理再读下一行就行了
&font color=&Red&&&strong&接各种单QQ:&/strong&&/font&
回复 删掉这两行吧。我居然这么二我还是不明明白你的意思。你是想让它不要读你上次读过的？？这个我可做不到，你自己处理读出来的mjg2009 发表于
21:47:05 谢谢大神了，我自已再琢磨琢磨
按键精灵开发者6级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
你的要求 不就是吧21111----1sssss----111111记录成21111----1sssss----111111----完成，这个吗Call lib.文件.替换指定行文本内容(&C:\log.txt&,&文本内容&,5)用这个 命令
原来得21111----1sssss----111111
21111----1sssss----111111----完成
QQ:电脑PC 安卓 网页操作
你的要求 不就是吧21111----1sssss----111111记录成21111----1sssss----111111----完成，这个吗Call lib.文件.替换指定行文本内容(&C:\log.txt&,&文本内容&,5)用这个 命令
替换掉 ...... xx60151 发表于
13:50:00 这个方法变通一下，也可行，就是麻烦了点，第二读取的时候如何略不读取21111----1sssss----111111----完成
这段已替换过的内容呢
按键精灵开发者6级可通过提升认证等级来升级勋章：按键会员（月）按键会员绑定账号后自动赠送按键图书勋章尊贵的按键图书用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）
text = Plugin.File.ReadFileEx(&C:\1.txt&)TextArr = split(text, &|&)For i = 0 To UBound(TextArr)-1
If TextArr(i) && && and Right(TextArr(i),2) && &完成& Then
Call Lib.文件.替换指定行文本内容(&C:\1.txt&, TextArr(i) & &----完成&, i + 1)
End IfNext
text = Plugin.File.ReadFileEx(&C:\1.txt&)TextArr = split(text, &|&)For i = 0 To UBound(TextArr)-1
If TextArr(i) && && and Right(TextArr(i),2) && &quo...... 老男成精 发表于
20:01:32 大神的这段好用，给个赞。s=Plugin.Sys.GetDateTime()请大神再帮一把，把S当前系统时间插入到完成后面，手动测试如果在完成后面加了系统时间，运行的时候还是会读取这一行，加了系统时间如何才能让他不读取已经加入了”完成“
按键精灵开发者6级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
你要求得 是 不读取
是吧不读取
文本里面别的办法
就不知道了
QQ:电脑PC 安卓 网页操作
按键精灵开发者6级可通过提升认证等级来升级勋章：按键会员（月）按键会员绑定账号后自动赠送按键图书勋章尊贵的按键图书用户认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）
回复 text = Plugin.File.ReadFileEx(&C:\1.txt&)TextArr = split(text, &|&)For i = 0 To UBound(TextArr)-1
If TextArr(i) && && and InStrRev(TextArr(i), &完成&) = 0 Then
Call Lib.文件.替换指定行文本内容(&C:\1.txt&, TextArr(i) & &----完成& & & & & Plugin.Sys.GetDateTime(), i + 1)
End IfNext
感谢大神帮助小白解决了大问题
回复 text = Plugin.File.ReadFileEx(&C:\1.txt&)Text...... 老男成精 发表于
12:02:40 再赞一个