batman

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

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

zqz0012005

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

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

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

batman

还请就此题给出完整代码

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

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

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

zqz0012005

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

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 编辑 ]

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

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

523066680

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

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 编辑 ]

batman

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

zqz0012005

所谓的“偏方”，其实也是良方
http://www.bathome.net/viewthread.php?tid=1581&page=1#pid8439

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

523066680

还是做了

@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
   )
)
set /a 项目数=b-2
::给出某项任务完成的个数，并找出0的局
for /l %%b in (1,1,%项目数%) 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!
)
::最后两列，和对应的项目名按顺序，匹配好并列出
set /a last=b-1
:result
set result=!str[0][%last%]!:
for /l %%b in (1,1,%a%) do (
   for /l %%a in (1,1,%a%) do (
     if "!str[%%a][%last%]!"=="%%b" (
       set result=!result! !str[%%a][0]!!str[%%a][%last%]!
     )
   )
)
echo,%result%
if %last% lss %b% (set /a last+=1 &goto :result)
pause
exit
复制代码

[ 本帖最后由 523066680 于 2009-11-20 14:49 编辑 ]

batman

针对此代码发表点个人意见，不当之处还请误解：
一、优点：
1、在批处理中引入数组概念，拓展了批的处理功能；
2、代码较简洁，这其实也是因为引入了数组，减少了累加赋值的过程；
3、书写较规范，但请注意a.x是不符合题意的。
二、不足之处：
1、因为代码是用数组变量表示的每个单元的值，所以变量用量较大，如达到百行百列时，变
量就要用到一万个，是对系统资源的考验；
2、出现6这个常量，这与题意中未知行未知列是不相符的；
3、代码中使用了goto循环，在效率上比for循环要低。
总之，exist这段代码还是表现出了其高水平的批处理技巧，值得大家学习。