@set @n=0;/* & echo off
set "x=1000"
md "文件夹2" 2>nul
pushd "文件夹1\"
dir /b *.txt|cscript -nologo -e:jscript "%~0" "%x%"
pause & exit/b & rem */

fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
    f = WScript.StdIn.ReadLine();
    try {
        txt = fso.OpenTextFile(f, 1).ReadAll();
        txt = getMaxNum(txt, WScript.Arguments(0));
    } catch(e) { txt = "" }
    fso.CreateTextFile("..\\文件夹2\\"+f, true).Write(txt);
}

function getMaxNum(str, arg) {
    dic = new ActiveXObject("Scripting.Dictionary");
    for (i=1000; i<=1999; i++) {
        num = (i + "").substr(1);
        k = str.split(num).length;
        if (k > 1) {
            if (dic.Exists(k)) {
                dic.Item(k) += " " + num;
            } else dic.Add(k, num)
        }
    }

    ar = (new VBArray(dic.Keys())).toArray();
    s = "";

    ar.sort(function(x,y){return y-x});
    if (arg > ar.length) arg = ar.length;
    for (i=0; i<arg; i++) {
        s += dic(ar[i]) + "\r\n";
    }
    return s
}
复制代码

var fso = new ActiveXObject("Scripting.FileSystemObject");
var f=fso.OpenTextFile("1.txt",1);
var o=fso.CreateTextFile("2.txt",true)
var text="";
var b={};
var c={};
while(!f.AtEndOfStream){
text=f.ReadLine();
for(var s=text.split(" "),l=s.length,i=0;i<l;i++){
b[s[i]]=tn(b[s[i]])+1
}
}
function tn(n){
return(n==undefined?0:+n);
}
for(var i in b){
if(c[b[i]]==undefined) c[b[i]]=[];
c[b[i]].push(i);//b[i]是次数 push的内容是当前次数的值
}
delete b;
复制代码

gawk "{for(i=1;i<=NF;i++){if(!a[$i]++)b[++j]=$i;if(0+N<a[$i])N=a[$i]}}END{for(k=1;k<=j;k++)c[a[b[k]]]=c[a[b[k]]]b[k]\" \";s=asorti(c,tA);for(i=s;i>0;i--)print c[tA[i]]}" 1.txt>2.txt
复制代码