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

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

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

D:\JZ\A.txt  如果每行只有1个字母
G
B
J
J
E
E
结果 J E 竖排写入D:\JZ\B.txt
  1. 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"
复制代码
  1. 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"
复制代码
  1. 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
上述代码如何修改?

回复 1# 思想之翼
  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

评分人数

TOP

这样符合不
路径自己加一下
  1. 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

评分人数

TOP

加个FOR 利用NF应该行
1

评分人数

TOP

返回列表