[文本处理] [已解决]批处理如何查找txt文本中每行同一/相同字符串出现最多的次数等于指定数值的行

@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
复制代码

/*&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);
复制代码

set "max=3"
gawk "{delete a;for(max=i=1;i<=NF;i++)max=(++a[$i]>max?a[$i]:max)};max==%max%" a.txt > b.txt
复制代码