[其他] 【已解决】gawk：提取出现最多次数的字符

本帖最后由思想之翼于 2023-5-25 02:51 编辑

D:\JZ\A.txt 如果每行只有1个字母
G
B
J
J
E
E
结果 J E 竖排写入D:\JZ\B.txt

gawk "{++a[$0];a[$0]>n+0?n=a[$0]:n=n+0}END{for(i in a)if(a[i]==n)print i}" "D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码

gawk "{n=n<++a[$0]?a[$0]:n}END{for(k in a)if(n==a[k])print k}"<"D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码

gawk "{if(max<=++a[$0]){max=a[$0];b[max]=b[max]$0\"\n\"}}END{printf b[max]}" D:\JZ\A.txt > D:\JZ\B.txt
复制代码

D:\JZ\A.txt 如果每行有若干字母
G B B
B C C C A
J
J
E
E
结果 B C
上述代码如何修改？

Rank: 8 Rank: 8

2楼

发表于 2023-5-22 19:57 | 只看该作者

加个FOR 利用NF应该行

1 评分人数

Rank: 8 Rank: 8

3楼

发表于 2023-5-22 20:49 | 只看该作者

这样符合不
路径自己加一下

gawk "{for(i=1;i<=NF;i++) a[$i]++} END {for(k in a) if(a[k]>max){max=a[k];s=k}else if(a[k]==max)s=s\" \"k; print s}" a.txt
复制代码

1 评分人数

Rank: 5 Rank: 5

4楼

发表于 2023-5-23 12:12 | 只看该作者

回复 1# 思想之翼

gawk "{for(i=1;i<=NF;i++)n=n<++a[$i]?a[$i]:n}END{for(k in a)if(n==a[k])print k}" "D:\JZ\A.txt">"D:\JZ\B.txt"
复制代码

1 评分人数

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考