pcl_test

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

pcl_test

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

#*&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";
}
复制代码