@echo off
::ver beat1.3[20061213]
setlocal enabledelayedexpansion
mode con lines=26
color 1f
for /f "delims=" %%i in ("%0") do set cdname=%%~dpi
:star
cls
title 批量文件改名
echo.
echo         ==============================================================
echo.
echo                             批量文件改名 测试版
echo.
echo                    欢迎使用,请选择选项(1,2,3,4,5,6,7,8)
echo.
echo                               1.简单改名
echo                               2.剔除字符
echo                               3.添加字符
echo                               4.替换字符
echo                               5.改扩展名
echo                               6.使用帮助
echo                               7.关于作者
echo                               8.退    出
echo                               9.设置路径
echo                               0.返回菜单
echo.
echo                    工作路径：%cdname%
echo.
echo                             kuvod.bokee.com
echo         ==============================================================
echo.
set no=:
set /p no=              请选择：
set "no=%no:"=%"
if "%no%"==":" goto star
if "%no%"=="1" goto 1
if "%no%"=="2" goto 2
if "%no%"=="3" goto 3
if "%no%"=="4" goto 4
if "%no%"=="5" goto 5
if "%no%"=="6" goto 6
if "%no%"=="7" goto 7
if "%no%"=="8" goto 8
if "%no%"=="9" goto 9
if "%no%"=="0" goto 0
goto star
:1
cls
title 批量文件改名-简单改名
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-简单改名
echo.
echo                 简单改名：一般用于多集电视剧或者多个文件批量改名。
echo                 例    子：如：[YYSoR]那天 台风01.语 字.d-vb.rmvb
echo                           结果为：01.rmvb
echo                 注意事项：1。不接纳文件名中出现多个“1”的文件
echo                           2。支持拖放文件，拖放不用设置路径
echo                           3。如未设置路径，使用默认路径
echo.
echo                 工作路径：%cdname%
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
set oldname=:
set /p oldname=           请输入旧的文件名(第一集)：
set "oldname=%oldname:"=%"
if "%oldname%"==":" goto 1
if "%oldname%"=="8" goto 8
if "%oldname%"=="0" goto 0
if "%oldname%"=="1" goto no
for /f "tokens=1* delims=1" %%i in ("%oldname%") do (
                                                      set name=%%~nxi
                                                      set name1=%%~nj
                                                      set cdname=%%~dpi
                                                      )
if "%cdname%"=="" goto no
cd /d %cdname% 
dir /s/b/a-d . |find "%oldname%" >nul|| goto no
echo %name1% |find "1" >nul && goto no
if "%name%"=="" goto no
if "%name:~-1%"=="0" set "name=%name:~0,-1%"
if "%name%"=="" goto no
if "%name:~-1%"=="0" set "name=%name:~0,-1%"
if "%name%"=="" goto no
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do (
    set var=%%~nxi
    set "var=!var:%name%=!"
    ren "%%i" "!var!" >nul 2>nul
)
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do (
    set var=%%~nxi
    set "var=!var:%name1%=!"
    ren "%%i" "!var!" >nul 2>nul
)
goto ok
:2
cls
title 批量文件改名-剔除字符
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-剔除字符
echo.
echo                 剔除字符：一般用于多个文件批量剔除指定字符串改名。
echo                 例    子：如：[YYSoR]那天 台风01.语 字.d-vb.rmvb
echo                           替换：vb
echo                           结果：[YYSoR]那天 台风01.语 字.d-.rm
echo                 注意事项：1。字符串区分大小写，支持替换空格
echo                           2。剔除范围包括文件扩展名
echo                           3。不支持特殊字符/\:*"?|<>    
echo.
echo                 工作路径：%cdname%                          
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
set oldname=:
set /p oldname=           请输入要剔除的字符串(区分大小写)：
set "oldname=%oldname:"=%"
if "%oldname%"==":" goto 2
if "%oldname%"=="8" goto 8
if "%oldname%"=="0" goto 0
dir /s/b/a-d . |find "%oldname%" >nul|| goto no
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do (
    set var=%%~nxi
    set "var=!var:%oldname%=!"
    echo %%i |find "批量文件改名.bat" >nul ||ren "%%i" "!var!" >nul 2>nul
)
goto ok
:3
cls
title 批量文件改名-添加字符
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-添加字符
echo.
echo                 添加字符：一般用于多个文件批量添加指定字符串改名。
echo                 例    子：如：那天 台风01.语 字.d-vb.rmvb
echo                           添加：[YYSoR]
echo                           结果：[YYSoR]那天 台风01.语 字.d-vb.rmvb
echo                 注意事项：1。字符串区分大小写，支持添加“ ”“.”
echo                           2。添加的字符都在原文件名首部 
echo                           3。不支持特殊字符/\:*"?|<> 
echo.
echo                 工作路径：%cdname%                        
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
set newname=:
set /p newname=           请输入要添加的字符串：
set "newname=%newname:"=%"
if "%newname%"==":" goto 3
if "%newname%"=="8" goto 8
if "%newname%"=="0" goto 0
dir /s/b/a-d . |find /v "批量文件改名.bat" >nul|| goto no
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do echo %%i |find "批量文件改名.bat" >nul ||ren "%%i" "%newname%%%~nxi" >nul 2>nul
goto ok
:4
cls
title 批量文件改名-替换字符
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-替换字符
echo.
echo                 替换字符：一般用于多个文件批量替换指定字符串改名。
echo                 例    子：如：[YYSoR]那天 台风01.语 字.d-vb.rmvb
echo                           查找：[YYSoR]
echo                           替换：[China]
echo                           结果：[China]那天 台风01.语 字.d-vb.rmvb
echo                 注意事项：1。字符串区分大小写，支持替换“ ”“.”
echo                           2。替换范围包括文件扩展名
echo                           3。不支持特殊字符/\:*"?|<> 
echo.
echo                 工作路径：%cdname%                        
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
set oldname=:
set /p oldname=           请输入要查找的字符串：
set "oldname=%oldname:"=%"
if "%oldname%"==":" goto 4
if "%oldname%"=="8" goto 8
if "%oldname%"=="0" goto 0
echo.
set newname=:
set /p newname=           请输入要替换的字符串：
set "newname=%newname:"=%"
if "%newname%"==":" goto 4
if "%newname%"=="8" goto 8
if "%newname%"=="0" goto 0
dir /s/b/a-d . |find "%oldname%" >nul|| goto no
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do (
    set var=%%~nxi
    set "var=!var:%oldname%=%newname%!"
    echo %%i |find "批量文件改名.bat" >nul ||ren "%%i" "!var!" >nul 2>nul
)
goto ok
:5
cls
title 批量文件改名-改扩展名
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-改扩展名
echo.
echo                 修改后缀：一般用于多个文件批量修改后缀（文件扩展名）。
echo                 例    子：如：[YYSoR]那天 台风01.语 字.d-vb.rmvb
echo                           新扩展名：rm
echo                           结果：[YYSoR]那天 台风01.语 字.d-vb.rm
echo                 注意事项：1。字符串区分大小写，支持替换“ ”“.”
echo                           2。替换范围只是文件扩展名
echo                           3。删除扩展名请输入空格 
echo                           3。不支持特殊字符/\:*"?|<> 
echo.
echo                 工作路径：%cdname%                        
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
set newname=:
set /p newname=           请输入新的扩展名：
set "newname=%newname:"=%"
if "%newname%"==":" goto 5
if "%newname%"=="8" goto 8
if "%newname%"=="0" goto 0
dir /s/b/a-d . |find /v "批量文件改名.bat" >nul|| goto no
for /f "usebackq delims=" %%i in (`dir /s/b/a-d .`) do (
    set var=%%~nxi
    set "var=!var:%%~xi=.%newname%!"
    echo %%i |find "批量文件改名.bat" >nul ||ren "%%i" "!var!" >nul 2>nul ||ren "%%i" "%%~ni.%newname%"
)
goto ok
:6
cls
title 批量文件改名-帮助
echo.
echo         ==============================================================
echo.
echo                             批量文件改名 测试版
echo.
echo            1.简单改名：对于相对简单、类似的文件的改名。如：电视剧等
echo            2.剔除字符：剔除文件名中指定字符或字符串
echo            3.添加字符：增加指定字符或字符串在原文件名的首部
echo            4.替换字符：替换文件名中指定字符
echo            5.改扩展名：修改原文件的扩展名
echo            6.使用帮助：请将此程序放在需要改名文件的目录内使用
echo            7.关于作者：程序作者联系方式
echo            8.退    出：退出程序
echo            9.设置路径：设置该程序工作路径。默认为此程序所在路径
echo            0.返回菜单：返回程序主菜单
echo.
echo                            任意键返回主菜单 
echo.
echo                             kuvod.bokee.com
echo         ==============================================================
echo.
pause >nul
goto star
:7
cls
title 批量文件改名-关于作者
echo.
echo         ==============================================================
echo.
echo                             批量文件改名 测试版
echo.
echo               本软件为免费软件欢迎大家使用~！
echo               此软件用批处理写成，软件现在为测试阶段，难免存在错误。
echo               欢迎大家提出宝贵意见，以便本人及时改进。
echo               本人不会编程，但是是个批处理狂热爱好者，希望和您交流。
echo               学习过程中得到大家不少帮助.
echo.           
echo.           
echo                          QQ：16073723
echo.
echo                            任意键返回主菜单   
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
pause >nul
goto star
:8
title 批量文件改名-Good Luck
cls
echo.
echo         ==============================================================
echo.
echo.
echo.
echo                                  Good Luck
echo.
echo.
echo.
echo.
echo.
echo                                   Bye~~
echo.
echo.
echo.
echo         ==============================================================
echo.
ping -n 3 127.0.0.1 >nul
exit
:9
cls
title 批量文件改名-设置路径
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-设置路径
echo.
echo                 设置路径：设置程序工作路径。
echo                 例    子：如：c:\windows
echo                           结果：程序会在"c:\windows"目录下工作
echo                                 包含子目录。
echo                 注意事项：1。直接回车使用当前工作路径
echo                           2。所有工作包含子目录
echo                           3。支持拖放目录 
echo.
echo                 工作路径：%cdname%                        
echo.
echo               8.退    出         9.设置路径         0.返回菜单
echo.
echo.                            bbs.cn-dos.net
echo         ==============================================================
echo.
set /p cdname=           请输入路径：
set "cdname=%cdname:"=%"
if "%cdname%"=="8" goto 8
if "%cdname%"=="0" goto 0
:if "%cdname:~-1%"=="\" set "cdname=%cdname:~0,-1%"
:for /f "delims=" %%i in ("%cdname%\") do set !cdname!=%%~dpi
if exist "%cdname%" (cd /d "%cdname%" >nul 2>nul && set "%cdname%=%cd%" || goto no) else goto no
goto star
:0
cls
goto star
:no
cls
title 批量文件改名-错误信息
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-错误信息
echo.
echo                 1。此文件、路径不存在或者不适合此方式改名
echo                 2。或者您的输入含有特殊字符/\:*"?|<>
echo                 3。请尝试其他方式
echo.
echo                 工作路径：%cdname%                        
echo.
echo                            任意键返回主菜单         
echo.
echo.                            bbs.cn-dos.net
echo         ==============================================================
echo.
pause >nul
goto star
:ok
cls
title 批量文件改名-任务完成
echo.
echo         ==============================================================
echo.
echo                             批量文件改名-任务完成
echo.
echo                      1。恭喜，恭喜，所有任务已完成
echo                      2。任意键打开已完成工作目录！
echo.
echo                      工作路径：%cdname%                        
echo.
echo                            任意键返回主菜单         
echo.
echo.                            kuvod.bokee.com
echo         ==============================================================
echo.
pause >nul
start %cdname%
goto star