vbs怎样把处理好的数据保存到剪贴板??
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs怎样把处理好的数据保存到剪贴板??
楼 主
vbs怎样把处理好的数据保存到剪贴板??
发表于 2008-06-26 16:22 · 中国 广东 深圳 电信
第 2 楼
发表于 2008-06-26 16:38 · 美国 惠普HP
@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 楼
发表于 2008-06-26 17:00 · 中国 广东 深圳 电信
不懂??我文件是vbs的格式,运行错误
第 4 楼
发表于 2008-06-26 17:09 · 美国 惠普HP
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 楼
发表于 2008-06-26 17:25 · 中国 广东 深圳 电信
终于知道了,谢谢你了
strCopy = "."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
就可以实现了
怎么我加上objIE.Quit会错误,少了就正常,这句有什么用?
strCopy = "."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
就可以实现了
怎么我加上objIE.Quit会错误,少了就正常,这句有什么用?
论坛跳转: