中国DOS联盟

        ::::::::::::::::::::::::::::::::::
        ::     lxmxn @ bbs.cn-dos.net   ::
        ::       大二下课程安排表       ::
        ::     Make @ 17:34 2007-3-7    ::
        ::::::::::::::::::::::::::::::::::

@Echo Off&SetLocal EnableDelayedExpansion&mode con cols=66 lines=15
set num=1
for %%a in (一 二 三 四 五) do (
        set hello!num!=星期%%a&set/a num+=1
)
set week=%Date:~-3%
call :course %week%
:end
echo;&set/p choose=   请输入要查看课程的星期所代表的数字(1--5)(回车键退出):
cls&if /i "%choose%"=="q" exit/b0
if not defined choose exit/b
if not defined hello%choose% (echo 输入错误&ping 127.1 -n 2 1>nul 2>nul) else (call :course !hello%choose%!&ping 127.1 -n 5 >nul 2>nul&cls&call :course %week%)
goto end
exit/b

:course
echo/&%=Python is not defined=%echo\&echo[&echo]
for /f "delims=: tokens=1*" %%a in ('more +31 %~s0^|findstr /n .*') do (
        if "%%b"=="%1" set a=lxmxn&set b=Python&set c=Batch Scripting
        if not "%%b"=="" (if defined a (echo        %%b)) else (set a=)
)
set a=
if not defined b echo.&echo         没有课程安排，可以休息了&ping 127.1 -n 3 1>nul 2>nul
set choose=
goto :eof
:::::::::   下面是课程表  ::::::::::::::
星期一
3-4 外语 (1703室)

星期二
1-2 数据结构课程设计 (阶梯教室一)
3-4 计算机网络 (网络机房)
5-6 汇编程序设计 (阶梯教室一)
7-8 JAVA程序设计 (阶二)

星期三
1-2 外语 (1703室)
3-4 汇编语言程序设计 (阶梯教室一)
5-6 马克思主义哲学 (1703室)

星期四
1-2 汇编程序设计 (计算机房)
3-4 数据库课程设计 (计算机房)

星期五
1-2 计算机网络技术 (阶梯教室一)