中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-09 01:23

共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行

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

可打印版本　724 / 4

第1楼　zeusycq	发表于 2008-06-26 16:22
新手上路　发帖 3　积分 8
vbs怎样把处理好的数据保存到剪贴板?? vbs怎样把处理好的数据保存到剪贴板??

第2楼　HAT	发表于 2008-06-26 16:38
版主　发帖 5,017　积分 9,023
@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

第3楼　zeusycq	发表于 2008-06-26 17:00
新手上路　发帖 3　积分 8
不懂??我文件是vbs的格式,运行错误

第4楼　HAT	发表于 2008-06-26 17:09
版主　发帖 5,017　积分 9,023
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上

第5楼　zeusycq	发表于 2008-06-26 17:25
新手上路　发帖 3　积分 8
终于知道了,谢谢你了 strCopy = "." Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", strCopy 就可以实现了怎么我加上objIE.Quit会错误,少了就正常,这句有什么用?

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023