中国DOS联盟

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

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

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

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

DOS批处理 & 脚本技术（批处理室） » [已结]vbs 可以把字符串复制到WINDOWS的剪切板吗？

可打印版本　1,557 / 10

第1楼　huzixuan	发表于 2007-11-08 19:38
高级用户　发帖 219　积分 537　来自芜湖
[已结]vbs 可以把字符串复制到WINDOWS的剪切板吗？比如指定一 test.txt ,内有字符串若干. 读其中某一行,自动复制进剪切板? 谢谢各位已解决. [ Last edited by huzixuan on 2007-11-10 at 09:24 AM ]

第2楼　lxmxn	发表于 2007-11-08 21:13
版主　发帖 4,938　积分 11,386
可以，搜索3742668版主相关的帖子。

第3楼　huzixuan	发表于 2007-11-08 21:30
高级用户　发帖 219　积分 537　来自芜湖
lxmxn斑竹确实没搜到

第4楼　lxmxn	发表于 2007-11-08 21:31
版主　发帖 4,938　积分 11,386
我来搜搜看。。

第5楼　abcd	发表于 2007-11-08 21:58
银牌会员　发帖 739　积分 1,436
应该是用internetexplorer.application对象clipboard.setdata

第6楼　huzixuan	发表于 2007-11-09 08:27
高级用户　发帖 219　积分 537　来自芜湖
lxmxn斑竹 abcd 兄,二位会不会用啊,我搜了一下帮助都找不到帮助

第7楼　abcd	发表于 2007-11-09 10:05
银牌会员　发帖 739　积分 1,436
我说的是创建一个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 ]

第8楼　huzixuan	发表于 2007-11-09 10:42
高级用户　发帖 219　积分 537　来自芜湖
上面的代码运行了一下说, 4行1 未知的错误

第9楼　abcd	发表于 2007-11-09 11:01
银牌会员　发帖 739　积分 1,436
忘了自己是已经打开IE的，修改过，再测试一下？先关闭所有的IE，再测试

第10楼　yjq635	发表于 2007-11-09 12:10
初级用户　发帖 42　积分 109
这个不是我写的，，可以用，， 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

第11楼　dddyjq1	发表于 2008-11-16 00:49
初级用户　发帖 108　积分 175
好东东，好东东，

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