如何用按键实现取某段文字逐个自动输入文本

使用按键精灵的按键方法在记事本中横向逐个输入“abcdef”输入显示如下:RunApp "notepad.exe"“运行文本”sr= "按键精灵真强大 ""定义输入的文字”现在的问题是如何做到 逐字输入 SayString sr1

代码：Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '读取文本内容 Text = Split(Text, "|") '将读取到的内容一行行地分割为数组 TracePrint UBound(Text)For i = 0 To UBound(Text) -...

启动脚本后按快捷键Ctrl输出一行内容，需要激活输入框才能输出内容，激活就是点击一下输入框就行了，可以用text文本文档测试一下。

//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)Text = Plugin.File.ReadFileEx("C:\Config.txt")//文件路径可以自己改 TracePrint "向目标文件读出文本内容为："& Text dim MyArray MyArray = Split(Text, "|")If UBound(MyArray)>=0 Then i=0 For UBound(MyArray)/...

源码缺少i的赋值，应先给i定一个变化的值，如按键官方例子：//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)Text = Plugin.File.ReadFileEx("C:\Config.txt")Msgbox "向目标文件读出文本内容为："& Text dim MyArray MyArray = Split(Text, "|")If UBound(MyArray)>=0 ...

//首先C盘新建一个名字为Log的TXT文档，写入你的内容，按键代码如下 Text = Plugin.File.ReadFileEx("C:\Log.txt")MyArray = Split(Text, "|")For i=1 to Len(MyArray(0))MyVar = Mid(Cstr(MyArray(0)) , i, 1)KeyPress MyVar, 1 Delay 1000 Next ...

你的需求基本是自动喊话的雏形，逐行读取c:\1.txt文件，逐行黏贴出来，脚本见截图：

那个使用比较繁琐，我们是用的图形化脚本工具软件（无敌点击狗）就一键自动化搞定了，能自动输入录入的。网上有无敌点击狗软件的很多使用范例，操作就是简单的添加几个任务即可，你只需把一次输入录入的过程编排，无敌点击狗就能批量自动化帮你执行了。

dim i //获得剪切板内容 clipboard = plugin.sys.getclb()i = cint(clipboard)+ 1 call plugin.sys.setclb(i)这时你的剪切板内容 为i 你要记得，你数据+1是整数型来的。别弄个文本上去 不然这样会出错，如果是文本，里面的算法就不是这样的了。切记 ...

txt = Plugin.File.ReadFileEx("路径")a = split(txt, "|")