按键精灵怎么逐行自动读取文本中的文字,并自动输入某处。 每下一个循环读下一行。
如:D盘中123.txt文件中有:张三李四王麻子第一循环读取第一行张三并输入某空格第二循环读取第二行李四并输入某空格别的我都能解决就是逐行读取和写入的语句不会,请高手指点...
如:D盘中 123.txt 文件中有:
张三
李四
王麻子
第一循环读取 第一行 张三 并输入某空格
第二循环读取 第二行 李四 并输入某空格
别的我都能解决 就是逐行读取 和写入的语句不会,请高手指点,非常感谢。财富值用光了,真的不好意思! 展开
张三
李四
王麻子
第一循环读取 第一行 张三 并输入某空格
第二循环读取 第二行 李四 并输入某空格
别的我都能解决 就是逐行读取 和写入的语句不会,请高手指点,非常感谢。财富值用光了,真的不好意思! 展开
展开全部
读TXT文件,这样麻烦。
最好的办法是读 ini配置文件
过程:
1、定义文件路径:filetiegui = "c:\new\铁床.ini"
2、读取数字记录 num = Plugin.File.ReadINI("command", "num", filetiegui)
3、记录加1 num = num + 1
4、生成值 账号 valu = "valuser" & num
4、生成值 账号 valw = "valword" & num
5、读取配置文件中的帐号:textuser = Plugin.File.ReadINI("command", valu, filetiegui)
5、读取配置文件中的帐号:textword = Plugin.File.ReadINI("command", valw, filetiegui)
6、存储数字记录 Call Plugin.File.WriteINI("command", "num", num, filetiegui)
配置文件:
[command]
num=0
valuser1="账号1"
valword1="密码1"
valuser2="账号2"
valword2="密码2"
valuser3="账号3"
valword3="密码3"
。
。
。
。
。
最好的办法是读 ini配置文件
过程:
1、定义文件路径:filetiegui = "c:\new\铁床.ini"
2、读取数字记录 num = Plugin.File.ReadINI("command", "num", filetiegui)
3、记录加1 num = num + 1
4、生成值 账号 valu = "valuser" & num
4、生成值 账号 valw = "valword" & num
5、读取配置文件中的帐号:textuser = Plugin.File.ReadINI("command", valu, filetiegui)
5、读取配置文件中的帐号:textword = Plugin.File.ReadINI("command", valw, filetiegui)
6、存储数字记录 Call Plugin.File.WriteINI("command", "num", num, filetiegui)
配置文件:
[command]
num=0
valuser1="账号1"
valword1="密码1"
valuser2="账号2"
valword2="密码2"
valuser3="账号3"
valword3="密码3"
。
。
。
。
。
展开全部
VBS Dim fso,ts,text
VBS Const ForReading = 1
VBS Set fso = CreateObject("Scripting.FileSystemObject")
VBS Set ts = fso.OpenTextFile("e:\a.txt", ForReading)
Rem a1
VBS test=ts.ReadLine
if test=""
Goto a2
endif
MessageBox test '这里是弹出内容
VBS SkipLine
Delay 1000
Goto a1
Rem a2
VBS ts.Close
VBS Const ForReading = 1
VBS Set fso = CreateObject("Scripting.FileSystemObject")
VBS Set ts = fso.OpenTextFile("e:\a.txt", ForReading)
Rem a1
VBS test=ts.ReadLine
if test=""
Goto a2
endif
MessageBox test '这里是弹出内容
VBS SkipLine
Delay 1000
Goto a1
Rem a2
VBS ts.Close
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询