Question

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

比如说我要读取C：盘里的 数字.txt 数字.txt里的内容是
123456
56786
42365
79622
怎样依次读取第一行.第二行，第三行的数字并且依次复制到Excel的表格内？

Answer 1

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

Answer 2

如果只是这样的文本文件，直接用EXCEL打开就行了，为什么要用按键精灵这么麻烦？