@echo off
for /f "delims=" %%a in (data.txt) do (
  for %%b in (%%a) do (   
    if defined #%%b set /p =%%b <nul
    set #%%b=1
  )
  for /f "tokens=1 delims==" %%c in ('set #') do set %%c=
  echo.
)
pause
复制代码

"""
python3取出重复3次的字符串保存为3列.py
http://bbs.bathome.net/thread-39592-1-1.html
codegay 2016年3月8日 00:56:57

"""

#测试数据
a="""
01 01 01 02 02 02 03 03 03 04 05 05 
04 04 05 04 05 05 06 06 06 07 07 08
07 08 09 07 08 08 07 09 09 10 11 12
"""
with open("a.txt","w+") as f:
    f.write(a)

#python3取出重复3次的字符串保存为3列.py
with open("a.txt") as f:
    txt=f.read().split()

t3=[]
[t3.append(r) for r in txt if (r not in t3) and txt.count(r)>=3]

#N为结果输出为多少列
N=3
r3=[' '.join(t3[r:r+N])+"\n" for r in range(0,len(t3),N)]

print(r3)
with open("out.txt","w+") as f:
    f.writelines(r3)
复制代码

@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.
))>b.txt
复制代码

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