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

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

本帖最后由 思想之翼 于 2023-4-19 22:47 编辑

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

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

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

评分人数

TOP

本帖最后由 WHY 于 2023-4-24 00:03 编辑
  1. gawk "{if(max<=++a[$0]){max=a[$0];b[max]=b[max]$0\"\n\"}}END{printf b[max]}" a.txt > b.txt
复制代码
1

评分人数

TOP

  1. $f = Get-Content -Encoding UTF8 "a.txt"
  2. $a = @{}
  3. $f | ForEach-Object {
  4.     $a[$_]++
  5.     if ( $a[$_] -gt $max ) { $max = $a[$_] }
  6. }
  7. $a.GetEnumerator() | ForEach-Object {
  8.     if ( $_.Value -eq $max ) { $_.Name }
  9. }
复制代码
sed awk grep 真神器
1

评分人数

TOP

可以省了那个+
  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"
复制代码
1

评分人数

TOP

请把"D:\JZ\A.tx"保存为ANSI编码
  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.tx" "D:\JZ\B.txt"
复制代码
1

评分人数

TOP

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

TOP

回复 1# 思想之翼


    每行只有1个字母吗?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表