把剪切板的内容粘贴为批处理文件：一点贴1.7

honey

::==========================================
::批处理一点贴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. 
   
2. @echo off
   
3. Title 批处理一点贴 ver1.6
   
4. color 1f
   
5. SETLOCAL ENABLEDELAYEDEXPANSION
   
6. if "%~1"=="" goto nofind
   
7. :start
   
8. cls
   
9. echo.&echo.&echo.&echo.&echo.
   
10. set /p "name=请输入文件名(%hz%):"
    
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. set "name=%name:"=%"
    
20. :begin
    
21. set "trailname=%name:**=%"
    
22. if "%trailname%"=="%name%" goto pass
    
23. set "beginname=!name:%trailname%=!"
    
24. set "beginname=%beginname:~0,-1%"
    
25. set "name=%beginname%%trailname%"
    
26. set "trailname=%name:**=%"
    
27. if not "%trailname%"=="%name%" goto begin
    
28. :pass
    
29. if "%name%"=="" goto err
    
30. set filepath=%~dp1
    
31. winclip -p>"%filepath%%name%.bat"
    
32. start NOTEPAD "%filepath%%name%.bat"
    
33. cls
    
34. exit
    
35. :nofind
    
36. echo.&echo.&echo.&echo.&echo.&echo 本文件用于创建批处理请不要直接运行！！（按任意键退出）
    
37. pause>nul
    
38. exit
    
39. :err
    
40. cls
    
41. echo.&echo.&echo.&echo.&echo.&echo 您未输入文件名或文件名非法被过滤导致文件名为空!!（按任意键继续）
    
42. pause>nul
    
43. goto start

复制代码

链接: https://pan.baidu.com/s/1o0HQIFjvHq80o6iLhWC-nw 提取码: szqd

Batcher

建议把batclip.cmd和setup.bat的源代码贴出来，以便他人查看。

youxi01

怎么不发布源代码？

honey

顶上去，更新个！..........

zcydez

怎么用啊？？？？？？

小河都江堰

谢谢分享。