@echo off
setlocal ENABLEDELAYEDEXPANSION
(for /f "delims=" %%a in (a.txt) do (
  for %%b in (%%a) do (
    set /a #%%b+=1
    if !#%%b!==3 set /p =%%b <nul
  )
  echo.
  for /f "tokens=1-2 delims==" %%c in ('set #') do set %%c=
))>b.txt
复制代码

@echo off
setlocal enabledelayedexpansion
REM 设置重复次数
set N=3
pushd "%~dp0"
(for /f "delims=" %%a in (%1) do (
	for %%b in (%%a) do (
		if defined #%%b (set /a #%%b+=1) else (set #%%b=1)
	)
	for /f "tokens=1 delims=#=" %%c in ('set #') do (
		if !#%%c! equ !N! (set /p = %%c <nul)
		set #%%c=<nul
	)
	echo.
))>.\b.txt
start .\b.txt
复制代码

@if (0)==(0) echo off
cscript //nologo //e:jscript "%~0" < a.txt > b.txt
pause & exit
@end

while(!WSH.StdIn.AtEndOfStream){
    var arr = WSH.StdIn.ReadLine().match(/\S+/g);
    if (arr) {
        var m = [], s = arr.sort().join(' ') + ' ';
        s.replace(/(\S+ )\1*/g,
            function(a,b){if(a.split(' ').length == 4) m.push(b)}
        )
        WSH.Echo(m.join(''));
    }
}
复制代码

get-Content a.txt | `
?{$_ -NotMatch '^\s*$'} | %{
    $arr = [regex]::Matches($_, '\S+') | %{ $_.Value }
    $arr = $arr | Group | ?{$_.Count -eq 3} | %{ $_.Name }
    $arr -join ' '
}>b.txt
复制代码

@echo off
rem 指定查找重复的次数
set n=2
gawk -v n=%n% "{delete a;s=\"\";for(i=1; i<=NF; i++)a[$i]++;for(b in a){if(a[b]==n)s=s\" \"b };print s}" "1.txt">"2.txt"
pause
复制代码