Question

按键精灵怎么逐行自动读取文本中的文字，并自动输入某处。 每下一个循环读下一行。

如：D盘中 123.txt 文件中有：
张三
李四
王麻子

第一循环读取 第一行 张三 并输入某空格
第二循环读取 第二行 李四 并输入某空格

别的我都能解决 就是逐行读取 和写入的语句不会，请高手指点，非常感谢。财富值用光了，真的不好意思!

Answer 1

读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"
。
。
。
。
。

Answer 2

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