中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-09-23 13:39

共 47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,273 会员排行

DOS批处理 & 脚本技术（批处理室） » [求助]数值排序（难并已解）

可打印版本　13,952 / 31

第16楼　26933062	发表于 2008-04-30 08:37
银牌会员　发帖 879　积分 2,268
呵，没想数字排序居然在联盟掀起第二次风波。热闹。。也贴一段以前的代码。助助兴 : @echo off&goto start&rem 数字排序 a.txt 中为一行一个数字可以对任何 200 位以内的整数进行排序。（包括负数、正数、0、及重复的数字）缺点：对于0开头的数字，结果会忽略首位的0 ::by 26933062 2007-11-25 :start setlocal EnableDelayedExpansion for /l %%a in (1 1 200) do set lin=0!lin! for /f %%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 :sort _ /r call :sort + pause&exit :sort 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

第17楼　zh159	发表于 2008-04-30 10:13
金牌会员　发帖 1,467　积分 3,687
从负数到正数都可以，会去除重复的数字，对于开头为0得数字不能正确处理 @echo off setlocal enabledelayedexpansion set str= %random% %random% -%random% %random% %random% -%random% %random% -%random% %random% %random% ::对于 a.txt 中为一行一个数字采用下一行方式读取，上一行不要 ::上一行set str= %random%...的数前面必需要有一个空格 ::for /f %%i in (a.txt) do set str=!str! %%i echo 排序前数组为: %str:~1% :sort set num=m for %%i in (%str%) do if %%i lss !num! set num=%%i set ret=%ret% %num% set str=!str: %num%=! if not "%str%" == "" goto sort echo 排序后数组为: %ret:~1% pause exit

第18楼　qzwqzw	发表于 2008-04-30 16:01
银牌会员　发帖 636　积分 2,343
简化一下terse的方案，有不足再改吧 @echo off&setlocal enabledelayedexpansion set/p str=输入数字(用空格隔开) for %%i in (%str%) do ( set str=0000000000%%i set .!str:~-10! !random!=%%i ) for /f "tokens=2 delims==" %%i in ('set .') do set/p=%%i <nul pause>nul

第19楼　lxmxn	发表于 2008-04-30 17:25
版主　发帖 4,938　积分 11,386
这么热闹，我也来一段了，缺点是效率有点低…… @echo off & Setlocal EnableDelayedExpansion for /L %%i in (1,1,5) do ( set skip=.!skip! findstr /rc:"^^!skip!$" file.txt\|sort ) for 里面的 5 根据数字的最大位数来指定，如果不知道也可以写个for语句计算出来，我这里免去了。

第20楼　huahua0919	发表于 2008-04-30 18:02
银牌会员　发帖 780　积分 1,608
Originally posted by lxmxn at 2008-4-30 05:25 PM: 这么热闹，我也来一段了，缺点是效率有点低…… @echo off & Setlocal EnableDelayedExpansion for /L %%i in (1,1,5) do ( set skip=.!skip! findstr /rc:"^^!ski ... 版主的代码没看懂,能否解释一下? 好象不支持负数排序

第21楼　lxmxn	发表于 2008-04-30 23:14
版主　发帖 4,938　积分 11,386
Originally posted by huahua0919 at 2008-4-30 18:02: 版主的代码没看懂,能否解释一下? 好象不支持负数排序就是简单的根据数字位数，findstr 出从一位到五位的数，然后 sort 排序就可以了，不过前提是数字都是正整数，而且知道最大位数，严格说起来这个不算是排序~

第22楼　MLQX	发表于 2008-05-02 05:09
初级用户　发帖 15　积分 28
这种方法是什么原理? 为什么加一大串零在数字前,然后在环境变量里遍历时把零又截弃掉,它们便能自动排序? 请各位大侠提点一下.

第23楼　MLQX	发表于 2008-05-02 11:26
初级用户　发帖 15　积分 28
还有为什么要加一些随机数? 怎么没人理我?

第24楼　slore	发表于 2008-05-02 12:14
铂金会员　发帖 2,478　积分 5,212
99 1 888 排序结果是 1 888 99 如果补0的话～结果为: 00001 00099 00888 ……

第25楼　MLQX	发表于 2008-05-02 12:23
初级用户　发帖 15　积分 28
啊明白了,我真笨,没有想到这点 Originally posted by MLQX at 2008-5-2 11:26 AM: 谢谢了.quote] [ Last edited by MLQX on 2008-5-2 at 12:34 PM ]

第26楼　MLQX	发表于 2008-05-02 12:45
初级用户　发帖 15　积分 28
妙,好精炼的代码 Originally posted by zh159 at 2008-4-30 01:51 AM: 以前用过的，忘了出自哪里了 @echo off setlocal enabledelayedexpansion set numbers=%random% %random% %random% %random% %random% %random% %random% %random% echo 排序前 ... 来此论坛学了3 天,今天总算能看懂这段代码了. 在俺这个菜鸟看来,这种思维方法很独特. 在别人看来,也许不是独特,而是经典.

第27楼　MLQX	发表于 2008-05-02 12:53
初级用户　发帖 15　积分 28
点号表示什么? Originally posted by plp626 at 2008-4-29 11:59 PM: if not %1.==. 难首是文本文件里隐含的结束标志?抑或是表示行首或行尾的标志? [ Last edited by MLQX on 2008-5-2 at 01:24 PM ]

第28楼　bat-zw	发表于 2008-05-03 22:19
金牌会员　发帖 1,276　积分 3,105
再来个通用的： &&想不到一石激起千重浪，几天未来论坛此贴已经变成了精华贴，而且如此之火，真是非我始之所料，今天将我原来的代码又研究了下，有了如下通用性极强的化码： @echo off&setlocal enabledelayedexpansion set "str=101 20 14 13 19 18 16 11 5 -7" for %%i in (%str%) do call,set var=!var! n%%i for %%i in (%var%) do set a=%%i&call :lp echo !var:n=! pause>nul&goto :eof :lp for %%i in (!var!) do ( set b=%%i if !b:~1! lss %a:~1% ( set var=!var:%a% =! set var=!var:%%i=%%i %a%! ) )

第29楼　MLQX	发表于 2008-05-04 00:41
初级用户　发帖 15　积分 28
我觉得有一个人的代码最精炼: @echo off&for /f "delims=" %%i in ('sort /+n c.txt') do echo %%i 如果比较三位数,那么把n值改为3即可.

第30楼　terse	发表于 2008-05-04 12:02
银牌会员　发帖 946　积分 2,404
Originally posted by zw19750516 at 2008-5-3 22:19: &&想不到一石激起千重浪，几天未来论坛此贴已经变成了精华贴，而且如此之火，真是非我始之所料，今天将我原来的代码又研究了下，有了如下 ... 不通用你这样试 set "str=1111 111 20 14 13 19 18 16 11 5 -7"

上一页　 1 2 3 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023