[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统增强] 批处理拷贝文件(夹)到剪贴板

  1. @echo off
  2. call :cf2cb "%comspec%"
  3. exit /b
  4. ::CopyFile2ClipBoard
  5. :cf2cb
  6. setlocal
  7. set "f=%~1"
  8. set "f=%f:\=/%"
  9. mshta "javascript:'<script language="vbscript">moveto screen.width,0:document.write "^<img"+chr(32)+"src=""%f%""^>":with document.body.createControlRange:.add document.getElementsByTagName("img")(0):.execCommand "Copy":end with:close</script>'"
  10. goto :eof
复制代码
————————————————————————————————————

Update 2009-4-20 17:45
修正路径中含空格不能复制的bug;
发现也可复制文件夹(包括里面的文件(夹))。
  1. @echo off
  2. call :c2cb "c:\a\a a"
  3. exit /b
  4. ::Copy2ClipBoard
  5. :c2cb
  6. setlocal
  7. set "f=%~1"
  8. set "f=%f:\=/%"
  9. set "f=%f: =r%"
  10. mshta "javascript:'<script language="vbscript">moveto screen.width,0:document.write Replace("^<imgrid=""x""rsrc=""%f%""^>","r",chr(32)):with document.body.createControlRange:.add x:.execCommand "Copy":end with:close</script>'"
  11. goto :eof
复制代码
——————————————————————————————————
Update 2009-4-24 14:20
优化了代码(参考7L代码)
  1. @echo off
  2. call :c2cb "%ProgramFiles%\microsoft frontpage"
  3. exit /b
  4. ::Copy2ClipBoard
  5. :c2cb
  6. setlocal
  7. set "f=%~1"
  8. set "f=%f:\\=\%"
  9. set "f=%f:\=\\%"
  10. mshta "javascript:moveTo(screen.width,0);document.write('<img id=\'x\' src=\'%f%\'>');i=document.body.createControlRange();i.add(x);i.execCommand('copy');close()"
  11. goto :eof
复制代码
3

评分人数

批处理拷贝文件(夹)到剪贴板

TOP

回复 7楼 的帖子

兄的代码可以不用替换空格

TOP

我对html和javascript也没怎么研究
  1. @echo off
  2. call :cf2cb "%ProgramFiles%\microsoft frontpage"
  3. exit /b
  4. ::CopyFile2ClipBoard
  5. :cf2cb
  6. setlocal enableDelayedExpansion
  7. set "f=%~1"
  8. set "f=%f:\=\\%"
  9. set "f=!f: =%%20!"
  10. mshta "javascript:moveTo(screen.width,0);document.write('<img src=\'%f%\'>');i=document.body.createControlRange();i.add(document.getElementsByTagName('img')[0]);i.execCommand('copy');close();"
  11. goto :eof
复制代码
1

评分人数

    • rat:技术 + 1
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

回复 5楼 的帖子

比较熟悉vbscript,没试过javascript,兄试试?

TOP

没必要再用vbscript吧。
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

TOP

调用万能的JS。。。

话说VBS不行么,HTA有clipboard对象的吧。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

牛!怎么实现的?那一堆代码根本看不懂。。
技术问题请到论坛发帖求助!

TOP

返回列表