按键精灵如何在后台一次读取一行文本并复制粘贴

需求：在讲座上现场演示一个软件的操作过程，中间有很多文字输入的步骤，为了节省时间，预先把需要输入的文字按顺序都整理在一个文本中，保存在C:\demo.txt文本（utf-... 需求：在讲座上现场演示一个软件的操作过程，中间有很多文字输入的步骤，为了节省时间，预先把需要输入的文字按顺序都整理在一个文本中，保存在C:\demo.txt文本（utf-8编码）中，想在演示中使用按键精灵快捷键，结合鼠标定位在不同页面的输入窗口，实现在软件中文字顺序输入，该如何实现？

附：找到的相似问题的代码是一次读取txt文件中的所有行，并全部粘贴到制定窗口。我的需求是每次只读一行，并复制粘贴这一行，手动控制读取下一行和粘贴动作。展开

 我来答

1个回答

#热议# 为什么说不要把裤子提到肚脐眼？

百度网友63a4133
2019-05-08 · TA获得超过432个赞

知道小有建树答主

回答量：919

采纳率：69%

帮助的人：157万

我也去答题访问个人页

关注

展开全部

文档路径 = "C:\demo.txt"'设置文档路径
Text = Plugin.File.ReadFileEx(文档路径)
str = Split(Text, "|")
MessageBox "关闭本弹窗后,鼠标移动要输出的窗口.然后按任意键确定"
key = WaitKey()
Hwnd = Plugin.Window.MousePoint()
MessageBox"后台输出窗口已经确定"& vbCrLf & "每次按 Ctrl 可以输出一行内容到后台窗口"
For i = 0 To UBound(str) - 1
    Do
        key = WaitKey()
        If key = 17 Then Exit Do
    Loop
    TracePrint "第 " & i+1 &" 行内容为："& Cstr(str(i))
    Call Plugin.Window.SendString(Hwnd, Cstr(str(i)) & vbCr)
    Delay 10
Next

自己调试后台输出没问题

追问

感谢 c11769104 ！测试了代码，有两个小问题：

1. 代码触发键ctrl与软件中的快捷键冲突，这个我自己改成F9（120）了。
2. 每次粘贴以后，还有一个多余的换行动作，这个动作在软件中被认为是确认键或回车键，导致软件切换到下一页面或报错，把代码for循环中的“& vbCr”（回车符）删除就行了。