批处理怎样把文本中整数做统计并按频率排序

hkldd

文本中全是数字，毎行就是：01 02 03 04 05 06这样的格式，有很多行，人工统计慢易出错，哪位大大写个脚本，谢谢！

1. 
   
2. 01 02 03 05 06 23
   
3. 01 02 03 05 06 28
   
4. 01 02 03 05 06 30
   
5. 01 02 03 05 07 08
   
6. 01 02 03 05 07 09
   
7. 01 02 03 05 07 10
   
8. 01 02 03 05 07 11
   
9. 01 02 03 05 07 12
   
10. 01 02 03 05 07 13
    
11. 01 02 03 05 07 14
    
12. 01 02 03 05 07 15
    
13. 01 02 03 05 07 16
    
14. 01 02 03 05 07 17
    
15. 01 02 03 05 07 18
    
16. 01 02 03 05 07 19
    
17. 01 02 03 05 07 20
    
18. 01 02 03 05 07 21
    
19. 01 02 03 05 07 22
    
20. 01 02 03 05 07 24
    
21. 01 02 03 05 07 25

复制代码

上面的数以整数50以下的话想得到这样的样式

1. 
   
2. 共00次：04,26,27,29,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,
   
3. 共01次：08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,30,
   
4. 共03次：06,
   
5. 共17次：07,
   
6. 共20次：01,02,03,05,

复制代码

Batcher

回复 1# hkldd


    请给出10行左右的原始数据作为测试样例，并给出对于这份测试样例希望得到的完整结果。

went

数字统计?

1. @echo off
   
2. set "txt=0.txt"
   
3. powershell -c "(Get-Content '%txt%' |  Out-String ) -split '\s+' | Group-Object {$_} | Sort-Object Count | Group-Object {$_.Count}  | foreach { Write-Host ('共{0:d2}次: {1}' -f [int]$_.Name,(($_.Group.Name | Sort-Object | Out-String) -replace '\s+',','))}"
   
4. pause&exit

复制代码

hkldd

你好大侠！运行后截图如下：

只有次数，没有对应的数字，麻烦你得闲看一下，谢谢！

smss

回复 4# hkldd win10测试正常 更新下powershell

went

回复 4# hkldd
兼容win7

1. @echo off
   
2. set "txt=0.txt"
   
3. powershell -version 2.0 -c "$txt='%txt%';Get-Content '%~0' | Select-Object -Skip 4 | Out-String | Invoke-Expression"
   
4. pause&exit
   
5. $datas=(Get-Content '0.txt' |  Out-String ) -split '\s+';
   
6. $s1=(1..50 | Where-Object {$datas -notcontains ('{0:d2}' -f $_)} | foreach {'{0:d2}' -f $_} | Out-String)
   
7. $s1=$s1 -replace '\s+',','
   
8. Write-Host ('共{0:d2}次: {1}' -f [int]0,$s1)
   
9. $datas | Group-Object {$_} |
   
10.     Sort-Object Count | Group-Object Count |
    
11.         foreach {
    
12.             $str=($_.Group | Sort-Object {$_.Name} | Select-Object Name | Out-String ) -replace 'Name|-+|\s+',',' -replace ',{2,}',''
    
13.             Write-Host ('共{0:d2}次: {1}' -f [int]$_.Name,$str)
    
14.         }

复制代码

hkldd

完美解决！谢谢大侠

asnahu

1. 
   
2. gawk '{for(i=1;i<=NF;i++){a[$i] = ($i in a) ? a[$i]+=1 : a[$i]=1}}END{for(i in a)print i,a[i]}' txt
   

复制代码