[文件操作] [已解决]批处理如何提取原文件名中的特定字符串重命名该文件

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(".").Files
   Ext = FSO.GetExtensionName(File)
   If LCase(Ext) = "mkv" Then RenFiles
Next
MsgBox "OK"

Sub RenFiles()
   Set Re = New RegExp
   Re.Pattern = "(^.*\[)(\d{2})(\].*$)"
   Re.Global = True
   File.Name = Re.Replace(File.Name,"$2") & ".mkv"
End Sub
复制代码

@echo off
title 音视频文件批量改名工具-by仰天长啸
color 2e
:begin
echo.
echo.
echo.
echo    ╭────────────────────────────────╮
ECHO    │        说  明      本批处理需要放在歌曲文件夹里执行            │
ECHO    │                                                                │
ECHO    │ A. 消除文件名前的数字和其他 (文件范围是 mp3 wma wmv rm rmvb)   │
ECHO    │                                                                │
ECHO    │ b. 消除文件名前的其他       (文件范围是 mp3 wma wmv rm rmvb)   │
ECHO    │                                                                │
ECHO    │ c. 把文件夹名(歌手 连续剧)加到文件前，如果重复可用 A b来消除   │
ECHO    │                                                                │
ECHO    │ Q. 退出             说明：可以根据你的要求来修改不同文件类型   │
ECHO    ╰────────────────────────────────╯
echo.
SET Choice=
SET /P Choice=                  请选择要进行的操作（A  B  Q）回车确定!
ECHO.

IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='A' GOTO qu1
IF /I '%Choice%'=='B' GOTO qu2
IF /I '%Choice%'=='c' GOTO wen
IF /I '%Choice%'=='Q' exit
GOTO begin

:qu1
cls&setlocal  ENABLEDELAYEDEXPANSION
@echo  你的选择包含去掉文件名中的   12345 67890 .
@echo  请输入你额外需要去掉的文件名中的关键词并回车
@echo   无也请回车，在这个界面里同样可以使用输入法：
set /p var=
for %%a in (*.mp3 *.wmv *.wma *.rm*) do (
    set name=%%~na
    set name2=%%~xa
    for %%j in (0 1 2 3 4 5 6 7 8 9 . !var!) do set name=!name:%%j=!
    call ren "%%a" "!name!!name2!"
)
cls
echo.
echo.
echo.
echo.
@echo              已经完成 请核对有什么还需要去掉 可以输入再来一次
echo.
echo.
echo.
echo.
goto begin

:qu2
cls&setlocal  ENABLEDELAYEDEXPANSION
@echo  请输入你需要去掉的文件名中的关键词并回车
set /p var=
for %%a in (*.mp3 *.wmv *.wma *.rm* *.flv) do (
    set name=%%~na
    set name2=%%~xa
    for %%j in (!var!) do set name=!name:%%j=!
    call ren "%%a" "!name!!name2!"
)
cls
echo.
echo.
echo.
echo.
@echo              已经完成 请核对有什么还需要去掉 可以输入再来一次
echo.
echo.
echo.
echo.
goto begin

:wen
cls
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir/b/s/a-d *.mp3 *.wma *.wmv *.rm* *.flv') do (
    set "str=%%~nxi"
    for /f "delims=" %%j in ("%%~dpi.") do (
        set "str=!str:%%~nj-=!"
        ren "%%i" "%%~nj-!str!"
    )
)
echo.
echo.
echo.
echo.
@echo                        已 经 改 名 了，请 核 对 退 出
echo.
echo.
echo.
echo.
goto begin
复制代码