pusofalse

@echo Off & setlocal EnableDelayedExpansion
If not Exist "_b.txt" (copy "a.xls" "_b.txt")
For /f "skip=1 tokens=1*" %%a in (_b.txt) do (
       set /a m= n %% 7 + 1, n += 1, DayCount += 1
       set /a _!m!_ += 1, _!m! += %%b
       If not defined ._!m!_ set "._!m!_=%%a"
)
Echo 星期 天数(天) 参观人数(人) 日均参观人数>b.xls
For /f "tokens=1,2 delims==" %%a in ('set _') do (
       set /a x += 1, y = x %% 2
       If !y! equ 1 (
           set /a PeopleCount=%%b, PeopleCounts += %%b
       ) else (
           set /a every=PeopleCount / %%b
           echo !.%%a! %%b !PeopleCount! !every!
           If !PeopleCount! gtr !max! set "max=!PeopleCount!" & set "_day=!.%%a!
       )
)>>b.xls
>>b.xls echo 合计 %DayCount% %PeopleCounts% %_day%
start b.xls & del _b.txt
复制代码

[ 本帖最后由 pusofalse 于 2009-2-23 11:51 编辑 ]

pusofalse

简化了一点，还是钻了空子。
排序后第一行的“星期        参观人数”恰好排在了最后一行，也正好循环完了~

@echo off & setlocal EnableDelayedExpansion
set "PreDay=一"
echo 星期(人)[tab]天数(天)[tab]参观人数(人)[tab]日均参观人数(人/天)>b.xls
For /f "tokens=1*" %%a in ('sort a.xls') do (
       set /a _%%a +=1, __%%a += %%b 
       If "!PreDay!" neq "%%a" (
            set /a every = __!PreDay! / _!PreDay!, Count=__!PreDay!
            set /a All += _!Preday!, CountDays += __!Preday!
            Call echo !PreDay![tab]%%_!PreDay!%%[tab]%%__!PreDay!%%[tab]!every!
            If !count! gtr !max! set "max=!count!" & set "maxDay=!PreDay!"
        )
        set "PreDay=%%a"
)>>b.xls
>>b.xls echo 合计[tab]%All%[tab]%CountDays%[tab]星期%maxDay%为游客最多日
start b.xls
复制代码

[ 本帖最后由 pusofalse 于 2009-2-23 13:01 编辑 ]