[文本处理] [已解决]批处理如何统计出文本中出现次数最多的一个字符？

wsbdwpshh

如何查出一个文本中 出现 最多的一个字？前提是 不知道这个字是 啥字！

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]];
}
复制代码

CrLf

回复 11# 依山居


    所以把技能点用光了

依山居

回复 10# CrLf


    你开了好多技能树。。

CrLf

回复 9# 依山居


    done

依山居

回复 7# CrLf


    这帖子被设置作者可见了，你说啥我都看不到。

依山居

吐槽，能不设置成作者可见吗

CrLf

回复 6# 依山居


powershell：

$s = 'A Counter is a dict subclass for counting hashable objects. It is an unordered collection where elements are stored as dictionary keys and their counts are stored as dictionary values. Counts are allowed to be any integer value including zero or negative counts. The Counter class is similar to bags or multisets in other languages.'

[char[]]$s | group-object | sort-object -desc count|select-object -first 5
复制代码

极限压缩后的代码长度和你差不多：

([char[]]$s|group|sort *)[-1..-5]
复制代码

依山居

哈哈，python Counter 简直神器

http://www.zlovezl.cn/articles/collections-in-python/

# -*- coding: utf-8 -*-
"""
下面这个例子就是使用Counter模块统计一段句子里面所有字符出现次数
"""
from collections import Counter

s = '''A Counter is a dict subclass for counting hashable objects. It is an unordered collection where elements are stored as dictionary keys and their counts are stored as dictionary values. Counts are allowed to be any integer value including zero or negative counts. The Counter class is similar to bags or multisets in other languages.'''.lower()

c = Counter(s)
# 获取出现频率最高的5个字符
print c.most_common(5)


# Result:
[(' ', 54), ('e', 32), ('s', 25), ('a', 24), ('t', 24)]
复制代码

wankoilz

练习awk！
以下代码找出目标文本出现次数前20位的字符：

#&cls&@gawk -f %0 a.txt>con&pause>nul&exit
{
    for(i=1;i<=length($0);i++){
        arr[substr($0,i,1)]++
    }
}
END{
    for (x in arr){
	tmp="0000000000"arr[x]
        tmp=substr(tmp,length(arr[x])+1,10)
	arr[x]=tmp" "x
    }
	len=asort(arr,ta)
	for(i=len-19;i<=len;i++){
	    printf "%d %s\n",substr(ta[i],1,10),substr(ta[i],11,2)
	}
}
复制代码

gawk 4.1.0 下载地址：http://www.bathome.net/viewthread.php?tid=21366&highlight=gawk

CrLf

借 3 楼代码一用

@if (0)==(0) echo off
cscript //nologo //e:jscript "%~f0" < %0 & pause & exit
@end

var s = WScript.StdIn.ReadAll();
s = s.match(/[^\r\n]/g).sort().join('');
var re = /(.)(\1)*/g, n = 0, ar = [];
s.replace(re,function($0,$1){
	n++;
	ar.length = ar.length > $0.length ? ar.length : $0.length;
	ar[$0.length-1] ? ar[$0.length-1].push($1) : ar[$0.length-1]=[$1];
})
WScript.Echo('最多: ' + ar.pop().join('\r\n') + '\n个数: ' + n);
复制代码

WHY

@if (0)==(0) echo off
cscript //nologo //e:jscript "%~f0" < a.txt & pause & exit
@end

var s = WScript.StdIn.ReadAll().replace(/[\r\n]/g, '');
s = s.match(/./g).sort().join('');
var re = /(.)(\1)*/g, n = 0, map = {}, ar;
while(ar = re.exec(s)){
    if (ar[0].length >= n){
        n = ar[0].length;
        map[n]=map[n]?ar[1]+','+map[n]:ar[1];
    }
}
WScript.Echo('最多: ' + map[n] + '\n个数: ' + n)
复制代码

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]];
}
复制代码