中国DOS联盟

@echo off

mode con: lines=12 cols=40

setlocal enabledelayedexpansion

for %%a in (一,二,三,四,五,六,日) do (

set /a a+=1

set j!a!=%%a)



for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do (

set /a y+=1

set s!y!=%%b)



set /p m=查几月?

cls

set n=%m%

set /a n-=1





for /l %%c in (1,1,%n%) do (

set /a day+=!s%%c!)





set b=0



for /l %%d in (1,1,!day!) do (

set /a b+=1

if !b! equ 8 set b=1)



if %m% equ 1 set b=7







echo     一   二   三   四   五   六   日

echo.

set flag= 一二三四五六日一二三四五六日





for /l %%f in (1 1 13) do (



if "!flag:~%%f,1!"=="!j%b%!" (

if "!j%%f!"=="一" (set /p s=     <nul&set zh=6&goto next)

if "!j%%f!"=="二" (set /p s=          <nul&set zh=5&goto next)

if "!j%%f!"=="三" (set /p s=               <nul&set zh=4&goto next)

if "!j%%f!"=="四" (set /p s=                    <nul&set zh=3&goto next)

if "!j%%f!"=="五" (set /p s=                         <nul&set zh=2&goto next)

if "!j%%f!"=="六" (set /p s=                              <nul&set zh=1&goto next)

if "!j%%f!"=="日" (set /p s=<nul&set zh=7&goto next)

))





:next



for /l %%e in (1 1 !s%m%!) do (

set /a b+=1

if !b! equ 8 set b=1

if %%e lss 10 (set /p=    %%e<nul) else (set /p=   %%e<nul)

if !fl!==0 (set /a z+=1)



if !z!==7 (echo.&set z=0)

if %%e==!zh! (echo.

set fl=0

)

)

pause>nul

Originally posted by juventusryp at 2007-2-18 08:25 PM:
set j!a!=%%a
这句不是很明白,不知道LZ可否解释一下

......
考虑到读取一行文本时所遇到的目前扩充的限制时，延迟环境
变量扩充是很有用的，而不是执行的时候。以下例子说明直接
变量扩充的问题:

set VAR=before
if "%VAR%" == "before" (
set VAR=after
if "%VAR%" == "after" @echo If you see this, it worked
)

不会显示消息，因为在读到第一个 IF 语句时，BOTH IF 语句中
的 %VAR% 会被代替；原因是: 它包含 IF 的文体，IF 是一个
复合语句。所以，复合语句中的 IF 实际上是在比较 "before" 和
"after"，这两者永远不会相等。同样，以下这个例子也不会达到
预期效果:

set LIST=
for %i in (*.txt) do set LIST=%LIST% %i
echo %LIST%

原因是，它不会在目前的目录中建立一个文件列表，而只是将
LIST 变量设成找到的最后一个文件。这也是因为 %LIST% 在
FOR 语句被读取时，只被扩充了一次；而且，那时的 LIST 变量
是空的。因此，我们真正执行的 FOR 循环是:

for %i in (*) do set LIST= %i

这个循环继续将 LIST 设成找到的最后一个文件。

延迟环境变量扩充允许您使用一个不同的字符(惊叹号)在执行
时间扩充环境变量。如果延迟的变量扩充被启用，可以将上面
例子写成以下所示，以达到预期效果:

set VAR=before
if "%VAR%" == "before" (
set VAR=after
if "!VAR!" == "after" @echo If you see this, it worked
)

set LIST=
for %i in (*.txt) do set LIST=!LIST! %i
echo %LIST%
......