pcl_test

@echo off
rem 指定查找每行同一字符串出现最多的次数
set n=2
for /f "delims=" %%a in ('more +15 "%~f0"') do (
    setlocal enabledelayedexpansion
    set t=0
    for %%b in (%%a) do (
        set /a #%%b+=1
        if !#%%b! gtr !t! set t=!#%%b!
    )
    if !t! equ !n! echo;%%a
    endlocal
)
pause&exit
::举个栗子
01 01 02 03
01 01 01 02 03
01 01 01 01 02 03
01 01 01 01 01 02 03
01 01 02 02 03
01 01 01 02 02 02 03 03 03
01 01 01 01 02 02 02 02
03 01 03 03 03 02 02 01 03 01
01 02 03 03 02 01 01 03
01 03 02 01 02
复制代码

pcl_test

回复 4# qzwifi

/*&cls
@echo off
set "afile=a.txt"
set "bfile=b.txt"
rem 指定查找每行同一字符串出现最多的次数
set n=2
cscript -nologo -e:jscript "%~f0"<"%afile%" %n% >"%bfile%"
pause&exit
*/

var n=WSH.Arguments(0), txt='';
while(!WSH.StdIn.AtEndOfStream){
    var line=WSH.StdIn.ReadLine();
    var str=line.split(/\s+/);
    var t=0, s={};
    for(var i=0; i<str.length; i++){
        s[str[i]]?s[str[i]]++:s[str[i]]=1;
        if(s[str[i]]>=t)t=s[str[i]];
    }
    if(t==n)txt+=line+'\r\n';
    s=null;
}
WSH.echo(txt);
复制代码