【练习-013】将字符串小写转大写并延时输出的批处理

batman

出题目的
       1 掌握大、小写互换的技巧
       2 掌握延时输出技巧
       3 掌握字符截取技巧
解题要求
       1 确保代码高效、通用
       2 尽量简洁代码
       3 不生成临时文件
加分规则
       1 思路独特基准分5分
       2 代码高效、通用基准分4分
       3 技巧高超基准分3分
       4 代码简洁基准分2分
       5 完美代码加分15分
题目如下
       有一字符串i like the bathome,because here is the batch of the world.
       要求用批处理将字符串的所有字母转成大写并在屏幕上以打字的效果延
       时输出。
解题限制
       暂无限制
--------------------------------------------------------------------------------------------
      三楼terse兄弟的代码和本人的惊人的相似，只是感觉还是站在前人的肩
膀上，没有多少自己的技术成份，下面给出本人的代码：

1. @echo off
   
2. set "str=i like the bathome,because here is the batch of the world."
   
3. set "code=A B C D E F G H I J K L N M O P Q R S T U V W X Y Z"
   
4. for %%i in (%code%) do call,set "str=%%str:%%i=%%i%%"
   
5. :lp
   
6. set /p=%str:~,1%<nul&set "str=%str:~1%"
   
7. for /l %%i in (1,1,200) do echo>nul
   
8. if defined str goto lp
   
9. pause>nul

复制代码

[ 本帖最后由 batman 于 2008-8-13 20:20 编辑 ]

523066680

1. 
   
2. @echo off &setlocal enabledelayedexpansion
   
3. color 0a
   
4. set hang= i like the batman,because he is the hero of the world.
   
5. set /a a=0,b=0
   
6. for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
   
7. set /a a+=1
   
8. set n!a!=%%a
   
9. )
   
10. for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
    
11. set /a b+=1
    
12. call,set zimu=%%n!b!%%
    
13. call,set hang=%%hang:%%a=!zimu!%%
    
14. )
    
15. 
    
16. :a
    
17. set /a c+=1
    
18. ping -n>nul
    
19. set /p=!hang:~%c%,1!<nul
    
20. if not "!hang:~%c%,1!"=="" goto :a
    
21. echo,
    
22. pause
    

复制代码

[ 本帖最后由 523066680 于 2008-8-13 14:55 编辑 ]

terse

1. @echo off&setlocal EnableDelayedExpansion
   
2. set "str=i like the bathome,because here is the batch of the world."
   
3. for %%i in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set str=!str:%%i=%%i!
   
4. :lp
   
5. set/p=!str:~%n%,1!<nul
   
6. set/a n+=1
   
7. for /l %%j in (1,1,500) do ver>nul
   
8. if not "!str:~%n%,1!"=="" goto lp
   
9. pause>nul

复制代码

523066680

耶？………………………………………………无语，你太英明了！
我得练多两年
（可惜我只有两分可以加别人，嘿嘿 不过两分也是分）

[ 本帖最后由 523066680 于 2008-8-13 14:51 编辑 ]

pusofalse

^_^

batman

支持一题多解，大家继续。

[ 本帖最后由 batman 于 2008-8-13 16:35 编辑 ]

batman

原帖由 523066680 于 2008-8-13 14:37 发表

hoho 开个玩笑……

下次不可再开这样的玩笑，不然扣分！！！

523066680

事实上我有想到一些题目 但不敢拿来放，觉得---累
我一直都是一个懒散的人，或许批处理会改变我，我在尝试改变，现在，还不是时候
我的基础 还不够好


这道题 依然想象着用echo,I LIKE……告终 呵呵，题目的限制就在这里了

呵呵 我还是想想别的吧 觉得3楼的应该是比较好的方法了。

[ 本帖最后由 523066680 于 2008-8-13 17:21 编辑 ]

huahua0919

我总是赶不上潮流
我写两个

1. @echo off&setlocal enabledelayedexpansion
   
2. set "SmallNum=i like the bathome,because here is the batch of the world"
   
3. set "ChangeSmallNum=%SmallNum% "
   
4. set "BigNum=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
   
5. :lp
   
6. set frist=%SmallNum:~,1%
   
7. for %%i in (%BigNum%) do (
   
8.    for /l %%m in (1 1 5) do (for %%x in (a b c d e f) do color %%x)
   
9.   if /i "%frist%"=="%%i" set /p=%%i<nul
   
10. )
    
11. if "%frist%"=="," set /p=,<nul
    
12. if "%frist%"==" " set /p= <nul
    
13. set SmallNum=%SmallNum:~1%
    
14. if defined SmallNum goto :lp
    
15. pause>nul

复制代码

1. @echo off&setlocal enabledelayedexpansion&color 5c
   
2. set "SmallNum=i like the bathome,because here is the batch of the world"
   
3. set "ChangeSmallNum=%SmallNum% "
   
4. set "BigNum=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
   
5. for %%i in (%BigNum%) do (
   
6. set ChangeSmallNum=!ChangeSmallNum:%%i=%%i!
   
7. )
   
8. ::echo %SmallNum%
   
9. ::echo %ChangeSmallNum%
   
10. :lp
    
11. for /l %%m in (1 1 5) do (for %%x in (a b c d e f) do color %%x)
    
12. set Frist=%ChangeSmallNum:~,1%
    
13. set ChangeSmallNum=%ChangeSmallNum:~1%
    
14. if defined ChangeSmallNum set /p=%Frist%<nul&ping -n 1. localhost >nul &goto :lp
    
15. pause>nul

复制代码

Lumiere

.......call set "str=%%str:%%i=%%i%%"....

不明白百分号如何识别和处理的。不是从左至右么？那么%str:%%应该被识别为变量，然后语义就不对了，这里如何识别是要替换字符呢？还有为什么%%i=%%i就可以替换为大写呢?批处理中不是区分大小写的么？

tireless

call set "str=%%str:%%i=%%i%%"
是从左往右，所以预处理后这里的三对百分号都相应地变为了单个：
call set "str=%str:%i=%i%"
然后再执行以上命令

变量替换时不区分大小写，但写的是大写就会替换成大写...

Lumiere

多谢回复，第二个问题算是清楚了。但是%和（不一样，%是找就近的配对，而（的原理不一样，是通过压栈结构识别的，配对最远的。“%%str:%%i=%%i%%”这样的形式应该会报错才对啊。

老刘1号

用8086写的最后一道练习题
相关：http://www.bathome.net/redirect.php?goto=findpost&ptid=43372&pid=200443
延时就不搞了
用法 UPPER_Case.CMD Hollo World!

1. 
   
2. %老刘制作——字符串转大写（只改动英文字母）%
   
3. %由于DOS子系统的限制，汉字将会丢失，变作两个英文问号%
   
4. @Echo off
   
5. IF /i "%PROCESSOR_ARCHITECTURE%" EQU "AMD64" (
   
6.         Echo DEBUG和8086_ASM不支持64位的系统。
   
7.         Pause&Exit
   
8. )
   
9. IF "%*" NEQ "" (Set "Str=%*") Else GOTO :EOF
   
10. For /F "DELIMS=" %%. in (
    
11.         '^(Echo E 20:0 "%Str:"=%",0^&MORE +18 "%~0"^)^|DEBUG'
    
12. ) Do (
    
13.         IF "%%." NEQ "Program terminated normally" (
    
14.                 Set "转换后字符=%%."
    
15.         ) Else (
    
16.                 CALL ECHO %%转换后字符%%
    
17.                 GOTO :EOF
    
18.         )
    
19. )
    
20. R DS
    
21.         20
    
22. R AX
    
23.         200
    
24. A 100
    
25.         ;汇编代码开始——————————————
    
26.         MOV        DL,[BX]        ;得到BX指向字符的Ascii码
    
27.         CMP        DL,00        ;检测是否为字符串末端
    
28.         JE        11B        ;如果为末端，跳到INT指令处退出
    
29.         ;分割————————————————————
    
30.         CMP        DL,61        ;检测是否是小写字母
    
31.         JB        114
    
32.         CMP        DL,7A
    
33.         JA        114
    
34.         ;分割————————————————————
    
35.         AND        DL,5F        ;转换为大写字符
    
36.         INT        21H        ;显示字符
    
37.         INC        BX        ;BX指向下一个字符
    
38.         JMP        100        ;循环读取
    
39.         ;分割————————————————————
    
40.         MOV        AH,0        ;退出
    
41.         INT 20H
    
42.         ;汇编代码结束——————————————
    
43.         ;注意：下方的空行不能移除
    
44. 
    
45. G
    
46. Q
    
47. 老刘制作～

复制代码