按列表txt重命名文件的批处理不成功，请高手指正，谢谢！

WBATW

按文件名列表new_filenames.txt重命名当前目录及其子目录下所有文件的文件名，均不成功，请高手指正，谢谢！

文件列表new_filenames.txt中的文件名无论写成：
新文件名1.pdf
新文件名2.pdf
......
还是写成：
新文件名1.pdf，旧文件名.jpg
新文件名2.pdf，旧文件名.jpg
......

代码①和代码②都不能实现重命名
-------------------------------------------
代码②：
代码无效，没有执行如何操作

1. @echo off
   
2. chcp 65001
   
3. cd /d "%~dp0"
   
4. setlocal enabledelayedexpansion
   
5. :: 假设我们要处理当前目录下的所有文件
   
6. for %%F in (*) do (
   
7.     set "filename=%%~nxF"
   
8.     echo 文件名: !filename!
   
9.     REM 在这里可以使用变量"filename"
   
10.     setlocal enabledelayedexpansion
    
11.     for /f "tokens=1,* delims=" %%a in ("new_filenames.txt") do (
    
12.          rem 检查 %%a 是否对应 !filename!，以避免重命名错误
    
13.          if "%%~a"=="!filename!" (
    
14.              ren "!filename!" "%%b"
    
15.          )
    
16.     )
    
17.     endlocal
    
18. )
    
19. endlocal
    
20. pause

复制代码

--------------------------------------------------------------
代码①：
rem 文件名列表放在其它当前目录（bat同目录）重命名就不成功

1. @echo off
   
2. chcp 65001
   
3. cd /d "%~dp0"
   
4. setlocal enabledelayedexpansion
   
5. 
   
6. :: 假设我们要处理当前目录下的所有文件
   
7. for %%F in (*) do (
   
8.     set "filename=%%~nxF"
   
9.     echo 文件名: !filename!
   
10.     REM 在这里可以使用变量"filename"
    
11.     setlocal enabledelayedexpansion
    
12.     cd /d "%~dp0"
    
13.     for /f "tokens=1,* delims=" %%a in (new_filenames.txt) do (
    
14.          set "filen=%%a"
    
15.          ren "!filen!" "!filename!"
    
16.     )
    
17. )
    
18. endlocal
    
19. pause

复制代码

77七

1. @echo off
   
2. rem 批处理和文本全部保存为ansi编码格式
   
3. for /f "useback tokens=1-2 delims=," %%a in ("1.txt") do (
   
4.         for /r %%i in (%%a?) do (
   
5.                 if "%%~nxi" equ "%%a" (
   
6.                         ren "%%i" "%%b"
   
7.                 )
   
8.         )
   
9. )
   
10. pause
    
11. exit
    
12. 1.txt 格式
    
13. 旧文件名,新文件名
    
14. a.txt,b.txt

复制代码

Five66

编码全部保存成ansi
新旧文件名用英文?分割
例如:
新文件名1.pdf?旧文件名.jpg
新文件名2.pdf    ?     旧文件名.jpg

1. 
   
2. @echo off&pause
   
3. 
   
4. for /f "usebackq eol=/ tokens=1,2,3 delims=?" %%a in ("new_filenames.txt") do (
   
5. setlocal
   
6. set _@new=%%a
   
7. set _@old=%%b
   
8. if "%%c" neq "" set _@old=
   
9. 
   
10. if defined _@old (
    
11. 
    
12. setlocal enabledelayedexpansion
    
13. if "!_@new:~0,1!" == " " (
    
14. for /f "tokens=1,* delims= " %%x in ("?!_@new!") do endlocal&set _@new=%%~y
    
15. ) else endlocal
    
16. 
    
17. setlocal enabledelayedexpansion
    
18. if "!_@old:~0,1!" == " " (
    
19. for /f "tokens=1,* delims= " %%x in ("?!_@old!") do endlocal&set _@old=%%~y
    
20. ) else endlocal
    
21. 
    
22. setlocal enabledelayedexpansion
    
23. for %%z in ("!_@new!") do endlocal&set _@new=%%~nxz
    
24. 
    
25. setlocal enabledelayedexpansion
    
26. for %%z in ("!_@old!") do endlocal&set _@old=%%~nxz
    
27. 
    
28. setlocal enabledelayedexpansion
    
29. if exist "!_@old!" (
    
30. if not exist "!_@new!" (
    
31. echo rename "!_@old!" to "!_@new!"
    
32. rename "!_@old!" "!_@new!"
    
33. ) else (echo 存在跟新文件名"!_@new!"同名的文件 : 不处理
    
34. )
    
35. ) else (echo 警告 : 需要改名的文件"!_@old!"不存在
    
36. )
    
37. endlocal
    
38. 
    
39. ) else ( call echo 错误 : 当前行格式不正确
    
40. )
    
41. endlocal
    
42. )
    
43. pause
    

复制代码

WBATW

[quote][/quote] 感谢二位高手的回复，辛苦了！谢谢！
2楼77七 代码需要添加一行，在第二个for语句后面添加 echo, "%%i"一行，就实现该功能。
3楼代码也非常不错的。

WBATW

回复 2# 77七
感谢高手的回复，辛苦了！谢谢！
2楼77七 代码需要添加一行，在第二个for语句后面添加 echo, "%%i"一行，你可测试一下。

WBATW

回复 3# Five66

[quote][/quote] 感谢二位高手的回复，辛苦了！谢谢！
3楼代码也非常不错的。一次成功。