@echo off
echo 一万行文本的测试结果
echo 开始时间%time%
sort a.txt>b.txt
cd.>c.txt
setlocal enabledelayedexpansion
for /f "delims=" %%i in (b.txt) do (
    if "!str!"=="%%i" (echo !str!)>>c.txt
    set "str=%%i"
)

for %%i in (c.txt) do if "%%~zi"=="0" goto end

findstr /x /g:c.txt b.txt>d.txt
findstr /x /v /g:c.txt b.txt>>d.txt
start d.txt

:end
echo 结束时间%time%
pause
复制代码

@echo off
echo 一万行文本的测试结果
echo 开始时间%time%
cd.>>a.txt
sort a.txt>b.txt
(for /f "delims=" %%a in (b.txt) do (
  if not defined %%a (
    set "%%a=1"
  ) else (
    echo.%%a
  )
))>c.txt
findstr /x /g:c.txt b.txt>d.txt 2>nul
findstr /x /v /g:c.txt b.txt>>d.txt 2>nul
echo 结束时间%time%
pause
复制代码

//&cls&cscript -nologo -e:jscript "%~f0"&pause&exit

var fso = new ActiveXObject('Scripting.FileSystemObject');
var file = '文本.txt';
var a={};
var f = fso.OpenTextFile(file, 1);
while(!f.AtEndOfStream){
    var str = f.ReadLine();
    a[str]?a[str]++:a[str]=1;
}
f.Close();
var c={}, e=[];
for(var b in a){
    if(!c[a[b]]){
        c[a[b]]=[];
        e.push(a[b]);
    }
    c[a[b]].push(b);
}
e.sort(function(a,b){return b-a});
var f = fso.CreateTextFile('New_'+file, 2);
for(var i=0;i<e.length;i++){
    for(var j=0;j<c[e[i]].length;j++){
        for(var k=0;k<e[i];k++)f.WriteLine(c[e[i]][j]);
    }
}
WSH.echo('Done');
复制代码

#*&cls&gawk -f "%~f0"&pause&exit

BEGIN{
    file="文本.txt";
    while(getline<file>0)a[$0]++;
    for(b in a){c[a[b]]=c[a[b]]"\n"b;if(!d[a[b]])d[a[b]]=a[b]}
    for(i=asort(d);i>0;i--){
        split(substr(c[d[i]], 2), list, "\n");
        for(j=1;j<=length(list);j++){
            for(k=1;k<=d[i];k++)print list[j]>"New_"file;
        }
        delete list;
    }
    print "Done";
}
复制代码