pcl_test

//&cls&cscript -nologo -e:jscript "%~f0"<"文本.txt"&pause&exit
var arr={}, max=0;arr['list']=[];
var str=WSH.StdIn.ReadAll().replace(/[　\s]/g, '') //清除空白符
for (var i=0; i<str.length; i++){
    if(!arr[str.charAt(i)]){
        arr['list'].push(str.charAt(i));
        arr[str.charAt(i)]=1
    }else arr[str.charAt(i)]++;
}
arr['list'].sort(function(a, b){return arr[b]-arr[a]});
for(var i=0; i<arr['list'].length; i++){
    if(arr[arr['list'][i]]<max)break;
    WSH.echo(arr['list'][i]+':'+arr[arr['list'][i]]);
    max=arr[arr['list'][i]];
}
复制代码

pcl_test

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

#*&cls&@gawk -f "%~f0" "文本.txt">con&pause&exit
{
    gsub(/[[:space:]]/,"");
    for(i=1;i<=length($0);i++)a[substr($0,i,1)]++;
}
END{
    for(b in a){
        if(c[a[b]]){
            c[a[b]]=c[a[b]]" "b;
        }else{
            c[a[b]]=""b;
            d[a[b]]=a[b];
        }
    }
    for(i=asort(d);i>0;i--)print d[i]":"c[d[i]];
}
复制代码