terse

我是这样处理的  确定文本行数  然后就是总行数之前的日期   开始累加1  直到文本结束
似乎效率不理想
代码简化一下  但效率没上去
本想以年为递减  结果有差错  改回

@echo off
echo 开始时间 %time%
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a p1=%%i,p2=100%%j%%100,p3=100%%k%%100
set/a PN2="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)",PN2+=28
for /f "tokens=%p2%" %%i in ("31 !pN2! 31 30 31 30 31 31 30 31 30 31") do set pt=%%i
for /f "delims=" %%i in ('type "abcd.txt"^|find /v /c ""') do set /a tt=%%i
    cd.>b.txt
    setlocal enabledelayedexpansion
    for /f "usebackq delims=" %%i in ("abcd.txt") do (
    if not defined b set b=p&call :lp
    if !p3! gtr !pt! set/a p3-=pt,p2+=1&call:next
    if !p2! lss 10 (set m2=0!p2!)else set m2=!p2!
    if !p3! lss 10 (set d3=0!p3!)else set d3=!p3!
    >>b.txt echo !p1!年!m2!月!d3!日 %%i
    if !p3! equ !pt! >>b.txt echo.
    set/a p3+=1 
)
    echo 结束时间 %time%
    pause&exit /b
:next
    if !p2! gtr 12 set/a PN2="^!(p1%%4) & ^!(^!(p1%%100)) | ^!(p1%%400)",PN2+=28,p1+=1,p2=p2%%12
    for /f "tokens=%p2%" %%i in ("31 !pN2! 31 30 31 30 31 31 30 31 30 31") do set pt=%%i
    goto :eof
:lp
    set/a p2-=1
    if %p2% equ 0 set/a PN2="^!(p1%%4) & ^!(^!(p1%%100)) | ^!(p1%%400)",PN2=28+PN2,p1-=1,p2=12
    for /f "tokens=%p2%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a p3+=%%i&set pt=%%i
    if %p3% leq %tt% goto lp
    set/a p3-=tt
    goto :eof
复制代码

再修正一下  以年递减 不满一年 以月递减
修正一个 在行数小的情况出现的BUG

@echo off
echo 开始时间 %time%
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a p1=%%i,p2=100%%j%%100,p3=100%%k%%100
    set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)",pn+=28,pn2=pn+31
    for /f "tokens=%p2%" %%i in ("31 %pn% 31 30 31 30 31 31 30 31 30 31") do set pt=%%i
    for /f "tokens=%p2%" %%i in ("0 31 %pn2% 90 120 151 181 212 243 273 304 334") do set/a p3+=%%i
    for /f "delims=" %%i in ('type "ab cd.txt"^|find /v /c ""') do set /a tt=%%i-1
    if %tt% gtr %p3% (set/a tt-=p3,p1-=1,p2=12,p3=31)else goto lp2
:lp
    set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)",pn+=365
    if %tt% gtr %pn% set/a tt-=pn,p1-=1&goto lp
    set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)",pn+=28
:lp1
    if %p3% gtr %tt% goto lp2
    set/a p2-=1
    for /f "tokens=%p2%" %%i in ("31 %pn% 31 30 31 30 31 31 30 31 30 31") do set/a p3+=%%i&set pt=%%i
    if %p3% leq %tt% goto lp1
:lp2
    set/a p3-=tt
    cd.>b.txt
    setlocal enabledelayedexpansion
    for /f "usebackq delims=" %%i in ("ab cd.txt") do (
    if !p3! gtr !pt! set/a p3-=pt,p2+=1&call:next
    if !p2! lss 10 (set m2=0!p2!)else set m2=!p2!
    if !p3! lss 10 (set d3=0!p3!)else set d3=!p3!
    >>b.txt echo !p1!年!m2!月!d3!日 %%i
    if !p3! equ !pt! >>b.txt echo.
    set/a p3+=1 
)
    echo 结束时间 %time%
    pause&exit /b
:next
    if !p2! gtr 12 set/a pn="^!(p1%%4) & ^!(^!(p1%%100)) | ^!(p1%%400)",pn+=28,p1+=1,p2=p2%%12
    for /f "tokens=%p2%" %%i in ("31 !pn! 31 30 31 30 31 31 30 31 30 31") do set pt=%%i
    goto :eof
复制代码

[ 本帖最后由 terse 于 2008-10-20 13:48 编辑 ]

batman

日期反过来输出不是做不到，只是一时只想到设置变量的办法，但设置50000个变量就根本谈不上效率了。。。不知随风兄有何妙法？

batman

仅做到日期从当前开始输出：
测试文本生成代码：

@echo off&for /l %%i in (1,1,50000) do echo %%i>>"ab cd.txt"
复制代码

解题代码：

@echo off&setlocal enabledelayedexpansion
set "t=%time%"&echo.>c.txt
set /a year=%date:~,4%,month=1%date:~5,2%%%100,day=1%date:~8,2%%%100,yun=29
for /f "usebackq delims=" %%i in ("ab cd.txt") do (
    echo !year!-!month!-!day! %%i>>c.txt
    set /a day-=1
    if !day! equ 0 (
       echo.>>c.txt
       set /a month-=1
       if !month! equ 0 (
          set /a year-=1,month=12,day=31&call :lp1
          ) else (
          call :lp2
       )
    )
)
echo 程序开始时间为：%t% 
echo 程序结束时间为：%time%
pause>nul&goto :eof
:lp1
set /a a=year%%4,b=year%%100,c=year%%400,yun=28
if %b% equ 0 (
   if %c% equ 0 set "yun=29"
   ) else (
   if %a% equ 0 set "yun=29"
)
goto :eof     
:lp2
for /f "tokens=%month%" %%a in ("1#31 2#%yun% 3#31 4#30 5#31 6#30 7#31 8#31 9#30 10#31 11#30 12#31") do (
    for /f "tokens=2 delims=#" %%i in ("%%a") do set "day=%%i"
)
复制代码

经pusofalse版主提醒修改部分代码后再测试（本人机子慢了），测试时间如下：

batman

哈哈，小楼兄摆明的是在出难题啊，经测算日期计算只能用32秒左右的时间，确实是个挑战。。。

[ 本帖最后由 batman 于 2008-10-19 09:21 编辑 ]

zqz0012005

批处理对日期的处理实在麻烦，来个vbs先

Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("ab cd.txt")
f.ReadAll : lines = f.Line : f.Close
set f = fso.OpenTextFile("ab cd.txt")
Do While f.AtEndOfStream <> True
    s =s & GetDate(f.Line) & " " & f.ReadLIne & vbCrLf
Loop
fso.OpenTextFile("c.txt",2,True).Write s

Function GetDate(nDiff)
    nDate = DateAdd("d", nDiff-lines, date)
    if month(nDate) <> month(nDate-1) then strMonChange = vbCrLf
GetDate = strMonChange & _
        year(nDate) & "年" & _
        right("0" & month(ndate), 2) & "月" & _
        right("0" & day(ndate), 2) & "日"
End Function
复制代码

terse

1867年计算到2008 整4分
重新整理下再看

随风

用 reg ？
没有任何思路。。
只要是系统自带的命令都可以。
期待结果。。。

rat

纯P是不是不让调外部命令？
可以用reg.exe么？

zqz0012005

这题主要麻烦在日期处理，其他没什么。关于日期处理cn-dos有很多现成的代码。我也不想再去找了。

以前在cn-dos收集的代码，修理硬盘备份在同学的电脑上，后来被他删了。扁死他也找不回来了。也没有时间和那份心情再去重新收集

随风

这个应该难不住 terse 兄，效率问题只要写代码时多费费脑筋就ok了   ^_^

5 万行 一分钟左右 。。。。
这个效率应该可以接受。

这是帮一朋友写代码时想到的，若不讲究效率则此题就不难了。
对批处理的语法要求更高，对入门不久的新手应该是很好的练手题目。。。

terse

可以做到 但效率不理想