标题: [其他] 把剪切板的内容粘贴为批处理文件:一点贴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
::近乎完美的文件名过滤。
::==========================================-
- @echo off
- Title 批处理一点贴 ver1.6
- color 1f
- SETLOCAL ENABLEDELAYEDEXPANSION
- if "%~1"=="" goto nofind
- :start
- cls
- echo.&echo.&echo.&echo.&echo.
- set /p "name=请输入文件名(%hz%):"
- ::set name="%name%"
- set "name=%name:\=%"
- set "name=%name:/=%"
- set "name=%name:<=%"
- set "name=%name:>=%"
- set "name=%name::=%"
- set "name=%name:?=%"
- set "name=%name:|=%"
- set "name=%name:"=%"
- :begin
- set "trailname=%name:**=%"
- if "%trailname%"=="%name%" goto pass
- set "beginname=!name:%trailname%=!"
- set "beginname=%beginname:~0,-1%"
- set "name=%beginname%%trailname%"
- set "trailname=%name:**=%"
- if not "%trailname%"=="%name%" goto begin
- :pass
- if "%name%"=="" goto err
- set filepath=%~dp1
- winclip -p>"%filepath%%name%.bat"
- start NOTEPAD "%filepath%%name%.bat"
- cls
- exit
- :nofind
- echo.&echo.&echo.&echo.&echo.&echo 本文件用于创建批处理请不要直接运行!!(按任意键退出)
- pause>nul
- exit
- :err
- cls
- echo.&echo.&echo.&echo.&echo.&echo 您未输入文件名或文件名非法被过滤导致文件名为空!!(按任意键继续)
- pause>nul
- 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://bathome.net./) |
Powered by Discuz! 7.2 |