看到同学自己动手写的一个HTML的课程表，界面很好看，自动根据当前的周次来显示今天的课程安排，而且可以查询其它星期的课程安排，于是也想用批处理写个出来，虽然界面没有他的好看，但是效果一样，先发出来看看。代码不是很简洁，有空的朋友帮我简化一下代码，呵呵。
::::::::::::::::::::::::::::::::::
:: 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
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 计算机网络技术 (阶梯教室一)
