Question

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

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

Answer 1

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文本文档测试一下。

Answer 2

//分也太少了！！！！！！！！！！
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吗，可否指点一下。。

Answer 3

由于换行符与账号密码分隔符一样，都是"|"，所以这里我把":"当做账号密码分隔符。
代码：
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,"提示"