第1个回答 2014-06-15
text = Plugin.File.ReadFileEx("C:\Users\lenovo\Desktop\1.txt")
dim MyArray
MyArray = Split(Text, "|")
i=0
For UBound(MyArray)
Call Plugin.Sys.SetCLB(MyArray(i))
Delay 1000
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyPress "enter", 1
i = i + 1
next
这个可以实现逐行的读取和复制。因为不清楚你需要怎么下移输入 暂用按回车键代替,不行的话再给你改本回答被网友采纳