如何让按键精灵自动输入文档内的文本

Question

自动输入我已经搞定了：
SayString "wanglei"
Delay 900
KeyPress "Tab", 1

我有个文档里面都是：

wanglei
wangxin
wangwei
wangkai
wangkun
.....
这样排列的。
”这样的我想把代码“wanglei”处自动读取我的文档，然后输入进去。
我按一次自动输入第一行的，再按一次自动输入第二行的。以此类推。

Answer 1

1、打开按键精灵，新建一个空白脚本，这个方法要配合输入法，使用于字数较少的输入。

2、插入按键“N”和“H”。

3、再插入按键“space”。

4、在设置好启动热键和循环次数，就编写完成了。

5、可以用命令直接输入文字，在编写时使用【saystring】语句。

6.例如输入”你好“，在按键精灵中输入【saystring "你好"】“”里就是要输入的文字。

Answer 2

帮你写好啦，直接copy上去运行即可，表太谢我~
=======================================
//读取txt
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(hang, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 900
KeyPress "Tab", 1
Delay 500
//暂停，任意键继续
WaitKey
Next
=======================================
基本注释已经写好，还有不懂得追问我吧
希望对你有帮助！追问

运行后无反应 TXT路径正确

追答

非常非常抱歉，有个小问题，已经修复：
第四排hang需要改为word，现在可用了
=======================================
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 900
KeyPress "Tab", 1
//暂停，任意键继续
WaitKey
Next

追问

太感谢了 终于成功了 我该怎么报答你呢

追答

分分你懂得~
‘（*∩_∩*）′

本回答被提问者和网友采纳

Answer 3

lao = Plugin.File.ReadFileEx("E:\1.txt") //把 E:\1.txt 替换成你文档所在的位置，要全路径

m= split(lao, "|")

n=0
do
SayString m(n)
Delay 100
n=n+1
loop n=UBound(m)

试试这个追问

能不能我把我写的
SayString "wanglei"
Delay 900
KeyPress "Tab", 1
加上

本人是小白 感谢你了

追答

lao = Plugin.File.ReadFileEx("E:\1.txt") //把 E:\1.txt 替换成你文档所在的位置，要全路径
m= split(lao, "|")
n=0
do
SayString m(n)
Delay 900
KeyPress "Tab", 1

n=n+1
loop n=UBound(m)
这样就好了

追问

太感谢 成功了

Answer 4

可能是printf ,或者 你用 模拟按键 输入吧,先分割.然后用while 来输入