按键精灵怎么逐行自动读取文本中的文字，并自动输入某处

Posted 2023-04-12

如：C盘中 1.txt 文件中有：
1
2
3
第一循环读取 1 并输入1
第二循环读取 2 并输入2
..........
按一下就读取粘贴一次,再按一下循环下一条,求能直接能用的,本人小白..

Text = Plugin.File.ReadFileEx("C:\\1.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
    i=0
    For UBound(MyArray)
        TracePrint "第 " & i + 1 & " 行文本内容为：" & Cstr(MyArray(i))
        Do
        key = WaitKey()
        If key = 17 Then 
         SayString MyArray(i)
         Exit Do 
        End If
        loop
        i = i + 1
    Next
End If

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

参考技术A //分也太少了！！！！！！！！！！
path = "c:\1.txt"
fileHandle=Plugin.File.OpenFile(path)
//file20byte=Plugin.File.ReadFile(fileHandle,20)
Rem 标记
key1 = WaitKey()
If key1 = 115 Then //按F4读一行。
fileline = Plugin.File.ReadLine(fileHandle)
//以下四句是复制粘贴，效果跟 SayString fileline一样。
// Call Plugin.Sys.SetCLB(fileline)
// KeyDown 17, 1
//KeyPress 86, 1
//KeyUp 17, 1
SayString fileline
End If
Delay 200
Goto 标记
Sub OnScriptExit()
Call Plugin.File.CloseFile(fileHandle)
MessageBox "脚本已经停止！"
End Sub追问

朋友有qq吗，可否指点一下。。

参考技术B 由于换行符与账号密码分隔符一样，都是"|"，所以这里我把":"当做账号密码分隔符。
代码：
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) - 1
zm = Split(Text(i), ":") '分割每行内容
SayString zm(0)
KeyPress 9, 1
SayString zm(1)
KeyPress 13, 1
Next
MsgBox "所有账号均已使用",64,"提示"

按键精灵如何逐行复制excel？如何设置会自动切换下一行复制？

就是将EXCEL里面固定一列的数据，逐行复制到网页里面的固定位置，怎么实现，我需要具体的操作教程

参考技术A 可以提供你思路，excel表哥左上角不是有个敲单元格位置号的地方，敲了之后不是会自动跳转到指定单元格的。利用这个就可以写很简单的代码了。
dim
time
time
=
0
do
time=time+1
move
to
70,
133
//坐标自己改
delay
20
leftclick
1
delay
200
keypress"a",
delay
20
saystring
time
delay
20
keypress
"enter",
delay
200
keydown
17,1
keypress
67,1
keyup
17,1
loop
这是我自己用的截了一段给你，后面复制到你的另一个窗口，并取到返回值回来要自己加