【练习-052】根据原始数据进行相关统计操作

batman · 发表于 2009-11-19 22:07:31

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

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

zqz0012005 · 发表于 2009-11-19 22:11:56

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

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

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

batman · 发表于 2009-11-19 22:13:41

还请就此题给出完整代码

zqz0012005 · 发表于 2009-11-19 23:26:36

达到要求的输出格式使得步骤多了点。
（显然，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 · 发表于 2009-11-19 23:41:23

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

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

zqz0012005 · 发表于 2009-11-20 00:05:00

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

batman · 发表于 2009-11-20 00:16:14

@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 · 发表于 2009-11-20 11:00:17

大概地模拟了一下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 · 发表于 2009-11-20 11:45:29

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

523066680 · 发表于 2009-11-20 12:05:00

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

zqz0012005 · 发表于 2009-11-20 12:17:08

看了一下，排序的问题和帖子有不少
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 · 发表于 2009-11-20 13:16:54

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

zqz0012005 · 发表于 2009-11-20 13:24:26

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

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

523066680 · 发表于 2009-11-20 14:07:11

还是做了

@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 · 发表于 2009-11-20 14:50:54

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

【练习-052】根据原始数据进行相关统计操作

回复 15楼的帖子

回复 16楼的帖子

回复 17楼的帖子

评分

本人的解

回复 23楼的帖子

回复 26楼的帖子

评分

回复 29楼的帖子

浏览过的版块

【练习-052】根据原始数据进行相关统计操作

回复 15楼 的帖子

回复 16楼 的帖子

回复 17楼 的帖子

评分

本人的解

回复 23楼 的帖子

回复 26楼 的帖子

评分

回复 29楼 的帖子

浏览过的版块

回复 15楼的帖子

回复 16楼的帖子

回复 17楼的帖子

回复 23楼的帖子

回复 26楼的帖子

回复 29楼的帖子