批处理之家's Archiver

batman 发表于 2008-6-26 14:04

批处理读搞笑高考作文

文章是从网上得来的,写下这段代码也是为了好玩:[code]::   我在这个世界上生活了十几年,虽总在加
:: 强情操的培养,但是有的时候,仍然很难做一
:: 些性命悠关的大决定。生存,还是毁灭,这是
:: 个问题。莎士比亚的这个疑问困扰了古代无数
:: 的哲人。
::   他人的利益重要,还是自己的利益重要?
:: 为了祖国是不是该牺牲个人的利益?为人民服
:: 务的宗旨是不是要坚持?这是我们的品德教育
:: 用了十年,才使我们彻底弄清的问题。革命先
:: 烈用八年抗战,为我们做出了最好的回答。我
:: 们这代人是跨世纪的一代,将来会面对更多的
:: 诱惑。正因为如此,我们必须从小就树立一切
:: 为了他人的崇高信念。
::   生命是人最宝贵的财富,但是在重要的时
:: 候,个人利益必须牺牲。罗胜教在刺骨的冰水
:: 中救孩子,这是他心灵的选择。他牺牲自己,
:: 让孩子的生命得到延续。而在我们的生活中,
:: 大多没有这么极端的情况。但也不能有一点危
:: 险就屁滚尿流。做出牺牲自己的选择,不只是
:: 象用眼睛看来那么简单的。我们必须时时反省
:: 自己,只有时刻严格要求自己,才可能成为一
:: 个完整的人。
::   个人的利益首先还要服从集体利益,就像
:: 当年一个人再怎么成功,其力量也不能改变国
:: 家孱弱的现实。个人的智慧再强大,也比不上
:: 集体智慧。是全中国人民集体才改变了我国一
:: 穷二白的面貌,是千千万万劳动中国人民艰苦
:: 奋斗痴心不悔,才建成了我们的国家,有人说
:: 雷锋傻,我们就要做革命的傻子,每天用雷锋
:: 事迹逼迫自己努力向上。但这其实非常难,人
:: 不是神,做出牺牲自己的决定,内心斗争是必
:: 然要经历的。这是,我们必须提高觉悟,尽量
:: 排除病态的极端个人主义思想干扰,严格要求
:: 自己,做出正确的心灵选择。
::   一个人的力量微不足道,经常无法实现宏
:: 伟目标。所以如果想要社会进步,我们必需要
:: 时刻准备,甚至不惜牺牲自己的个人利益,不
:: 能象猪一样,只知享乐。而是要象革命先烈那
:: 样抛头颅,洒热血,为人民的共同利益,牺牲
:: 自己。只有人人都这样,我国才能真正富强,
:: 才能还我国以强国本色,我们大家才能过得更
:: 好。不过,让人人都这么想这么做的确很难,
:: 但是如果我们都能严格要求自己,切切实实做
:: 到从我做起,这个宏伟的目标终究有一天是会
:: 实现的。
::   大的理想,如果能从小事入手,从小事做
:: 起,便容易成功很多。所以,如果没有行动,
:: 只是有崇高的理想是没有用的。我们需要随时
:: 保持头脑的清醒,对自己不能放松,道德要求
:: 铭记脑海。大家都能这样,我们的祖国怎能不
:: 强大呢?
@echo off&color 1f&mode con cols=45 lines=20
setlocal enabledelayedexpansion
:begin
cls&set select=&echo.&set /p select=请选择阅读方式:(1.正常阅读 2.搞笑阅读)
if "%select%" neq "1" if "%select%" neq "2" cls&echo.&echo 请正确选择。&ping /n 2 127.1>nul&goto begin
cls&echo.
if %select% equ 2 echo 现在阅读原文每行第三个字,每段空出的行头算两个字。&ping /n 3 127.1>nul&cls&echo.
for /f "delims=:" %%i in (%~fs0) do (
    set str=%%i&set /a n+=1
    if !n! lss 52 (
       if %select% equ 1 (
          call :lp
          ) else (
          set /p=!str:~3,1!<nul
          call :delay
          set /a m+=1
          if !m! equ 20 set m=0&echo.&echo.
)))
pause>nul&goto :eof
:delay
for /l %%i in (1,1,200) do vol>nul
goto :eof
:lp
set a=%str:~,1%
set /p=%a%<nul
call :delay
if "%str:~1%" neq "" set str=%str:~1%&goto lp
echo.&echo.[/code]

杨风 发表于 2008-6-27 11:22

好---好 0--------好!!高手就是不一样!无聊了,连批处理也可以当成娱乐工具了!!!

骚鸡 发表于 2008-7-13 17:33

怎么把文字一个一个的显示出来啊?

hpdwz8695pcl 发表于 2008-8-2 22:35

酷!!!!!!!!!真酷!!!!!!!!!!!!!

cyfw 发表于 2008-8-3 22:31

afdsfdsafdsa

tjtchly 发表于 2008-8-7 20:51

收藏,慢慢研究,谢了。

forthelichking 发表于 2008-8-8 14:06

顶顶顶顶顶顶顶顶顶顶顶顶

beck1321 发表于 2008-8-8 15:16

呵呵 是手动编的把,否则谁写的作文能那么巧

学好bat 发表于 2008-8-9 14:43

顶!!!


要顶
必须顶
不得不顶
用尽全力顶
再加上千斤顶
总之把它顶到顶
接着使出葵花宝顶
就算顶到史前也要顶
老子看了会用道德经顶
孔子亲自拜你为师天天顶
秦始皇站在阿房宫上使劲顶
汉高祖挥师杀向东罗马为你顶
吕布抛弃了貂禅而选择了帮你顶
张三丰见了后用太极拳九式全力顶
左冷禅召开武林盟主大会商讨如何顶
西门吹雪从此学会了最强一招剑神一顶
龙剑飞的如来神掌最后一式改为万佛朝顶
陆小凤从此再也不管闲事了而专门来为你顶
四大名捕四面出击看天下还有没有人敢不在顶

mildforest 发表于 2008-9-13 14:02

太佩服了,学习一下!

zhan5257 发表于 2008-11-5 21:30

我想问以下   我就把你的选择1 留下了   怎么显示不出来啊?????

lhjoanna 发表于 2008-11-8 11:25

大家来看一下这个,在楼主基础上改编的,嘿~~~[code]::   我在这个世界上生活了十几年,虽总在加
:: 强情操的培养,但是有的时候,仍然很难做一
:: 些性命悠关的大决定。生存,还是毁灭,这是
:: 个问题。莎士比亚的这个疑问困扰了古代无数
:: 的哲人。
::   他人的利益重要,还是自己的利益重要?
:: 为了祖国是不是该牺牲个人的利益?为人民服
:: 务的宗旨是不是要坚持?这是我们的品德教育
:: 用了十年,才使我们彻底弄清的问题。革命先
:: 烈用八年抗战,为我们做出了最好的回答。我
:: 们这代人是跨世纪的一代,将来会面对更多的
:: 诱惑。正因为如此,我们必须从小就树立一切
:: 为了他人的崇高信念。
::   生命是人最宝贵的财富,但是在重要的时
:: 候,个人利益必须牺牲。罗胜教在刺骨的冰水
:: 中救孩子,这是他心灵的选择。他牺牲自己,
:: 让孩子的生命得到延续。而在我们的生活中,
:: 大多没有这么极端的情况。但也不能有一点危
:: 险就屁滚尿流。做出牺牲自己的选择,不只是
:: 象用眼睛看来那么简单的。我们必须时时反省
:: 自己,只有时刻严格要求自己,才可能成为一
:: 个完整的人。
::   个人的利益首先还要服从集体利益,就像
:: 当年一个人再怎么成功,其力量也不能改变国
:: 家孱弱的现实。个人的智慧再强大,也比不上
:: 集体智慧。是全中国人民集体才改变了我国一
:: 穷二白的面貌,是千千万万劳动中国人民艰苦
:: 奋斗痴心不悔,才建成了我们的国家,有人说
:: 雷锋傻,我们就要做革命的傻子,每天用雷锋
:: 事迹逼迫自己努力向上。但这其实非常难,人
:: 不是神,做出牺牲自己的决定,内心斗争是必
:: 然要经历的。这是,我们必须提高觉悟,尽量
:: 排除病态的极端个人主义思想干扰,严格要求
:: 自己,做出正确的心灵选择。
::   一个人的力量微不足道,经常无法实现宏
:: 伟目标。所以如果想要社会进步,我们必需要
:: 时刻准备,甚至不惜牺牲自己的个人利益,不
:: 能象猪一样,只知享乐。而是要象革命先烈那
:: 样抛头颅,洒热血,为人民的共同利益,牺牲
:: 自己。只有人人都这样,我国才能真正富强,
:: 才能还我国以强国本色,我们大家才能过得更
:: 好。不过,让人人都这么想这么做的确很难,
:: 但是如果我们都能严格要求自己,切切实实做
:: 到从我做起,这个宏伟的目标终究有一天是会
:: 实现的。
::   大的理想,如果能从小事入手,从小事做
:: 起,便容易成功很多。所以,如果没有行动,
:: 只是有崇高的理想是没有用的。我们需要随时
:: 保持头脑的清醒,对自己不能放松,道德要求
:: 铭记脑海。大家都能这样,我们的祖国怎能不
:: 强大呢?
@echo off&color 1f&mode con cols=50 lines=20
setlocal enabledelayedexpansion
for /f "delims=:" %%i in (%~fs0) do (
   set str1=%%i
   set str2=%%i
   set /a n+=1
   if !n! lss 52 call :loop1
)
pause>nul&exit
:loop1
set /p=!str2:~3,1!  <nul
ping -n 1 127.1>nul
:loop2
set a=!str1:~,1!
set /p=!a!<nul
ping -n 1 127.1>nul
if "!str1:~1!" neq "" set str1=!str1:~1!&goto loop2
echo.[/code]

ljl 发表于 2008-11-27 10:38

高手啊全是高手我现在什么都不会谁能做我的老师啊

Batcher 发表于 2008-11-27 17:39

回复 13楼 的帖子

教程就是最好的老师
建议到“批处理教学&资料”多看教程

Peking007 发表于 2009-2-27 17:39

高手呀~高手~
佩服!!!!

hackerlong 发表于 2009-3-1 08:39

为什么按2会出现:我操命题人他祖宗十八代。............??????

523066680 发表于 2009-3-1 09:13

那是这篇文章的精髓啊~

hjh700913 发表于 2009-5-8 11:40

高手呀~高手~
佩服!!!!

hjh700913 发表于 2009-5-8 11:41

高手呀~高手~
佩服佩服!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

huxu823 发表于 2009-10-28 15:01

有意思,支持一下!!!

sudublog 发表于 2009-11-5 13:48

高手,就是高手,厉害厉害!

sudublog 发表于 2009-11-5 13:53

佩服啊,呵呵!厉害厉害

opolokoi 发表于 2009-11-26 18:11

把西文空格改为中文全角空格,我认为效果更佳,这样原文就对的齐了。

hdxhao 发表于 2009-11-26 19:01

难得一见的高手啊,好好学飞习了

pclhhwa 发表于 2010-6-20 16:14

人才@!
真人才@!

chenfei 发表于 2010-6-29 05:43

哈哈,服了

哈哈,我真是服了,一个比一个强悍哦

garyng 发表于 2011-9-1 20:25

这太帅了~
读取自己~
然后显示出来~

ANSL 发表于 2022-3-31 14:47

**** 作者被禁止或删除 内容自动屏蔽 ****

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.