Board logo

标题: 求批处理复制文本内容！ [打印本页]
作者: balancel     时间: 2008-10-5 04:05    标题: 求批处理复制文本内容！
比如有一个a.txt，其内容为abcde，如何批处理复制abcde到剪贴板！盼高手赐教！
作者: pooronce     时间: 2008-10-5 10:45
type a.txt|clip
clip.exe是2003自带的cmd命令，可将它直接复制到xp下用
作者: HAT     时间: 2008-10-5 12:47
@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"
作者: balancel     时间: 2008-10-5 14:23    标题: 多些楼上高手！
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上执行！试验了也行的通，顺便贴上来呗！ 承蒙赐教！虽然不懂，当经典收藏了，哪一天能看懂了再回来研究！ 多谢楼上两位！