批处理资料

学过ＤＯＳ的人，或多或少都听过批处理。它小巧轻便，而且是系统级源代码解释，不用编译和连接而直接运行，曾经吸引了不少ＤＯＳ的爱好者和编程者。众多人士的参与，无数奇思妙想的涌现，构成了批处理编程中的＂异类＂。它们并不是单纯为解决某些＂成批处理的问题＂而设计，而是真正将批处理做为一种语言，来体现它无限的创造力。下面是我搜集的一些批处理程序，他们或许并非是技术上的精品，但绝对是构思上的突破。我会不断的更新和完善这个主题，也希望大家同我一道努力，完成这个＂异类＂收藏。索引＝＝＝＝＝＝1楼：本主题2楼：游戏（Game）：1、三子棋（TicTacToe）3楼：数学（Math）：1、随机数（Random）生成、随机矩阵生成，共2个2、2K/XP表达式计算4楼：时钟（Clock）：1、暂停（Pause）、延迟（Delay）、等待（Wait）或睡眠（Sleep），共5个声明＝＝＝＝＝＝１，为保持本帖的结构，仅为赞美和支持的同志请尽量不要在此回帖；２，对本帖某些程序有任何疑问和建议的朋友，请访问下面的主题=12388３，有意推荐程序的朋友，请注意以下的选择标准：（１），程序实现的功能具有一定的通用性和创新性；（２），程序不依赖于任何特殊或定制的本地环境（比如程序的路径）；（３），程序未使用任何第三方工具或者软件；（４），程序最好适用于所有的Windows和DOS平台，如有特殊要求请注明；４，本主题采用淘汰制，即完成相同或相似功能的代码将采用编写质量最优秀者，无法区分优劣时，或者同时在一帖内列出，或者融合二者的优秀之处改遍成新的代码；被淘汰者或者单独发表主题列出，或者列出可引用的链接。更新记录＝＝＝＝＝＝2004.06.20:发出＂[讨论]批处理编程的异类＂主题，并与＂[分享]批处理编程的异类＂互相链接2005.07.16:更新7楼的prompt变量获取程序2005.08.18:修改3楼为数学（Math）主题，并增加随机数和随机阵列生成程序2005.08.19:修改4楼为时钟（Clock）主题，增加“暂停”程序5个2005.09.11:3楼数学（Math）主题增加“2K/XP表达式计算批处理”『第2楼』:批处理编程异类——游戏（Ｇａｍｅ）程序：TicTacToe（三子棋、井字棋、打井、提担挑）作者：M0eRtH原文：TicTacToe(a.k.a.Noughts''''''''n''''''''Crosses)BATchversion1.1下载：环境：１，程序应该在英文的命令行环境下运行；２，程序使用了大量的环境变量，应该修改程序运行时环境空间的大小；３，程序在ＷＩＮ２Ｋ／ＸＰ运行需要ＣＨＯＩＣＥ的支持；备注：这是我见到第一个用批处理编写的真正具有游戏性的程序，虽然程序并不提供ＡＩ对手，但是其优美的结构仍然值得称道。正文中出现的乱码字是因为作者使用了ＡＮＳＩ的表格字符。同类：福尔摩斯问答：=6&ID=8272ＺＤ庄园的迷魂阵：正文：Quote:@echooffmodeconcols=40lines=25clsecho.echoTicTacToe(a.k.a.Noughts''''''''n''''''''Crosses)echoBATchVersion1.1echo(c)2002M0eRtHecho.echoUpdatesandmorefreestuffatecho哪呐哪呐哪?哪呐哪呐哪?echo4?5?6A?S?Decho哪呐哪呐哪?哪呐哪呐哪?echo1?2?3Z/Y?X?Cecho.echoCtrl+R=ResetgameCtrl+Q=Quitecho.echoNote:echoX,makesuretheNumLockisON.;-)echo.pauseseta1=-seta2=-seta3=-setb1=-setb2=-setb3=-setc1=-setc2=-setc3=-setturn=Xsetwin=-setresult=-setscoreX=-setscoreO=-setgames=-setmaxgames=-++++++++++++++++++++:drawclsecho.echoTicTacToe(a.k.a.Noughts''''''''n''''''''Crosses)echoBATchVersion1.1echo(c)2002M0eRtHecho.echoScoreechoX:%scoreX%echoO:%scoreO%echo.echo%a1%?%a2%?%a3%echo哪呐哪呐哪?echo%b1%?%b2%?%b3%echo哪呐哪呐哪?echo%c1%?%c2%?%c3%echo.:chkWinsetresult=%a1%%a2%%a3%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%b1%%b2%%b3%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%c1%%c2%%c3%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%a1%%b1%%c1%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%a2%%b2%%c2%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%a3%%b3%%c3%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%a1%%b2%%c3%if%result%==XXXgotoXWonif%result%==OOOgotoOWonsetresult=%c1%%b2%%a3%if%result%==XXXgotoXWonif%result%==OOOgotoOWon:getKeysecho%turn%''''''''sturnchoice/c:789456123qweasdzyxc/n:iferrorlevel21gotoresetiferrorlevel20gotoquitiferrorlevel19gotosetOC3iferrorlevel18gotosetOC2iferrorlevel17gotosetOC1iferrorlevel16gotosetOC1iferrorlevel15gotosetOB3iferrorlevel14gotosetOB2iferrorlevel13gotosetOB1iferrorlevel12gotosetOA3iferrorlevel11gotosetOA2iferrorlevel10gotosetOA1iferrorlevel9gotosetXC3iferrorlevel8gotosetXC2iferrorlevel7gotosetXC1iferrorlevel6gotosetXB3iferrorlevel5gotosetXB2iferrorlevel4gotosetXB1iferrorlevel3gotosetXA3iferrorlevel2gotosetXA2iferrorlevel1gotosetXA1gotodraw:resetseta1=-seta2=-seta3=-setb1=-setb2=-setb3=-setc1=-setc2=-setc3=-gotodraw:setXA1ifnot%a1%==-gotodrawif%turn%==Ogotodrawseta1=XgotochangeTurn:setXA2ifnot%a2%==-gotodrawif%turn%==Ogotodrawseta2=XgotochangeTurn:setXA3ifnot%a3%==-gotodrawif%turn%==Ogotodrawseta3=XgotochangeTurn:setXB1ifnot%b1%==-gotodrawif%turn%==Ogotodrawsetb1=XgotochangeTurn:setXB2ifnot%b2%==-gotodrawif%turn%==Ogotodrawsetb2=XgotochangeTurn:setXB3ifnot%b3%==-gotodrawif%turn%==Ogotodrawsetb3=XgotochangeTurn:setXC1ifnot%c1%==-gotodrawif%turn%==Ogotodrawsetc1=XgotochangeTurn:setXC2ifnot%c2%==-gotodrawif%turn%==Ogotodrawsetc2=XgotochangeTurn:setXC3ifnot%c3%==-gotodrawif%turn%==Ogotodrawsetc3=XgotochangeTurn:setOA1ifnot%a1%==-gotodrawif%turn%==Xgotodrawseta1=OgotochangeTurn:setOA2ifnot%a2%==-gotodrawif%turn%==Xgotodrawseta2=OgotochangeTurn:setOA3ifnot%a3%==-gotodrawif%turn%==Xgotodrawseta3=OgotochangeTurn:setOB1ifnot%b1%==-gotodrawif%turn%==Xgotodrawsetb1=OgotochangeTurn:setOB2ifnot%b2%==-gotodrawif%turn%==Xgotodrawsetb2=OgotochangeTurn:setOB3ifnot%b3%==-gotodrawif%turn%==Xgotodrawsetb3=OgotochangeTurn:setOC1ifnot%c1%==-gotodrawif%turn%==Xgotodrawsetc1=OgotochangeTurn:setOC2ifnot%c2%==-gotodrawif%turn%==Xgotodrawsetc2=OgotochangeTurn:setOC3ifnot%c3%==-gotodrawif%turn%==Xgotodrawsetc3=OgotochangeTurn:changeTurnif%turn%==XgotosetTurnOsetturn=Xgotodraw:setTurnOsetturn=Ogotodraw:XWonecho.echo-Xwon!-pausesetscoreX=%scoreX%+setgames=%games%+if%games%==%maxgames%gotoquitgotoreset:OWonecho.echo-Owon!-pausesetscoreO=%scoreO%+setgames=%games%+if%games%==%maxgames%gotoquitgotoreset:quitmodeconcols=80lines=25echo.echoTicTacToe(a.k.a.Noughts''''''''