引用记事本内容批量更改绝对路径的文件名

xidhgood

求助大神：
我有一些文件，文件名是：1.pdf、2.pdf、3.pdf。。。的PDF文件，我想用一个批处理以记事本内容来批量修改这些文件名
记事本内容如下：
1|01-测试文件_C01
2|02-测试文件_M01
3|03-测试文件_Q01
4|04-测试文件_M02
5|05-测试文件_C02

就是我修改了该记事本（比如叫：明细.txt），然后运行该批处理
这里我这些1.pdf、2.pdf、3.pdf。。。文件是在一个固定的绝对路径下的，比如在桌面建个PDF的文件夹：d:\Users\joy\Desktop\PDF
但是我的批处理文件并不是放在这个文件夹内，我可能放在E盘或者其它地方（比如：E\test），我的记事本可以跟批处理放在一起（或者也放另一个固定的目录下，但是我不会跟桌面那个放一起）；

zaqmlp

1. @echo off
   
2. set info=互助互利,支付宝扫码头像,感谢赞助
   
3. rem 有问题,可加QQ956535081及时沟通
   
4. title %info%
   
5. start mshta VBScript:Execute("msgbox(""%info%""):close")
   
6. cd /d "%~dp0"
   
7. 
   
8. set "文件夹=d:\Users\joy\Desktop\PDF"
   
9. set "文本=明细.txt"
   
10. rem txt跟bat放一起
    
11. 
    
12. for /f "delims=" %%a in ('dir /a-d/b/s "%文件夹%\*.pdf"') do (
    
13.     call :loop "%%a"
    
14. )
    
15. pause&exit
    
16. :loop
    
17. for /f "tokens=1* delims=|" %%b in ('type "%文本%"') do (
    
18.     if "%%b" equ "%~n1" (
    
19.         echo;"%~1" --^> "%%c%~x1"
    
20.         ren "%~1" "%%c%~x1"
    
21.         exit /b
    
22.     )
    
23. )
    
24. goto :eof

复制代码

xidhgood

回复 2# zaqmlp


    非常感谢！！！！