/*&cls
@echo off
rem 如果是读取文本下句改为 type "文件列表.txt"|cscript -nologo -e:jscript "%~f0"
(dir /a-d/b/s *-*.txt)|cscript -nologo -e:jscript "%~f0"
pause&exit
*/
var fso = new ActiveXObject('Scripting.FileSystemObject');
var list = WSH.StdIn.ReadALL().split(/\r\n/), a={}, s1=s2='';
for(var i=0; i<list.length; i++){
    if(!/\d+\.[^\.\\]+$/.test(list[i])){
        s1+=list[i]+'\r\n';
    }else{
        var fpath = list[i].replace(/\d+\.[^\.\\]+$/, '');
        var num = parseInt(fso.GetBaseName(list[i]).match(/\d+$/));
        var ext = '.'+fso.GetExtensionName(list[i]);
        var t = (fpath+'|'+ext).toLowerCase();
        if(!a[t]){
            a[t]={'max':num};
        }else{
            if(num>a[t]['max'])a[t]['max']=num;
        }
        a[t][num]=1;
    }
}
for(var b in a){
    var m = b.split('|');
    for(var i=1; i<=a[b]['max']; i++){
        if(!a[b][i]){s2+=(!m[0]?i:m[0]+i)+m[1]+'\r\n';}
    }
}

WSH.echo('不符合--------------------------\r\n'+s1+'\r\n缺号的--------------------------\r\n'+s2);
//WSH.echo('缺号的--------------------------\r\n'+s2);fso.CreateTextFile('处理结果.txt', 2).Write(s2);
复制代码

@echo off&setlocal enabledelayedexpansion
::下一行50表示最大值，自己改
for /l %%a in (50,-1,1) do set "c=!c!,%%a,"
(for /f "delims=" %%a in ('dir /b/s *-*.txt') do (
    set "str=%%~na"
    set "str=!str:-=.1!"
    for /f "delims=" %%b in ("!str!") do (
        set "n=%%~xb"
        set/a "1/(!n:.=!-1)" && (
        	if not defined #%%~nb (
        		set #%%~nb=.
        		if !max! gtr 0 for %%c in (!max!) do (
        		    set num=!num:*,%%c,=!
        		    if not "!num!"=="" echo,!file:.1=-!!num:,= !
        		)
        		set num=%c%
        		set "file=%%~dpnb文件缺少:"
        		set max=0
        	)
        	set n=!n:~2!
        	for %%c in (!n!) do set num=!num:,%%c,=!&if %%c gtr !max! set/a max=1+%%c
        )||echo,%%a----错误
)))2>nul
if !max! gtr 0 for %%c in (!max!) do (
    set num=!num:*,%%c,=!
    if not "!num!"=="" echo,!file:.1=-!!num:,= !
)
pause
复制代码