中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-10 00:37
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求批处理复制文本内容! 查看 992 回复 3
楼 主 求批处理复制文本内容! 发表于 2008-10-05 04:05 ·  中国 广东 广州 荔湾区 电信
初级用户
积分 26
发帖 11
注册 2008-09-26 12:44
17年会员
UID 126684
性别 男
状态 离线
比如有一个a.txt,其内容为abcde,如何批处理复制abcde到剪贴板!盼高手赐教!
2 发表于 2008-10-05 10:45 ·  中国 上海 杨浦区 电信
中级用户
★★
积分 484
发帖 250
注册 2007-06-05 23:33
19年会员
UID 90372
性别 男
状态 离线

type a.txt|clip


clip.exe是2003自带的cmd命令,可将它直接复制到xp下用
3 发表于 2008-10-05 12:47 ·  中国 重庆 九龙坡区 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
@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"
4 多些楼上高手! 发表于 2008-10-05 14:23 ·  中国 广东 广州 荔湾区 电信
初级用户
积分 26
发帖 11
注册 2008-09-26 12:44
17年会员
UID 126684
性别 男
状态 离线
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上执行!试验了也行的通,顺便贴上来呗!
承蒙赐教!虽然不懂,当经典收藏了,哪一天能看懂了再回来研究!
多谢楼上两位!
论坛跳转: