Question

按键精灵逐行读取文本并复制粘贴？

比如说我有一个TXT文档，里面有很多文字
123456
56786
42365
79622
怎样依次读取第一行.第二行，第三行的数字并且依次复制到拍拍搜索内然后回车搜索？

Answer 1

text = Plugin.File.ReadFileEx("C:\Users\lenovo\Desktop\1.txt")
dim MyArray
MyArray = Split(Text, "|")
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
这个不知道行不行。没看懂你到底读取完了之后要怎么操作，先解决读取部分吧。如果读取部分没问题你追问一下 我给你写剩下的

追问

您好！ 读取之后，我让他粘贴到EXCEL表格里的查找里面，然后点击一下查找。查到匹配值之后，复制前三个单元格里面的代码。保存到一个一个文档里面。如图

追答

不好意思，再往后那一部分写不了……

Answer 2

path = Plugin.file.SelectFile()
text = Plugin.File.ReadFileEx(path)
MyArray = split(text, "|")
Plugin.Office.OpenXls("c:\1.xlsx")
If UBound(MyArray) > 0 Then
For i=0 to Ubound(Myarray)-1 step 1
Call Plugin.Office.WriteXls(1, i + 1, 1, MyArray(i))
Delay 1000
Next
Call Plugin.file.CloseFile("c:\1.xlsx")
End If
是否可以解决您的问题？

追问

没有，我需要的是 比如说我有一个TXT文档，里面有很多文字
张三
李四
王五
这三行内容，复制完一行，然手转到拍拍网页搜索栏搜索下。然后复制第二行 依次循环。