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

Posted 2023-04-12

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

我有个文档里面都是：

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

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

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

3、再插入按键“space”。

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

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

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

参考技术A 帮你写好啦，直接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

追问

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

追答

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

本回答被提问者和网友采纳 参考技术B 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)
这样就好了

追问

太感谢 成功了

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

按键精灵 对文本的读取与 写入

2016-05-23

  //向文本后一行写入内容--------------------

Call Plugin.File.WriteFileEx("C:\第一个.txt", "来把读取我")   


Text = Plugin.File.ReadFileEx("C:\第一个.txt")//文档位置你自己改
dim MyArray
MyArray = Split(Text, "|")

     //显示气泡提示信息第几行内容就改下面的数字-------------------------
Call Plugin.Msg.Tips( Cstr(MyArray(2)))

    //一行一行读取-------------------------------------------------
If UBound(MyArray)>=0 Then
    i=0
    For UBound(MyArray)
        //下面这句是得到文本内容
        SayString Cstr(MyArray(i))
        Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
        Delay 1000
        i=i+1
    Next
End If