【已解决】批处理对电影目录及所有子目录文件名进行批量改名的求助

thp2008

我有这样一个需求：
就是长时间的下载了很多电影，现在需要对其进行整理，命令规范。需要根据List.TXT的关键字，按照从上到下的顺序，将所有电影名称中的这些关键字删除掉。一定要注意，List.TXT的关键字必须是从上到下的顺序。

需求一：
改名的批处理，我有个现成的，单独操作是可以的，现在想结合List.txt自动操作。请帮我结合修改一下。

改名的批处理：

1. @echo off
   
2. setlocal
   
3. 
   
4. set /p oldname=请输入批量改名中需要更换的重复部分：
   
5. set /p newname=请输入新的替换后的部分：
   
6. set /p wildcard=请输入文件名通配符列表（缺省为所有文件，即“*”）：
   
7. 
   
8. for /f "usebackq delims=" %%i in (`dir /s/b/a-d %wildcard%`) do (
   
9. setlocal enabledelayedexpansion
   
10. 
    
11. set var=%%~nxi
    
12. set "var=!var:%oldname%=%newname%!"
    
13. 
    
14. if not "%%~nxi"=="!var!" (echo 正在改名："%%i" =》 "!var!")
    
15. echo %%i |find "mutiren.bat" >nul || ren "%%i" "!var!" >nul
    
16. 
    
17. endlocal
    
18. )
    
19. 
    
20. endlocal

复制代码

List.txt 的内容如下：

1. .中文字幕
   
2. .韩语中字
   
3. .中英双字
   
4. .中英双字幕
   
5. .英语中字
   
6. .俄语中字
   
7. .日语中字
   
8. .粤语中字
   
9. .法语中字
   
10. .高清中字
    
11. .国语中字
    
12. .德语中字
    
13. .国俄双语
    
14. .国波双语中字
    
15. .俄英双语双字
    
16. .国英双语双字
    
17. .国粤英三语中字
    
18. .国粤英三语.中英双字幕
    
19. .国英双语.中英双字幕
    
20. .日英双语.中英双字幕
    
21. .泰语中字
    
22. .法粤双语中字
    
23. .韩版中英双字幕
    
24. .国日双语中字
    
25. .法语中英双字
    
26. .国粤双语.中英双字幕
    
27. .国语中英双字
    
28. .英国粤三语双字
    
29. .国粤英三语双字
    
30. .西班牙语中字
    
31. .国粤日三语中字
    
32. .意大利语中字
    
33. .国法双语中字
    
34. .BD1280高清中字
    
35. .国粤双语中字
    
36. .国英双语中字
    
37. .国英双语双字
    
38. .国印双语中字
    
39. .BD粤语中字
    
40. .日语中英双字
    
41. -国语
    
42. .BD幕
    
43. .1080p幕
    
44. .720p幕
    
45. .216p幕
    
46. .中字
    
47. 加长版
    
48. 电影版
    
49. 导演剪辑版
    
50. .BD
    
51. .HD
    
52. [
    
53. ]
    

复制代码

需求二：
上面的删除关键字操作完成后，还需要对以下三种情况进行替换操作。

1、就是将所有文件名中的冒号“：”换成 点 “.”
2、就是将所有文件名中的"4K" 换成 “2160P”
3、就是将所有文件名中的连续两个点".." 替换成一个点"."

我每项单独操作是没有问题的，就是想，把这些功能，写成一个批处理。还请大侠们帮忙，万分感谢！

thp2008

我自已折腾了一个，后面三段是可以的,满足需求二。但是第一段A001，执行后，也没有报错，但是没有改名。还请帮我解决一下，谢谢！

1. @echo off
   
2. 
   
3. :A001
   
4. setlocal
   
5. for /f %%a in (List.txt) do set oldname=%%a
   
6. set newname=
   
7. for /f "usebackq delims=" %%i in (`dir /s/b/a-d *`) do (
   
8. setlocal enabledelayedexpansion
   
9. set var=%%~nxi
   
10. set "var=!var:%oldname%=%newname%!"
    
11. if not "%%~nxi"=="!var!" (echo 正在改名："%%i" =》 "!var!")
    
12. echo %%i |find "mutiren.bat" >nul || ren "%%i" "!var!" >nul
    
13. endlocal
    
14. )
    
15. endlocal
    
16. 
    
17. :A002
    
18. setlocal
    
19. set oldname=4K
    
20. set newname=2160P
    
21. for /f "usebackq delims=" %%i in (`dir /s/b/a-d *`) do (
    
22. setlocal enabledelayedexpansion
    
23. set var=%%~nxi
    
24. set "var=!var:%oldname%=%newname%!"
    
25. if not "%%~nxi"=="!var!" (echo 正在改名："%%i" =》 "!var!")
    
26. echo %%i |find "mutiren.bat" >nul || ren "%%i" "!var!" >nul
    
27. endlocal
    
28. )
    
29. endlocal
    
30. 
    
31. :A003
    
32. setlocal
    
33. set oldname=：
    
34. set newname=.
    
35. for /f "usebackq delims=" %%i in (`dir /s/b/a-d *`) do (
    
36. setlocal enabledelayedexpansion
    
37. set var=%%~nxi
    
38. set "var=!var:%oldname%=%newname%!"
    
39. if not "%%~nxi"=="!var!" (echo 正在改名："%%i" =》 "!var!")
    
40. echo %%i |find "mutiren.bat" >nul || ren "%%i" "!var!" >nul
    
41. endlocal
    
42. )
    
43. endlocal
    
44. 
    
45. :A004
    
46. setlocal
    
47. set oldname=..
    
48. set newname=.
    
49. for /f "usebackq delims=" %%i in (`dir /s/b/a-d *`) do (
    
50. setlocal enabledelayedexpansion
    
51. set var=%%~nxi
    
52. set "var=!var:%oldname%=%newname%!"
    
53. if not "%%~nxi"=="!var!" (echo 正在改名："%%i" =》 "!var!")
    
54. echo %%i |find "mutiren.bat" >nul || ren "%%i" "!var!" >nul
    
55. endlocal
    
56. )
    
57. endlocal

复制代码

77七

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in ('dir /b /s /a-d *.mp4') do (
   
4.         set "name=%%~nxi"
   
5.         for /f "delims=" %%a in ('type "List.TXT"') do (
   
6.                 set "name=!name:%%a=!"
   
7.         )
   
8.         ren "%%i" "!name!"
   
9. )
   
10. endlocal
    
11. pause
    
12. @echo off
    
13. for /f "delims=" %%a in ('dir /b /s /a-d *.mp4') do (
    
14.         set "newname=%%~nxa"
    
15.         set "fname=%%~fa"
    
16.         setlocal enabledelayedexpansion
    
17.         set "newname=!newname:：=.!"
    
18.         set "newname=!newname:4K=2160p!"
    
19.         set "newname=!newname:..=.!"
    
20.         ren "!fname!" "!newname!"
    
21.         endlocal
    
22. )
    
23. pause

复制代码

使用前先测试

terse

这么长 一次性在FOR里处理行不

thp2008

使用前先测试
77七 发表于 2023-5-21 13:13

感谢大神相助，我测试了一下，需求二的部分没问题，需求一的部分，凡是关键字里有中文，都不行，中括号成功了。还请帮助再处理一下，这个关键字。

这种关键字的就不行，我感觉是不是带中文都不行，我保存的也是ANSI。

1. .高清中字
   
2. .国语中字
   
3. .德语中字
   
4. .国俄双语
   
5. .泰语中字
   
6. -国语
   
7. .BD幕
   
8. 加长版
   
9. 电影版
   
10. 导演剪辑版

复制代码

这种关键字的可以

1. .BD
   
2. .HD
   
3. [
   
4. ]

复制代码

thp2008

感谢大神相助，我测试了一下，需求二的部分没问题，需求一的部分，凡是关键字里有中文，都不行，中括号 ...
thp2008 发表于 2023-5-21 13:30

    不好意思，搞定了，是List.txt也要保存为ANSI才行，我只是保存了批处理为ANSI。现在执行成功了。感谢！

thp2008

我修改了一下，文件类型，一键执行成功
再次感谢！

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in ('dir /b /s /a-d *.mp4 *.mkv *.ts *.mov *.avi *.srt') do (
   
4.         set "name=%%~nxi"
   
5.         for /f "delims=" %%a in ('type "List.TXT"') do (
   
6.                 set "name=!name:%%a=!"
   
7.         )
   
8.         ren "%%i" "!name!"
   
9. )
   
10. endlocal
    
11. 
    
12. @echo off
    
13. for /f "delims=" %%a in ('dir /b /s /a-d *.mp4') do (
    
14.         set "newname=%%~nxa"
    
15.         set "fname=%%~fa"
    
16.         setlocal enabledelayedexpansion
    
17.         set "newname=!newname:：=.!"
    
18.         set "newname=!newname:4K=2160p!"
    
19.         set "newname=!newname:..=.!"
    
20.         ren "!fname!" "!newname!"
    
21.         endlocal
    
22. )

复制代码

terse

按一楼List.txt内容顺序删的话， 含有”.国粤英三语.中英双字幕“文件名 开始删掉“.中英双字”的 然后就留下“国粤英三语幕” 这个结果对吧，
另外 也可以两个FOR合并为一个FOR

thp2008

按一楼List.txt内容顺序删的话， 含有”.国粤英三语.中英双字幕“文件名 开始删掉“.中英双字”的 然后就留 ...
terse 发表于 2023-5-21 16:27

我上面发的顺序是没有调整的，我实际用的调整了，最长的关键字在最上面，倒序就好了。
如果多于两个点的，也没关系，多运行几次就好了。