@echo off
:: 将数字排序 原创作者：3742668  原帖出自 cn－dos联盟
:: 整理：小楼一夜听春雨： 2007-11-21
::   
:: 整理后功能：
::    可以对cmd范围内所有整数字进行排序，即：可以处理 负数、0、正数。
::    可以处理重复数字。
:: 特点：  递归调用，速度快，
:: 缺点：
::    若作为 函数调用，在全局中都不能使用“_+27va8t_/\r#”作为变量名，否则出错。
::    不能处理0开头的数。_+27va8t_/\r#  此代码特意用了这个生僻的名称为变量名，以避免重复。
::代码：
set number=1 1698 107 2 258 0 37 1583 6 9 8 7 15 3 1 0 1 -5 -20 -1583 -1583
echo 排序前：
echo %number%
call :sort str %number% 
echo. 
echo 排序后：
echo %str%
echo\&pause
exit
:sort
   setlocal enabledelayedexpansion
   set var=%2&set "th="
   set var_=%*&set var_= !var_:%1=!
   for %%i in (!var_!) do if !var! leq %%i set var=%%i
   for %%i in (!var_!) do if !var! equ %%i set th=!th! %%i
   set _+27va8t_/\r#=!th:~1! !_+27va8t_/\r#!
   set var_= !var_: %var%= !
   if not "!var_: =!"=="" (
      endlocal&set _+27va8t_/\r#=%_+27va8t_/\r#%
      call :sort _+27va8t_/\r# %var_%)
   call set _+27va8t_/\r#=%%_+27va8t_/\r#%%
   endlocal&set %1=%_+27va8t_/\r#%
goto :eof
复制代码

@echo off
echo 排序前：
set sis=1 20 2 0 5 1 0 38 20 3 1 5 4 3 1 22
echo  %sis%
call :sort str %sis%
echo\&echo 排序后：
echo %str%
pause&exit
:sort
setlocal enabledelayedexpansion
set num=&set str=
for /l %%i in (1 1 200) do set str=0!str!
for %%a in (%*) do (
  set var=!str!%%a&set var=!var:~-200!
  set _!var!_!random!!random!!random!!random!!random!!random!!random!!random!=a
)
for /f "tokens=1 delims=_=" %%a in ('set _^|sort') do (
for /f "tokens=* delims=0" %%i in ("%%a") do (
   if "%%i"=="" (set num=!num! 0) else set num=!num! %%i
))
endlocal&set %1=%num%
call set %1=%%%1:%1=%%
goto :eof
复制代码

@echo off 
color 1f 
if "%1"=="" goto :instruction 
setlocal enabledelayedexpansion 
for %%i in (%1 %2 %3 %4 %5 %6 %7 %8 %9) do ( 
  if not "%%i"==""  set number=!number! %%i) 
call :sort %number% 
echo. 
echo 以上数字由大到小依次为： 
echo. 
echo      %str% 
pause>nul 

:instruction 
   cls 
   echo. 
   echo                          数字排序 
   echo. 
   echo ============================================================ 
   echo 说明： 
   echo      该程序只能说基本达到要求；没有对数字进行过滤； 
   echo 目前只支持最多9个数字的排序！ 
   echo. 
   echo 使用方法如下：[%~nx0] [%%1] [%%2] [%%3] [%%4] ........ 
   echo ============================================================= 
   echo. 
   cmd /k 

:sort 
   set var=%1
   set var_=%*
   for %%i in (%var_%) do (
       if !var! leq %%i set var=%%i)
   set str=!str! !var!
   set var_=!var_:%var%=!
   if not "%var_%"=="" call :sort %var_%
复制代码

@echo off
setlocal EnableDelayedExpansion
::  by  小楼一夜听春雨 2007-11-25
for /l %%a in (1 1 200) do set lin=0!lin!
for /f "delims=" %%a in (a.txt) do (
   set str=%%a
   if "!str:~0,1!"=="-" (set fus=a&set str=!str:~1!&set zf=_) else set zf=+
   set str=!lin!!str!
   set !zf!!str:~-200! !random!!random!!random!!random!!random!!random!!random!=a
)
if defined fus call :lis _ /r
call :lis +
pause&exit
:lis
for /f "tokens=1,2 delims=_+= " %%a in ('set %1^|sort %2') do (
   for /f "tokens=* delims=0" %%i in ("%%a") do (
      if "%1"=="_" (set fuhao=-) else set fuhao=
      if "%%i"=="" (echo !fuhao!0) else echo !fuhao!%%i
   )
)
goto :eof
复制代码

::以下代码保存为qs.bat
@echo off
setlocal enabledelayedexpansion
setlocal
set k=0
for %%i in (%*) do (
set /a k+=1
set arr.!k!=%%i
)
set arr.length=%k%
call :s arr
for %%i in (%arr.re%) do (
set /p a=%%i <nul
)
echo.
endlocal
exit /b

:s
if !%1.length! lss 2 (
call :return %1
exit /b
)
for /l %%i in (2,1,!%1.length!) do (
if !%1.%%i! leq !%1.1! (
call :push %1.1 !%1.%%i!
) else (
call :push %1.2 !%1.%%i!
)
)
call :s %1.1
call :s %1.2
set %1.re=!%1.1.re! !%1.1! !%1.2.re!
exit /b

:push
set /a %1.length+=1
set %1.!%1.length!=%2
exit /b

:return
if !%1.length!==0 set "%1.re="
for /l %%i in (1,1,!%1.length!) do (
set %1.re=!%1.re! !%1.%%i!
)
exit /b
复制代码