中国DOS联盟

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

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

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

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

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『楼主』: [已结]vbs 可以把字符串复制到WINDOWS的剪切板吗？

比如指定一 test.txt ,内有字符串若干.
读其中某一行,自动复制进剪切板?
谢谢各位已解决.

[ Last edited by huzixuan on 2007-11-10 at 09:24 AM ]

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-11-8 19:38

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 2 楼』:

可以，搜索3742668版主相关的帖子。

2007-11-8 21:13

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『第 3 楼』:

lxmxn斑竹
确实没搜到

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-11-8 21:30

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 4 楼』:

我来搜搜看。。

此帖被 +1 点积分

点击查看详情

2007-11-8 21:31

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 5 楼』:

应该是用internetexplorer.application对象clipboard.setdata

2007-11-8 21:58

(470237592)

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『第 6 楼』:

lxmxn斑竹 abcd 兄,二位会不会用啊,我搜了一下帮助都找不到帮助

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-11-9 08:27

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 7 楼』:

我说的是创建一个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 ]

此帖被 +3 点积分

点击查看详情

2007-11-9 10:05

(470237592)

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『第 8 楼』:

上面的代码运行了一下说, 4行1 未知的错误

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-11-9 10:42

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 9 楼』:

忘了自己是已经打开IE的，

修改过，再测试一下？

先关闭所有的IE，再测试

2007-11-9 11:01

(470237592)

yjq635
初级用户

积分 109
发帖 42
注册 2007-5-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

此帖被 +4 点积分

点击查看详情

2007-11-9 12:10

dddyjq1
初级用户

积分 175
发帖 108
注册 2008-5-19
状态离线

『第 11 楼』:

好东东，好东东，

2008-11-16 00:49

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

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

论坛跳转: