[已解决]求助统计每个字符串出现次数的批处理

pcl_test

LZ可以直接把源文件上传附件……汗，按文本中日期出现的先后顺序排列

1. @if(0)==(0) echo off&cscript -nologo -e:jscript "%~f0" <"1.txt">"统计.txt"&pause&exit/b&@end
   
2. 
   
3. var arr1 = WScript.StdIn.ReadALL().match(/\d+-\d+/g);
   
4. var tmp1 = [], hash = {};
   
5. for (var i = 0, t; (t = arr1[i]) != null; i++) {
   
6.     if (!hash[t]) {
   
7.         tmp1.push(t);
   
8.         hash[t] = true;
   
9.     }
   
10. }
    
11. var arr2 = tmp2 = [];
    
12. arr2 = arr1.sort().slice(0);
    
13. for (var i=0;i<arr2.length;){
    
14.     var count = 0;
    
15.     for (var j=i;j<arr2.length;j++){if(arr2[i] == arr2[j])count++;}
    
16.     tmp2.push([arr2[i],count]);
    
17.     i+=count;
    
18. }
    
19. for (var i=0;i<tmp1.length;i++){
    
20.     for (var j=0;j<tmp2.length;j++){
    
21.         if (tmp1[i]==tmp2[j][0])WSH.Echo(tmp2[j][0]+' '+tmp2[j][1]);
    
22.     }
    
23. }

复制代码

本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]

CrLf

回复 8# 小纲爸内参


    你下载了第三方工具吗？

小纲爸内参

回复 17# CrLf


    下了

小纲爸内参

回复 16# pcl_test


    谢谢了 辛苦辛苦 万分感谢
也同时谢谢论坛中其他朋友们辛苦的回答 再次感谢

terse

16楼 出现排序问题

1. @if(0)==(0) echo off & cscript.exe -NoLogo -E:JScript %0 <a.txt>b.txt & pause & exit @end
   
2. var arr = WScript.StdIn.ReadALL().match(/\d+-\d+/g);
   
3. var tmp = {};
   
4. for(var i = 0, len = arr.length; i < len; i++)  {
   
5.     if (!tmp.hasOwnProperty(arr[i])) {
   
6.         tmp[arr[i]] = 1
   
7.     }
   
8.     else { tmp[arr[i]]++ }
   
9. }
   
10. len = 0, arr = [];
    
11. for(var i in tmp) {arr.push([i,tmp[i]]) }
    
12. arr.sort().reverse();
    
13. for(var i =0,len = arr.length; i < len; i++)  {
    
14.     WScript.echo(arr[i].join('\t'))
    
15. }

复制代码

CrLf

回复 20# terse


我更喜欢这样的流程：

1. @if(0)==(0) echo off & cscript.exe -NoLogo -E:JScript %0 <a.txt>b.txt & pause & exit @end
   
2. 
   
3. var arr = WScript.StdIn.ReadALL().match(/\d+-\d+/g);
   
4. 
   
5. if(arr){
   
6.     var obj = {};
   
7. 
   
8.     arr = arr.sort().reverse();
   
9. 
   
10.     for(var i = arr.length; --i ;){
    
11.         var a = arr[i];
    
12.         obj[a] = a in obj?obj[a]+1:1;
    
13.     }
    
14. 
    
15.     for(var i in obj){
    
16.         WScript.Echo(i + '\t' + obj[i] + '次');
    
17.     }
    
18. }

复制代码

或者肥猪流的像这样：

1. @if(0)==(0) echo off & cscript.exe -NoLogo -E:JScript %0 <a.txt>b.txt & pause & exit @end
   
2. 
   
3. var obj={};
   
4. WScript.StdIn.ReadALL().replace(
   
5.     /\d+-\d+/g,
   
6.     function(s){
   
7.         s in obj?obj[s]++:obj[s]=1;
   
8.     }
   
9. );
   
10. 
    
11. var arr=[];
    
12. for(var i in obj) {
    
13.     arr.push(i + '\t' + obj[i] + '次');
    
14. };
    
15. 
    
16. WScript.Echo(arr.sort().join('\r\n'));

复制代码