中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求批处理复制文本内容！

balancel
初级用户

积分 26
发帖 11
注册 2008-9-26
状态离线

『楼主』: 求批处理复制文本内容！

比如有一个a.txt，其内容为abcde，如何批处理复制abcde到剪贴板！盼高手赐教！

2008-10-5 04:05

pooronce
中级用户

积分 484
发帖 250
注册 2007-6-5
状态离线

『第 2 楼』:

type a.txt|clip

clip.exe是2003自带的cmd命令，可将它直接复制到xp下用

2008-10-5 10:45

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 3 楼』:

@echo off

>"%temp%\tmpclip.vbs" echo Set Fso = CreateObject("Scripting.FileSystemObject")

>>"%temp%\tmpclip.vbs" echo Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)

>>"%temp%\tmpclip.vbs" echo strCopy = aFile.ReadAll

>>"%temp%\tmpclip.vbs" echo Set objIE = CreateObject("InternetExplorer.Application")

>>"%temp%\tmpclip.vbs" echo objIE.Navigate("about:blank")

>>"%temp%\tmpclip.vbs" echo objIE.document.parentwindow.clipboardData.SetData "text", strCopy

>>"%temp%\tmpclip.vbs" echo objIE.Quit

cscript.exe //nologo "%temp%\tmpclip.vbs" "C:\test\a.txt"

2008-10-5 12:47

balancel
初级用户

积分 26
发帖 11
注册 2008-9-26
状态离线

『第 4 楼』: 多些楼上高手！

hat版主的代码真难为我这只菜鸟了，版主真不是盖的！
百度到了一个帖子 bat内容是这样：
@echo off
>abc.vbs echo aaa=createobject("scripting.filesystemobject").opentextfile("%1").readall
>>abc.vbs echo Set objIE = CreateObject("InternetExplorer.Application")
>>abc.vbs echo objIE.Navigate("about:blank")
>>abc.vbs echo objIE.document.parentwindow.clipboardData.SetData "text", aaa
>>abc.vbs echo objIE.Quit
>>abc.vbs echo msgbox " 已经复制到剪贴板！",64,"提示！"
abc.vbs&exit
保存为bat，把txt拖放到此bat上执行！试验了也行的通，顺便贴上来呗！
承蒙赐教！虽然不懂，当经典收藏了，哪一天能看懂了再回来研究！
多谢楼上两位！

2008-10-5 14:23

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

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

论坛跳转: