pushd "%%~fsi"&call :a "*.jpg*" "*.bmp*" "*.gif*"
复制代码

@echo off&setlocal enabledelayedexpansion
set ext="*.jpg.* *.bmp.*"
(for /f "delims=" %%a in ('dir /b/s "%ext%"^|findstr /e ".[0-9]"') do (
      set "str=000000%%~xa"
      echo,%%~dpna/!str:~-8!
))>tmp
for /f "tokens=1-2 delims=/" %%a in ('sort tmp') do (
    if "%%a"=="!file!" (
    	del /q "%%a%%~xb"
    ) else (
        set "file=%%a"
    )
)
del tmp
复制代码

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

dic = new ActiveXObject("Scripting.Dictionary");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine();
        m = f.match(/.+\.(.+?)\.(\d+)$/);
        if (m) {
                k = m[1].toLowerCase();
                m[2] = ("0000000000" + m[2]).substr(m[2].length);
                if (dic.Exists(k)) {
                        dic.Item(k) += "\n" + m[2] + " " + m[0];
                } else dic.Add(k, m[2] + " " + m[0])
        }
}

arr = (new VBArray(dic.Keys())).toArray();
for (i=0; i<arr.length; i++) {
        a = dic(arr[i]).split("\n").sort().slice(0, -1);
        WScript.Echo(a.join("\n"))
}
复制代码

@set @n=0;/* & echo off
set "Js=cscript -nologo -e:jscript"
pushd "D:\Test\"
for /f "tokens=1*" %%a in ('dir /a-d /b /s ^| %Js% "%~0"') do (
        echo,Del "%%b"
)
pause & exit/b & rem */

dic = new ActiveXObject("Scripting.Dictionary");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine();
        m = f.match(/(.+\..+?)\.(\d+)$/);
        if (m) {
                k = (m[1]).toLowerCase();
                m[2] = ("000000000000" + m[2]).substr(m[2].length);
                if (dic.Exists(k)) {
                        dic.Item(k) += "\n" + m[2] + " " + m[0];
                } else dic.Add(k, m[2] + " " + m[0])
        }
}

arr = (new VBArray(dic.Keys())).toArray();
for (i=0; i<arr.length; i++) {
        a = dic(arr[i]).split("\n");
        if (a.length > 1) {
                WScript.Echo(a.sort().slice(0, -1).join("\n"))
        }
}
复制代码

@set @n=0;/* & echo off
set "Js=cscript -nologo -e:jscript"
::自行更换成实际路径
pushd "E:\Test\"
for /f "tokens=1*" %%a in ('dir /a-d /b /s ^| %Js% "%~0"') do (
        echo,删除文件"%%b"
        Del "%%b" /f /q
)
pause & exit/b & rem */

dic = new ActiveXObject("Scripting.Dictionary");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine();
        m = f.match(/(.+\..+?)\.(\d+)$/);
        if (m) {
                k = (m[1]).toLowerCase();
                m[2] = ("000000000000" + m[2]).substr(m[2].length);
                if (dic.Exists(k)) {
                        dic.Item(k) += "\n" + m[2] + " " + m[0];
                } else dic.Add(k, m[2] + " " + m[0])
        }
}

arr = (new VBArray(dic.Keys())).toArray();
for (i=0; i<arr.length; i++) {
        a = dic(arr[i]).split("\n");
        if (a.length > 1) {
                WScript.Echo(a.sort().slice(0, -1).join("\n"))
        }
}
复制代码

@echo off & setlocal enabledelayedexpansion
pushd "D:\test\"
if "%1" == "OK" (
    for /f "delims=" %%a in ('dir /b/s^|findstr \.[0-9][0-9]*$') do (
        set "str=0000000000%%~xa"
        set "str=!str:.=!"
        echo,%%~dpna/!str:~-10!%%~xa
    )
) else (
    for /f "tokens=1*delims=/" %%a in ('"%~0" OK^|sort /r') do (
        if /i "%%a" == "!file!" (
            echo Del "%%a%%~xb"
        ) else set "file=%%a"
    )
    pause
)
复制代码