[数值计算] 【已解决】批处理如何实现数组排列？

@echo off
call :main "原文件.txt" > "结果文件.txt"
goto :eof

:main <input_file>
	SetLocal
	
	REM 清空以“_”开头的变量名
	for /f "delims==" %%a in (' set _ ') do (
		set %%a=
	)
	
	REM 读取文件
	for /f "usebackq tokens=*" %%a in (%1) do (
		call :sort "%%a"
	)
	
	EndLocal
goto :eof

:sort <string>
	SetLocal EnableDelayedExpansion
	
	set newStr=
	for %%a in (%~1) do (
		set _%%a==
	)
	for /f "delims=_=" %%a in (' set _ ') do (
		set newStr=!newStr! %%a
	)
	echo !newStr:~1!
	
	EndLocal
goto :eof
复制代码

Loop, Read, 原文件.txt, 结果文件.txt
{
	data := A_LoopReadLine
	Sort, data, N D%A_Space%
	FileAppend, % data "`r`n"
}
复制代码

@echo off
for /f "delims=" %%a in (a.txt) do (
    setlocal enabledelayedexpansion
    for %%i in (%%a) do set /a n+=1&set $!n!=1%%i
         set /a c=n-1
         for /L %%i in (1,1,!c!) do (
         set /a b=%%i+1
         for /L %%j in (!b!,1,!n!) do (
         if !$%%i! gtr !$%%j! set/a $%%j=$%%i,$%%i=!$%%j!
        )
    )
    for /l %%i in (1,1,!n!) do set "var=!var! !$%%i:~1!"
    echo!var!
    endlocal
)
pause
复制代码