【已解决】批处理：按数据出现次数多少排序 次数相同的 如何按出现先后顺序排序

思想之翼

1. @set @n=0;/* & echo off
   
2. set "fd=c:\数据2\新文本"
   
3. md "%fd%" 2>nul
   
4. pushd c:\数据2\
   
5. dir /b *.txt | cscript -nologo -e:jscript "%~0" "%fd%"
   
6. pause & exit
   
7. */
   
8. 
   
9. var fd = WScript.Arguments(0);
   
10. var fso = new ActiveXObject('Scripting.FileSystemObject');
    
11. 
    
12. while (!WScript.StdIn.AtEndOfStream) {
    
13.         var f = WScript.StdIn.ReadLine();
    
14.         var arr = readTextFile(f).split('\r\n');
    
15.         var str = '';
    
16.         for(var i=0; i<arr.length; i++){
    
17.                 if (!/^\s*$/.test(arr[i])) str += getNum(arr[i]) + '\r\n';
    
18.         }
    
19.         fso.OpenTextFile(fd + f, 2, true).Write(str)
    
20. }
    
21. 
    
22. function readTextFile(strFile) {
    
23.         var objFile = fso.OpenTextFile(strFile, 1);
    
24.         var s = objFile.ReadAll();
    
25.         objFile.Close(); objFile = null;
    
26.         return s
    
27. }
    
28. 
    
29. function getNum(s) {
    
30.         var ar = [];
    
31.         for (var i=0; i<=9; i++) {
    
32.                 ar.push(s.split(i).length + "=" + i);
    
33.         }
    
34.         ar.sort(function(x,y){return y.split("=")[0]-x.split("=")[0]});
    
35.         return ar.join(" ").replace(/\d+=/g, "");
    
36. }

复制代码

txt文本数据格式格式为：
1 2 3 4 5 6 7 8 9 0 1 2
9 8 7 6 5 4 3 2 1 0 0 9
... ...  ... ...
上述代码是 逐行按出现次数从多到少排序，出现次数相同的，则从小到大排列，未出现的数据也是从小到大排列，排序结果写入另一个txt文本

现在有2个疑问，没有头绪：
1、对于出现次数相同的数据，如果不是从小到大排列，而是按照出现先后顺序排列，如何解决？
比如：9 8 7 6 5 4 3 2 1 0 0 9
9 0出现2次，8 7 6 5 4 3 2 1出现1次
排序为 9 0 8 7 6 5 4 3 2 1

2、对于出现次数相同的数据，如果不是从小到大排列，而是随机排列
   对于未出现的数据，也不是从小到大排列，也随机排列
   如何解决？

pcl_test

引用的代码贴出原帖链接并指明相应楼层即可，勿重复贴码

WHY

第一个问题，试试：

1. function getNum(s) {
   
2.         var ar = [];
   
3.         for (var i=0; i<=9; i++) {
   
4.                 var x = 100000000000000 - s.split(i).length;
   
5.                 var y = 100000000000001 + s.indexOf(i);
   
6.                 ar.push(x + '=' + y + '=' + i);
   
7.         }
   
8.         return ar.sort().join(' ').replace(/\d+=\d+=/g, '');
   
9. }

复制代码

WHY

问题2，试试：

1. function getNum(s) {
   
2.         var ar = [], map = {};
   
3.         for (var i=0; i<=9; i++) {
   
4.                 var len = s.split(i).length;
   
5.                 map[len] = map[len] ? map[len] + ' ' + i : i+'';
   
6.         }
   
7.         for(i in map) {
   
8.             var j = map[i].split(' ').sort(function(){return Math.random()-0.5}).join(' ');
   
9.             ar.push(j);
   
10.         }
    
11.         ar.sort(function(){return Math.random()-0.5});
    
12.         return ar.join(' ')
    
13. }

复制代码

思想之翼

回复 3# WHY 感谢您的帮助！上述代码是逐行按出现次数排序，如果逐列按出现次数排序，相同次数的按出现顺序排序，排序结果为：竖排，去除空格，最后一行数据有回车符。如何实现？
比如文本数据为：
9 9 9 9
8 8 8 8
7 7 7 7
6 6 6 6
5 5 5 5
4 4 4 4
3 3 3 3
2 2 2 2
1 1 1 1
0 0 0 0
0 0 0 0
9 9 9 9
第1-4列排序结果为
9 9 9 9
0 0 0 0
8 8 8 8
7 7 7 7
6 6 6 6
5 5 5 5
4 4 4 4
3 3 3 3
2 2 2 2
1 1 1 1
去除空格：
9999
0000
8888
7777
6666
5555
4444
3333
2222
1111
回车符

WHY

1. @set @n=0;/* & echo off
   
2. set "fd=D:\数据\新文本"
   
3. md "%fd%" 2>nul
   
4. pushd D:\数据\
   
5. dir /b *.txt | cscript -nologo -e:jscript "%~0" "%fd%"
   
6. pause & exit
   
7. */
   
8. 
   
9. var fd = WScript.Arguments(0);
   
10. var fso = new ActiveXObject('Scripting.FileSystemObject');
    
11. 
    
12. while (!WScript.StdIn.AtEndOfStream){
    
13.     var file = WScript.StdIn.ReadLine();
    
14.     var arrRow = readTextFile(file).split('\n'); //分割行
    
15.     var x = [], y = [], max = 0;
    
16. 
    
17.     //文本数据存放在数组x
    
18.     for(var i=0; i<arrRow.length; i++){
    
19.         x[i] = arrRow[i].match(/\S/g); //分割列
    
20.         if (x[i].length > max) max = x[i].length //最大列数
    
21.     }
    
22. 
    
23.     //每一列数据拼接成字符串、排序、存放在数组y
    
24.     for(var i=0; i<max; i++){
    
25.         var s = '';
    
26.         for(var j=0; j<arrRow.length; j++) s += x[j][i];
    
27.         y[i] = getNum(s);
    
28.     }
    
29. 
    
30.     //重组数据、输出
    
31.     var s = '';
    
32.     for(i=0; i<=9; i++){
    
33.         var s1 = '';
    
34.         for(var j=0; j<max; j++) s1 += ' ' + y[j][i];
    
35.         s += s1.replace(/ \d+=\d+=/g, '') + '\r\n';
    
36.     }
    
37.     fso.OpenTextFile(fd + file, 2, true).Write(s);
    
38. }
    
39. 
    
40. function readTextFile(strFile){
    
41.     var objFile = fso.OpenTextFile(strFile, 1);
    
42.     var s = objFile.ReadAll() + '\n';
    
43.     s = s.replace(/(\s*\n)+/g, '\n').replace(/^\n|\n$/g, '');
    
44.     objFile.Close(); objFile = null;
    
45.     return s
    
46. }
    
47. 
    
48. function getNum(s) {
    
49.     var ar = [];
    
50.     for (var i=0; i<=9; i++) {
    
51.         var s1 = 100000000000000 - s.split(i).length;
    
52.         var s2 = 100000000000001 + s.indexOf(i);
    
53.         ar.push(s1 + '=' + s2 + '=' + i);
    
54.     }
    
55.     return ar.sort();
    
56. }

复制代码

思想之翼

回复 6# WHY
感谢您的帮助！学习中...
若待排序的文本数据列与列之间没有空格，比如将有空格的文本：
9 9 9 9
8 8 8 8
7 7 7 7
6 6 6 6
5 5 5 5
4 4 4 4
3 3 3 3
2 2 2 2
1 1 1 1
0 0 0 0
0 0 0 0
9 9 9 9
改为无空格的文本：
9999
8888
7777
6666
5555
4444
3333
2222
1111
0000
0000
9999
那么，代码如何表示 分割列？

WHY

20行的\S+改成\S就行了