按键精灵 复制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
我看不懂上面的编程,谁给我解释一下
展开
 我来答
店若器M
游戏玩家

2012-03-04 · 非著名电竞玩家
知道大有可为答主
回答量:1万
采纳率:75%
帮助的人:2692万
展开全部
把代码复制到按键精灵就有翻译了,主要这句吧:
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修改输入动作
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式