【已解决】求助批处理怎么批量修改文件名

liyu963926475

有大量图片，名称最后一个数字不管是个位数、十位数还是百位数，统一需改成三位数，比如：

0313-RS ·0010-0001-1-1-1.jpg   修改为     0313-RS ·0010-0001-1-1-001.jpg
0313-RS ·0010-0001-1-2-11.jpg   修改为     0313-RS ·0010-0001-1-2-011.jpg
0313-RS ·0010-0001-3-1-1.jpg   修改为     0313-RS ·0010-0001-3-1-001.jpg
0313-RS ·0010-0001-3-2-35.jpg   修改为     0313-RS ·0010-0001-3-2-035.jpg
0313-RS ·0010-0001-9-1-1-1.jpg   修改为     0313-RS ·0010-0001-9-1-1-001.jpg
0313-RS ·0010-0001-9-1-2-259.jpg   修改为     0313-RS ·0010-0001-9-1-2-259.jpg  
  

不知道这个要求可以用批处理实现吗？

went

放到jpg文件夹中运行

1. @echo off & cd /d "%~dp0"
   
2. set "zero=000"
   
3. for %%i in ("*.jpg") do (
   
4.         set "head=" & set "foot="
   
5.         call :split "%%~ni"
   
6.         call set "foot=%zero%%%foot%%"
   
7.         call set "foot=%%foot:~-3%%"
   
8.         echo %%i
   
9.         call echo %%head%%%%foot%%.jpg
   
10.         call move "%%i" "%%head%%%%foot%%.jpg"
    
11.         echo ---------------------------
    
12. )
    
13. pause&exit
    
14. 
    
15. :split
    
16. set "str=%~1"
    
17. if not "%str:~-1%"=="-" (
    
18.         set "head=%str:~0,-1%"
    
19.         set "foot=%str:~-1%%foot%"
    
20.         call :split "%%head%%"
    
21. ) else goto :eof

复制代码

liyu963926475

回复 2# went


    感谢^_^

liyu963926475

回复 2# went


    发现批处理是真的强大

WHY

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "delims=" %%i in ('dir /b *-*.jpg ^| findstr /i "\-[0-9]\.jpg$ \-[0-9][0-9]\.jpg$"') do (
   
4.     set "Name=%%~ni"
   
5.     if "!Name:~-3,1!" == "-" (
   
6.         ren "%%i" "!Name:~0,-2!0!Name:~-2!%%~xi"
   
7.     ) else (
   
8.         ren "%%i" "!Name:~0,-1!00!Name:~-1!%%~xi"
   
9.     )
   
10. )
    
11. pause

复制代码

WHY

1. PowerShell "dir *-[0-9].jpg, *-[0-9][0-9].jpg | ren -NewName {$a=$_.Name -split '(?<=-)(?=\d+\.jpg$)'; $a[0] + $a[1].PadLeft(7, '0')} -WhatIf"

复制代码