[文本处理] 【已解决】第三方工具：提取出现最多次数的字符

思想之翼

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

WHY

@if(0)==(0) echo off
type a.txt | cscript //nologo //E:jscript "%~f0" > b.txt
pause & exit
@end

var max = 0;
var obj = {}

while(!WSH.StdIn.AtEndOfStream){
    var s = WSH.StdIn.ReadLine();
    obj[s] = obj.hasOwnProperty(s) ? obj[s] + 1 : 1;
    if (max < obj[s]){
        max = obj[s];
        var out = [s];
    } else if (max == obj[s]){
        out.push(s);
    }
}

WSH.Echo(out.join('\r\n'));
复制代码

WHY

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

newswan

$f = Get-Content -Encoding UTF8 "a.txt"

$a = @{}
$f | ForEach-Object {
    $a[$_]++
    if ( $a[$_] -gt $max ) { $max = $a[$_] }
}

$a.GetEnumerator() | ForEach-Object {
    if ( $_.Value -eq $max ) { $_.Name }
}
复制代码

sed awk grep 真神器

terse

可以省了那个+

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"
复制代码

hfxiang

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

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"
复制代码

思想之翼

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

Batcher

回复 1# 思想之翼


    每行只有1个字母吗？