[文本处理] 【已解决】BAT如何逐列统计数据出现次数多少，并从多到少排序？

@echo off&setlocal enabledelayedexpansion
for /L %%i in (0,1,9) do for /L %%j in (0,1,9) do set _%%i_%%j=0
for /f "delims=" %%i in ('dir /b/a-d *.txt') do (
    for /f "usebackq delims=" %%j in ("%%i") do (
        set n=-1
        for %%a in (%%j) do (
            set /a n+=1
            set /a $!n!_%%a+=1
        )
    )
)
for /L %%i in (0,1,9) do for /L %%j in (0,1,9) do (
    set "str=000!$%%i_%%j!"
    set /a n=9-%%j
    set "$%%i=!$%%i! !str:~-3!#!n!-%%j"
)
set "str="
for /L %%i in (0,1,9) do (
    for /f "tokens=2 delims=-" %%a in ('"(for %%j in (!$%%i!) do @echo %%j)|sort/r"') do (
        set "str=!str!%%a"
    )
)
>new_text.txt echo;!str!
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1,1,378) do (
    set /p str=<%%a.txt
    set n=0
    for %%b in (!str!) do set /a #!n!.%%b+=1,n+=1
)
for /l %%a in (0,1,9) do (
    for /l %%b in (0,1,9) do (
        set /a m=0
        for /l %%c in (0,1,9) do (
            if !#%%a.%%b!%%c lss !#%%a.%%c!%%b set /a m+=1
        )
    set "!m!=%%b"
    )
    for /l %%i in (0,1,9) do set "echo=!echo!!%%i! "
)
echo,%echo%>new.txt
复制代码

@set @n=1 //&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~0" &pause&exit /b
fso = new ActiveXObject("Scripting.FileSystemObject");
a = new Array();b = new Array();s = new Array();
for (i=0;i<10;i++) {a[i] = ""};
while (!WSH.StdIn.AtEndOfStream) {
    f = WSH.StdIn.ReadLine();
    arr = fso.OpenTextFile(f).ReadLine().split(" ");
    for (i=0;i<10;i++) {a[i] += arr[i] + " "};
}
for (i=0;i<10;i++) {
    for (j=0;j<10;j++) {
        b[j] = a[i].split(j).length + 1000 + (9-j).toString();
    };
    b.sort(function(x,y){return y-x});
    s[i] = b.join(" ").replace(/\d{4}(\d)/g,
        function(s0,s1){return 9-s1}
    );
};
fso.OpenTextFile("Result.txt",2,true).Write(s.join(" "));
复制代码