【已解决】第三方工具：提取出现最多次数的字符

思想之翼

D:\JZ\A.txt 有1列10行左右的字符，格式如下：
G
B
J
J
E
E
如何使用第三方工具，提取出现最多次数的字符？
本例结果是 J E，竖排写入D:\JZ\B.txt，格式如下：
J
E

Batcher

回复 1# 思想之翼


    每行只有1个字母吗？

思想之翼

回复 2# Batcher
您好，是的，每行只有1个字母

hfxiang

请把"D:\JZ\A.tx"保存为ANSI编码

1. 
   
2. 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.tx" "D:\JZ\B.txt"
   

复制代码

terse

可以省了那个+

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

复制代码

newswan

1. 
   
2. $f = Get-Content -Encoding UTF8 "a.txt"
   
3. 
   
4. $a = @{}
   
5. $f | ForEach-Object {
   
6.     $a[$_]++
   
7.     if ( $a[$_] -gt $max ) { $max = $a[$_] }
   
8. }
   
9. 
   
10. $a.GetEnumerator() | ForEach-Object {
    
11.     if ( $_.Value -eq $max ) { $_.Name }
    
12. }
    

复制代码

sed awk grep 真神器

WHY

1. gawk "{if(max<=++a[$0]){max=a[$0];b[max]=b[max]$0"\n"}}END{printf b[max]}" a.txt > b.txt

复制代码

WHY

1. @if(0)==(0) echo off
   
2. type a.txt | cscript //nologo //E:jscript "%~f0" > b.txt
   
3. pause & exit
   
4. @end
   
5. 
   
6. var max = 0;
   
7. var obj = {}
   
8. 
   
9. while(!WSH.StdIn.AtEndOfStream){
   
10.     var s = WSH.StdIn.ReadLine();
    
11.     obj[s] = obj.hasOwnProperty(s) ? obj[s] + 1 : 1;
    
12.     if (max < obj[s]){
    
13.         max = obj[s];
    
14.         var out = [s];
    
15.     } else if (max == obj[s]){
    
16.         out.push(s);
    
17.     }
    
18. }
    
19. 
    
20. WSH.Echo(out.join('\r\n'));

复制代码