batman

我现在用的方法可不是排序哦，严格上来讲应属于变量赋值法。

zqz0012005

看了一下，排序的问题和帖子有不少
http://www.bathome.net/viewthread.php?tid=1336
http://www.bathome.net/viewthread.php?tid=1581
http://www.bathome.net/viewthread.php?tid=4819
http://www.bathome.net/viewthread.php?tid=4196&page=1#pid26902

[ 本帖最后由 zqz0012005 于 2009-11-20 12:32 编辑 ]

523066680

如果要算法来排序，可能会选择用选择排序吧。。。。。。
排序可是个出过的题。你们用set 变量名， 用冒泡，用选择，用希尔，然后呢？

batman

后面的两行才是本题的重点哦。。。

523066680

大概地模拟了一下2维数组，确实是一道“复合题”，后面的两行，我就不弄了

@echo off
setlocal enabledelayedexpansion
set /a a=-1
for /f "tokens=*" %%a in (a.x) do (
   set /a a+=1,b=-1
   for %%b in (%%a) do (
      set /a b+=1
      set str[!a!][!b!]=%%b
   )
)
for /l %%b in (1,1,6) do (
  for /l %%a in (1,1,%a%) do (
    set /a !str[0][%%b]!+=str[%%a][%%b]
    if "!str[%%a][%%b]!"=="0" (set zero%%b=!zero%%b!!str[%%a][0]!;)
  )
  if "!zero%%b!"=="" (set "zero%%b=无;")
  for %%x in (!str[0][%%b]!) do (set now=!%%x!)
  echo,!str[0][%%b]!!now! , 本次完成0的分局: !zero%%b:~0,-1!
)

pause
exit
复制代码

batman

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
    set /a hang+=1,lie=0
    for %%b in (%%a) do (
        set /a lie+=1&set "str=%%b"
        if not defined fj if "!str:~,1!" equ "当" set /a fj=lie
        if !hang! equ 1 (
           if !lie! neq 1 set "_!lie!=%%b#:"
           ) else (
           if !lie! equ 1 (
              set "ju=%%b"
              ) else (
              for %%c in (!lie!) do (
                  if %%c lss !fj! (
                     set /a num_%%c+=%%b 
                     if !str! equ 0 set "_%%c=!_%%c!!ju!,"
                     ) else (
                     if not defined %%c_%%b (
                        set "%%c_%%b=!ju!%%b,"
                        ) else (
                        set "%%c_%%b=!%%c_%%b!!ju!%%b,"
                     )
                  )
               )
            )
         )
    )
)
cd.>b.txt
for /l %%a in (2,1,%lie%) do (
    set "str=!_%%a!"
    if %%a lss %fj% (
       for %%b in (!num_%%a!) do (
           if "!str:~-1!" neq ":" (
              set "str=!str:~,-1!"&echo !str:#=%%b,完成为0的局!>>b.txt
              ) else (
              echo !str:#=%%b,完成为0的局!无>>b.txt
           )
       )
       ) else (
       for /l %%b in (1,1,%hang%) do if defined %%a_%%b set "str=!str! !%%a_%%b!"
       set "str=!str:#=!"&echo !str:~,-1!>>b.txt
    )
)
start b.txt
复制代码

[ 本帖最后由 batman 于 2009-11-21 11:57 编辑 ]

zqz0012005

前面数据整理不怎么耗时，主要是不想用临时文件而将排序模块整合在一起造成的。
如果不担心分局数和项目数加起来会超过变量最大长度，两次排序其实可以goto一次完成，将_day_ranking和_month_ranking分别不同的前缀补位，然后拼接，goto时还可省略%3，排序后分开时再加判断。

batman

楼上的效率显然有问题。。。这就是用^|sort造成的

[ 本帖最后由 batman 于 2009-11-19 23:50 编辑 ]

zqz0012005

达到要求的输出格式使得步骤多了点。
（显然，Ctrl+A可见）

@echo off
%1 %2

setlocal enableDelayedExpansion
set n=0
for /f "tokens=1* delims==" %%a in ('"set /p head=<1.txt& set head"') do ^
for %%i in (%%b) do set _!n!=%%i& set /a n+=1
set /a items=n-3, day_ranking=n-1, month_ranking=n
for /f "skip=1 delims=" %%a in (1.txt) do set m=0&for %%i in (%%a) do (
    if "!m!"=="0" set department=%%i
    for %%x in (_!m!) do (
        if "%%i"=="0" set %%x_0=!%%x_0! !department!
        set /a !%%x! += %%i
    )
    set /a m+=1
    set serial=0000%%i& set serial=!serial:~-4!
    if !m!==!day_ranking! set _day_ranking=!_day_ranking! !serial!.!department!
    if !m!==!month_ranking! set _month_ranking=!_month_ranking! !serial!.!department!
)
for /l %%a in (1 1 %items%) do (
    if "!_%%a_0!"=="" set _%%a_0= 无
    set #%%a=!_%%a! ^^!!_%%a!^^!, 完成为0的局:!_%%a_0!
)
for /f "tokens=1* delims==" %%a in ('set #') do echo %%b

for /f "tokens=* delims=0" %%a in ('%~s0 goto sort_ "!_day_ranking!"^|sort') do set #day_ranking=!#day_ranking!,%%~xa%%~na
for /f "tokens=* delims=0" %%a in ('%~s0 goto sort_ "!_month_ranking!"^|sort') do set #month_ranking=!#month_ranking!,%%~xa%%~na
set #day_ranking=!#day_ranking:~1!
set #month_ranking=!#month_ranking:~1!
echo 当日排名: !#day_ranking:.=!
echo 当月累计排名: !#month_ranking:.=!

pause&exit/b

:sort_
for /f "delims=" %%a in ("%~3") do for %%i in (%%~a) do echo %%i
goto :eof
复制代码

[ 本帖最后由 batman 于 2009-11-21 11:58 编辑 ]

batman

还请就此题给出完整代码

zqz0012005

交换位置后：
0001 一分局
0002 二分局
0003 三分局
0005 四分局
0007 五分局
0006 六分局
0003 七分局
......
0123 一百五十分局

（前面的0是添加的，再截取后4位）
既然无需调整名次序号，那不就结了，直接sort

[ 本帖最后由 zqz0012005 于 2009-11-19 22:13 编辑 ]

batman

为什么要调成第四名，说了有并列名次出现的情况。。。

[ 本帖最后由 batman 于 2009-11-19 22:10 编辑 ]

zqz0012005

晕，我也没说此题无解，12楼只是对11楼的补充，同时都是对7楼的解释。

而且题目给的结果并未处理啊：
当月累计排名:一分局1,二分局2,三分局3,七分局3,四分局5,六分局6,五分局7
两个第三名后，直接是第五名，没有将名次序号调成4

batman

我没说此题无解吧，晕，我只是一再在强调出现同名次的情况需要处理

zqz0012005

这个排序问题其实也不错：
以A3列的大小为主要排序，A2列的大小为次要排序，应该怎么实现？
http://bbs.verybat.org/viewthread.php?tid=17101