Board logo

标题: [其他] 把剪切板的内容粘贴为批处理文件:一点贴1.7 [打印本页]

作者: honey    时间: 2009-3-13 18:43     标题: 把剪切板的内容粘贴为批处理文件:一点贴1.7

::==========================================
::批处理一点贴ver1.7  作者:honey
::一个能把剪切板的内容粘贴为批处理文件的工具
::1.0 -2008.12.02
::每次在论坛看到别人的写的代码,要测试总要新
::建一个文本文档,然后重命名。于是写了这个小
::程序!
::1.1 -2008.12.25
::增加了自定义文件名功能!
::1.2 -2009.01.02
::感谢 lq 对上一版本的试用,提出验证输入文件
::名
::增加了验证输入文件名功能。。。
::1.3 -2009.01.09
::解决上一版本的* <>过滤的错误
::使用正则表达式过滤输入文件名
::1.4 -2009.01.10
::解决使用正则表达式过滤导致部分合法文件名被
::过滤。使用新正则表达式。
::1.5 -2009.01.16
::解决使用正则表达式过滤<>出现问题
::改为变量替换法
::1.6 -2009.01.16
::从sendto+受到了启发改进了过滤*,顺便解决了
::,的问题
::1.7 -2009.12.05
::近乎完美的文件名过滤。
::==========================================
  1. @echo off
  2. Title 批处理一点贴 ver1.6
  3. color 1f
  4. SETLOCAL ENABLEDELAYEDEXPANSION
  5. if "%~1"=="" goto nofind
  6. :start
  7. cls
  8. echo.&echo.&echo.&echo.&echo.
  9. set /p "name=请输入文件名(%hz%):"
  10. ::set name="%name%"
  11. set "name=%name:\=%"
  12. set "name=%name:/=%"
  13. set "name=%name:<=%"
  14. set "name=%name:>=%"
  15. set "name=%name::=%"
  16. set "name=%name:?=%"
  17. set "name=%name:|=%"
  18. set "name=%name:"=%"
  19. :begin
  20. set "trailname=%name:**=%"
  21. if "%trailname%"=="%name%" goto pass
  22. set "beginname=!name:%trailname%=!"
  23. set "beginname=%beginname:~0,-1%"
  24. set "name=%beginname%%trailname%"
  25. set "trailname=%name:**=%"
  26. if not "%trailname%"=="%name%" goto begin
  27. :pass
  28. if "%name%"=="" goto err
  29. set filepath=%~dp1
  30. winclip -p>"%filepath%%name%.bat"
  31. start NOTEPAD "%filepath%%name%.bat"
  32. cls
  33. exit
  34. :nofind
  35. echo.&echo.&echo.&echo.&echo.&echo 本文件用于创建批处理请不要直接运行!!(按任意键退出)
  36. pause>nul
  37. exit
  38. :err
  39. cls
  40. echo.&echo.&echo.&echo.&echo.&echo 您未输入文件名或文件名非法被过滤导致文件名为空!!(按任意键继续)
  41. pause>nul
  42. goto start
复制代码
链接: https://pan.baidu.com/s/1o0HQIFjvHq80o6iLhWC-nw 提取码: szqd
作者: Batcher    时间: 2009-3-13 20:30

建议把batclip.cmd和setup.bat的源代码贴出来,以便他人查看。
作者: youxi01    时间: 2009-3-13 20:52

怎么不发布源代码?
作者: honey    时间: 2009-12-5 22:25

顶上去,更新个!..........
作者: zcydez    时间: 2010-3-4 20:10

怎么用啊??????
作者: 小河都江堰    时间: 2013-1-12 11:26

谢谢分享。




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2