批处理显示课程安排 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

　　看到同学自己动手写的一个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 计算机网络技术 (阶梯教室一)

第1楼　lxmxn	发表于 2007-03-11 08:00
版主　发帖 4,938　积分 11,386
[CMD]批处理显示课程安排　　看到同学自己动手写的一个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 计算机网络技术 (阶梯教室一)

第2楼　csx163	发表于 2007-03-11 08:09
初级用户　发帖 45　积分 97
改一改亦可以自己用把

第3楼　maya0su	发表于 2007-03-11 12:24
中级用户　发帖 131　积分 241
哈哈，早上起来，洗洗刷刷呀，还得打开电脑看一下今天上什么课！不过想法确实不错我还是习惯拿张纸，贴到床头！关键是节约能源！呵呵……

第4楼　zhoushijay	发表于 2007-03-11 12:29
高级用户　发帖 375　积分 845
早上起来连洗练刷牙的时间都没有了，还有空打开电脑 -____-!

第5楼　redtek	发表于 2007-03-11 22:04
金牌会员　发帖 1,147　积分 2,902
兄学这么多课程那？羡慕～～～

第6楼　electronixtar	发表于 2007-03-11 23:32
铂金会员　发帖 2,672　积分 7,493
我有个GTalk机器人可以自动选科，提醒上课，提示任意论坛消息……

第7楼　youxi01	发表于 2007-03-11 23:37
高级用户　发帖 247　积分 846　来自湖南==》广东
说实话，课程看起来确实是好多，在我的印象中，我上大学的时候，从来没有一个星期的课是超过了16节的，当然不包括选修课！

第8楼　lxmxn	发表于 2007-03-11 23:38
版主　发帖 4,938　积分 11,386
Originally posted by electronixtar at 2007-3-11 10:32: 我有个GTalk机器人可以自动选科，提醒上课，提示任意论坛消息…… 　　哇，自己写的还是网上下载的啊？我想要！！

第9楼　jackyggt	发表于 2007-03-13 08:49
初级用户　发帖 38　积分 76
好玩

第10楼　electronixtar	发表于 2007-03-13 10:38
铂金会员　发帖 2,672　积分 7,493
Originally posted by lxmxn at 2007-3-11 23:38: 　　哇，自己写的还是网上下载的啊？我想要！！自己写的，Jabber的很多库都开源的

第11楼　xycoordinate	发表于 2007-03-13 10:44
中级用户　发帖 228　积分 493　来自安徽
继续,学习......

第12楼　axi	发表于 2007-03-14 05:26
中级用户　发帖 93　积分 238　来自 GZ
工作多年了，很怀念校园生活。

第13楼　lxmxn	发表于 2007-03-14 09:15
版主　发帖 4,938　积分 11,386
哎，好多课，今天去上课，老师又说少加了2节课，结果又加了2节课，郁闷。