按键精灵 复制TXT 文件再逐行粘贴的问题 20
//下面这句是向临时文件("txt文件")逐行读出文本内容到变量(Text)Text=Plugin.File.ReadFileEx("F:\办公\6666.txt")My...
//下面这句是向临时文件("txt文件")逐行读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("F:\办公\6666.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
Else
//如果文本文件没有内容
MessageBox "文本文件没有内容"
EndScript
End if
For UBound(MyArray)
//下面这句是复制文本内容到剪切板
Call Plugin.Sys.SetCLB(Cstr(MyArray(i)) )
i=i+1
End if
//加入粘贴
KeyDown 17,1
KeyPress 86,1
KeyUp 17,1
//三和光标向下移动,光标开始要定位第一个
KeyPress 40,1
//
Next
我看不懂上面的编程,谁给我解释一下 展开
Text = Plugin.File.ReadFileEx("F:\办公\6666.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
Else
//如果文本文件没有内容
MessageBox "文本文件没有内容"
EndScript
End if
For UBound(MyArray)
//下面这句是复制文本内容到剪切板
Call Plugin.Sys.SetCLB(Cstr(MyArray(i)) )
i=i+1
End if
//加入粘贴
KeyDown 17,1
KeyPress 86,1
KeyUp 17,1
//三和光标向下移动,光标开始要定位第一个
KeyPress 40,1
//
Next
我看不懂上面的编程,谁给我解释一下 展开
1个回答
展开全部
把代码复制到按键精灵就有翻译了,主要这句吧:
Text = Plugin.File.ReadFileEx("F:\办公\6666.txt")//读取F盘办公文件夹中的6666文档
MyArray = Split(Text, "|")//把这个些内容分开后得到的默认值为MyArray
If UBound(MyArray)>=0 Then//判断这个文档究竟有没有内容
Text = Plugin.File.ReadFileEx("F:\办公\6666.txt")//读取F盘办公文件夹中的6666文档
MyArray = Split(Text, "|")//把这个些内容分开后得到的默认值为MyArray
If UBound(MyArray)>=0 Then//判断这个文档究竟有没有内容
追问
//三和光标向下移动,光标开始要定位第一个
为什么在网页,或者EXCEL 中使用不了这个脚本呢
追答
不能读死书写死脚本,要灵活变通,你可以修改动作的,既然他给你这样循环读取TXT文档,他只是做个例子而已,输入的动作你自己修改就行,比如EXCEL我们可以直接后台改
Call Plugin.Office.OpenXls("C:\测试.xls")
Call Plugin.Office.WriteXls(1, 1, 2, MyArray(i))
当然,你也可以打开EXCEL修改输入动作
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询