中国DOS联盟

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

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

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

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

作者:

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

上一主题 | 下一主题

zeusycq
新手上路

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

『楼主』: vbs怎样把处理好的数据保存到剪贴板?? 使用 LLM 解释/回答一下

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

2008-6-26 16:22

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

HAT
版主

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

『第 2 楼』: 使用 LLM 解释/回答一下

@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 楼』: 使用 LLM 解释/回答一下

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

2008-6-26 17:00

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

HAT
版主

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

『第 4 楼』: 使用 LLM 解释/回答一下

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 楼』: 使用 LLM 解释/回答一下

终于知道了,谢谢你了

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

就可以实现了

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

2008-6-26 17:25

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

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

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

论坛跳转: