[其他] 把剪切板的内容粘贴为批处理文件：一点贴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
::近乎完美的文件名过滤。
::==========================================

 
@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

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

youxi01

怎么不发布源代码？

honey

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

zcydez

怎么用啊？？？？？？

小河都江堰

谢谢分享。