标题: [已结]vbs 可以把字符串复制到WINDOWS的剪切板吗？ [打印本页]
作者: huzixuan 时间: 2007-11-8 19:38 标题: [已结]vbs 可以把字符串复制到WINDOWS的剪切板吗？
比如指定一 test.txt ,内有字符串若干.
读其中某一行,自动复制进剪切板?
谢谢各位已解决.
[ Last edited by huzixuan on 2007-11-10 at 09:24 AM ]
作者: lxmxn 时间: 2007-11-8 21:13
可以，搜索3742668版主相关的帖子。
作者: huzixuan 时间: 2007-11-8 21:30
lxmxn斑竹
确实没搜到
作者: lxmxn 时间: 2007-11-8 21:31
我来搜搜看。。
作者: abcd 时间: 2007-11-8 21:58
应该是用internetexplorer.application对象clipboard.setdata
作者: huzixuan 时间: 2007-11-9 08:27
lxmxn斑竹 abcd 兄,二位会不会用啊,我搜了一下帮助 都找不到帮助
作者: abcd 时间: 2007-11-9 10:05
我说的是创建一个internetexplorer.application对象
然后利用这个对象中的clipboarddata对象的getdata和setdata方法来实现
不过缺点是会打开一个ie窗口
例如：
set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=false
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("test.txt",1)
ie.document.parentwindow.clipboarddata.setdata "text",""
do while f.atendofstream <> true
line = f.readline
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.document.parentwindow.clipboarddata.setdata "text",str+vbCrLf+line
loop
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.quit
msgbox str
[ Last edited by abcd on 2007-11-9 at 11:00 AM ]ie.navigate "about:blank"
ie.visible=false
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("test.txt",1)
ie.document.parentwindow.clipboarddata.setdata "text",""
do while f.atendofstream <> true
line = f.readline
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.document.parentwindow.clipboarddata.setdata "text",str+vbCrLf+line
loop
str=ie.document.parentwindow.clipboarddata.getdata("text")
ie.quit
msgbox str
作者: huzixuan 时间: 2007-11-9 10:42
上面的代码运行了一下说, 4行1 未知的错误
作者: abcd 时间: 2007-11-9 11:01
忘了自己是已经打开IE的，
修改过，再测试一下？
先关闭所有的IE，再测试
作者: yjq635 时间: 2007-11-9 12:10
这个不是我写的，，可以用，，
text='变量
CopyToClipBoard text
Sub CopyToClipBoard(Text)‘函数
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", Text 'GetData可以获得内容
objIE.Quit
End Sub
作者: dddyjq1 时间: 2008-11-16 00:49
好东东，好东东，