qzwifi

回复 6# flyinnet9

是放在同一目录的，里面只有文本换行符的空白文本。

flyinnet9

回复 7# qzwifi


    已改

qzwifi

回复 8# flyinnet9

你好，修改的运行后只有第一行可以正确保存。其它的行还是换行符。请给完善一下，非常感谢！

flyinnet9

回复 9# qzwifi


    我这边测试没问题，把你的原始文件发过来看看

qzwifi

回复 10# flyinnet9


    你好，如：
01 02 03 04 04 05 05 05 06 06 07 08 09 10 11 11 11 12 12 12
01 03 03 04 04 05 05 06 06 07 07 08 10 10 11 11 12 12 12 13 13 13
01 01 02 03 03 04 04 05 05 06 07 07 07 08 09 09

运行后得：
05 11 12
03 04 06 07 10 13
01 08 09

而正确的应该是：
05 11 12
12 13
07

flyinnet9

回复 12# qzwifi


    不会举例麻烦用原始数据！！！！！

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

qzwifi

回复 13# happy886rr

你好，非常感谢。你的结果是正确的没错。我自己加保存没有保存下来。

happy886rr

回复 15# qzwifi

  直接拖拽txt到批处理上运行，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
复制代码

qzwifi

回复 15# happy886rr


    OK

qzwifi

回复 17# happy886rr

可以了，谢谢！

WHY

@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(''));
    }
}
复制代码

WHY

test.ps1

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

pcl_test

第三方http://www.bathome.net/s/tool/index.html?key=gawk

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