中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs怎样把处理好的数据保存到剪贴板??

zeusycq
新手上路

积分 8
发帖 3
注册 2008-6-26
状态离线

『楼主』: vbs怎样把处理好的数据保存到剪贴板??

vbs怎样把处理好的数据保存到剪贴板??

2008-6-26 16:22

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 2 楼』:

@echo off

>tmp.vbs echo Set Fso = CreateObject("Scripting.FileSystemObject")

>>tmp.vbs echo Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)

>>tmp.vbs echo strCopy = aFile.ReadAll

>>tmp.vbs echo Set objIE = CreateObject("InternetExplorer.Application")

>>tmp.vbs echo objIE.Navigate("about:blank")

>>tmp.vbs echo objIE.document.parentwindow.clipboardData.SetData "text", strCopy

>>tmp.vbs echo objIE.Quit

Cscript.exe //nologo tmp.vbs "C:\test\a.txt"

del /q tmp.vbs

2008-6-26 16:38

zeusycq
新手上路

积分 8
发帖 3
注册 2008-6-26
状态离线

『第 3 楼』:

不懂??我文件是vbs的格式,运行错误

2008-6-26 17:00

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 4 楼』:

Set Fso = CreateObject("Scripting.FileSystemObject")

Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)

strCopy = aFile.ReadAll

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

objIE.document.parentwindow.clipboardData.SetData "text", strCopy

objIE.Quit

保存为xxx.vbs
找个txt文档拖放到xxx.vbs上

2008-6-26 17:09

zeusycq
新手上路

积分 8
发帖 3
注册 2008-6-26
状态离线

『第 5 楼』:

终于知道了,谢谢你了

strCopy = "."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy

就可以实现了

怎么我加上objIE.Quit会错误,少了就正常,这句有什么用?

2008-6-26 17:25

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: