标题: [求助]set /a出错 [打印本页]
作者: Eblis 时间: 2007-6-22 21:49 标题: [求助]set /a出错
:find
if exist date.txt (goto Set1) else (goto set2)
:Set1
for /f "tokens=1" %%a in (date.txt) do set d1=%%a
goto compare
:set2
for /f "tokens=1" %%a in ('date/t') do set d1=%%a
goto compare
:compare
for /f "tokens=1" %%a in ('date/t') do set d2=%%a
for %%a in (%d2% %d1%) do call :date2day %%a
goto :eof
:Date2Day
setlocal ENABLEEXTENSIONS
set /a a+=1
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
set n%a%=%j%
endlocal&goto :EOF
其中date.txt里面就是一个日期..不同于现在的日期..我想比较2个日期的差别通过date2day变成数字..然后再变成时间..但是..在倒数第二句..我想set n1=%j%if exist date.txt (goto Set1) else (goto set2)
:Set1
for /f "tokens=1" %%a in (date.txt) do set d1=%%a
goto compare
:set2
for /f "tokens=1" %%a in ('date/t') do set d1=%%a
goto compare
:compare
for /f "tokens=1" %%a in ('date/t') do set d2=%%a
for %%a in (%d2% %d1%) do call :date2day %%a
goto :eof
:Date2Day
setlocal ENABLEEXTENSIONS
set /a a+=1
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
set n%a%=%j%
endlocal&goto :EOF
set n2=%j%..是不是通过call之后set /a a+=1 只运行一次.所以..永远只是n1=%j%
[ Last edited by bjsh on 2007-7-31 at 12:51 PM ]
作者: Eblis 时间: 2007-6-22 21:55
如果是的话..请问有什么办法解决不?如果不行..我只能call 2次了..
作者: Eblis 时间: 2007-6-22 23:32
咋就没人说话咧`?指点一下撒..我已经搜索过论坛了``
作者: flyinspace 时间: 2007-6-22 23:38
看看“命令延时”的技巧：
Setlocal EnableDelayExpansion
另：重新看一下语法。。了解一下for语句。。
还有 了解一下字符串和数字间的区别。
作者: wudixin96 时间: 2007-6-22 23:44
对，去掉setlocal ENABLEEXTENSIONS
作者: Eblis 时间: 2007-6-22 23:57
thanks ..开始因为这段代码是willsort版主的贴出来的..我上google也查找过他上面写的核心算法Ritchie Lawrence 算法没有..翻译成中文搜也没有..也就没理解..
我看到这一段代码没用for但用了set /a不理解那一段..所以也不知道有没有用变量延时.就没改了..
作者: woo88 时间: 2008-3-15 02:04
dos 7.0 没有SET /P或/A参数啊
作者: knoppix7 时间: 2008-3-15 12:09
LS搞没搞错.这一一般讨论WXP/2K/NT的cmd.exe