[文件操作] 批处理如何批量命名文件， 有重名文件？

@set @n=0;//&dir /b *.jpg|cscript -nologo -e:jscript "%~0" & pause & exit/b

fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine();
        s = f.replace(/(.+?)\d*(\.jpg)$/i, "$1$2");
        n = 0;
        while (fso.FileExists(s) && (f.toLowerCase()!=s.toLowerCase())) {
                n += 1;
                s = f.replace(/(.+?)\d*(\.jpg)$/i, "$1" + n + "$2");
        }
        try {
                fso.GetFile(f).Name = s;
        } catch(e) { WScript.Echo("未处理文件：" + f); }
}
复制代码

@set @n=0;/* & echo off
set J=cscript -nologo -e:jscript "%~0"
for /f "tokens=1*delims=/" %%a in ('dir /b /on *.jpg^|%J%') do (
        echo Ren "%%a" "%%b"
)
pause & exit/b & rem */

txt = "/\r\n" + WScript.StdIn.ReadAll();
ar = txt.replace(/(.+?)\d*\.jpg$/img, "$&/$1").split("\r\n");
s = ""; n = 0;
for (i=0; i<ar.length-2; i++) {
        a = ar[i].split("/")[1];
        b = ar[i+1].split("/")[1];
        if (a.toLowerCase() == b.toLowerCase()) {
                n += 1;
                s += ar[i+1] + "" + n + ".jpg\n";
        } else { n = 0; s += ar[i+1] + ".jpg\n"; }
}
WScript.Echo(s)
复制代码

@echo off
setlocal enabledelayedexpansion
   set /a var=0
for /f "tokens=* delims=" %%i in ('dir /b 0*.jpg') do (
    set "file=%%~ni"
    set "name=!file:~0,10!法律具结保证书"
    if not exist "!name!.jpg" (  
       set /a var=0
      ren "%%i" "!name!%%~xi" ) else (   
      set /a var=var+1
      ren "%%i" "!name!!var!%%~xi
 )
)
pause
复制代码

@echo off & setlocal enabledelayedexpansion
set "b= "
for /f "delims=" %%a in ('dir /b /on *法律具结保证书*.jpg')do (
        set "a=%%a"
        if "!a:~,17!" == "!b:~,17!" (
                set /a n+=1
                echo,Ren "%%a" "!a:~,17!!n!%%~xa"
        ) else (
                set "n=0"
                echo,Ren "%%a" "!a:~,17!%%~xa"
        )
        set "b=%%a"
)
pause
复制代码