批处理将字符串中的字母大小写互换

Batcher

1、当用户输入的字符串中包含特殊字符时，后者可能出错。
2、是变量替换的意思，把空格替换成井号。

sjzong

我这个是看到batman的程序，得到一点启示而进行修改的！希望楼主能够鉴定一下！

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "str=abHJ      dfsKHK    aB"
   
4. echo 转换前的字符串是：%str%
   
5. set/p=转换前的字符串是：<nul
   
6. set "zm= abcdefghijklmnopqrstuvwxyzZYXWVUTSRQPONMLKJIHGFEDCBA"
   
7. :a
   
8. if not "!str:~%n%,1!"=="" (
   
9.    for /l %%a in (1 1 26) do (
   
10.     if "!str:~%n%,1!"=="!zm:~%%a,1!" (set/p=!zm:~-%%a,1!<nul&goto :b)
    
11.     if "!str:~%n%,1!"=="!zm:~-%%a,1!" (set/p=!zm:~%%a,1!<nul&goto :b)
    
12.    )
    
13.    set/p=!str:~%n%,1!<nul
    
14. :b
    
15.   set/a n+=1&goto :a
    
16. )
    
17. pause>nul

复制代码

[ 本帖最后由 sjzong 于 2009-4-21 21:09 编辑 ]

batman

我也来个：

1. @echo off&setlocal enabledelayedexpansion
   
2. set "str=abHJ      dfsKHK    aB"
   
3. :lp
   
4. for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
   
5.      set "temp=%%a"
   
6.      if "!str:~,1!" equ "!temp:~,1!" set /p=!temp:~1,1!<nul&goto next
   
7.      if "!str:~,1!" equ "!temp:~1,1!" set /p=!temp:~,1!<nul&goto next
   
8. )
   
9. set /p=!str:~,1!<nul
   
10. :next
    
11. set "str=!str:~1!"&if defined str goto lp
    
12. pause>nul

复制代码

[ 本帖最后由 batman 于 2009-4-20 13:28 编辑 ]

rat

运行结果不对

batman

回楼上，是多写个c字符，已改正

随风

都忘了这个帖了，帖一下我的代码

1. @echo off&Setlocal EnableDelayedExpansion
   
2. set "Dxie=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
3. set "Xxie=abcdefghijklmnopqrstuvwxyz"
   
4. set var=af SDF jfdi:LKJFIefIfifUfdf  AsZfzG sJ
   
5. echo            转换前：%var%
   
6. for /l %%a in (0 1 25) do (
   
7.   set "D!Dxie:~%%a,1!=!Dxie:~%%a,1!"
   
8.   set "X!Xxie:~%%a,1!=!Xxie:~%%a,1!"
   
9. )
   
10. :loop
    
11. set "str=!var:~0,1!"
    
12. if "%str%"=="!D%str%!" (set num=!num!!X%str%!) else (
    
13.   if defined D!str! (set num=%num%!D%str%!) else set "num=%num%%str%"
    
14. )
    
15. set "var=%var:~1%"
    
16. if defined var goto loop
    
17. echo            转换后：%num%
    
18. pause

复制代码

rat

改成这样？

1. @echo off&setlocal enabledelayedexpansion
   
2. set "str=abHJ      dfsKHK    aB"
   
3. :lp
   
4. (for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
   
5.      set "temp=%%a"
   
6.      if "!str:~,1!" equ "!temp:~,1!" set /p=!temp:~1,1!&goto next
   
7.      if "!str:~,1!" equ "!temp:~1,1!" set /p=!temp:~,1!&goto next
   
8. )
   
9. set /p=!str:~,1!)<nul
   
10. :next
    
11. set "str=!str:~1!"&if defined str goto lp
    
12. pause>nul

复制代码

zqz0012005

其实25楼的代码也很不错^_^

inittab

跟版主的思路差不多.

1. 
   
2. 
   
3. @echo off&setlocal enabledelayedexpansion
   
4. for %%i in (Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz) do (
   
5. set str=%%i&set #!str:~0,1!=!str:~1,1!&set $!str:~1,1!=!str:~0,1!)
   
6. set/p strr=请输入：
   
7. echo 转换前:%strr%
   
8. set "st="
   
9. set n=0
   
10. :begin
    
11. set str=!strr:~%n%,1!
    
12. if "!str!"=="!#%str%!" (set st=!st!!$%str%!) else if "!str!"=="!$%str%!" (set st=!st!!#%str%!) else set "st=!st!!str!"
    
13. set/a n+=1
    
14. if not "!str!"=="" (goto begin)
    
15. echo 转换后:!st!

复制代码

[ 本帖最后由 inittab 于 2009-4-22 11:57 编辑 ]

pusofalse

1. @echo Off & setlocal EnableDelayedExpansion
   
2. set "var=tEST" & set "str=!var!"
   
3. 
   
4. set "Lower=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. set "Upper=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"
   
6. For %%a in (%Lower%) do set "var=!var:%%a=%%a!"
   
7. For /L %%a in (0 2 51) do (set "_!Lower:~%%a,1!=!Upper:~%%a,1!")
   
8. 
   
9. :Loop
   
10. If defined str (
    
11.     set "AlphaL=%str:~,1%" & set "AlphaU=%var:~,1%" & set "Letter=!AlphaU!
    
12.     If "!AlphaL!" equ "!AlphaU!" If defined _!AlphaL! (set "Letter=!_%str:~,1%!")
    
13.     set "str=%str:~1%" & set "var=%var:~1%"
    
14.     <nul set /p=!Letter!& goto :Loop
    
15. )
    
16. Echo\ & Pause>nul

复制代码

随风

此类代码始终摆脱不了逐字判断，效率问题，goto次数等于 字符串个数。
兄的代码不觉得for循环次数比36楼要多些吗？
32、33楼虽用goto跳出for，但其实for循环是不会跳出的，只是停止运行里面的命令罢了。也就是说for循环次数等于字符串个数乘26

lxzzr

1. rem 思路:先定义两个集合：大写和小写，然后逐字符分析。
   
2. rem 调换两个变量即可实现小大写互换
   
3. 
   
4. @echo off
   
5. setlocal enabledelayedexpansion
   
6. 
   
7. set temp_a=ABCDEFGHIJKLMNOPQRSTUVWXYZ
   
8. set temp_b=abcdefghijklmnopqrstuvwxyz
   
9. 
   
10. set /p temp_c=请输入:
    
11. echo 转换前:%temp_c%
    
12. for /l %%a in (0 1 10000000) do (
    
13. set temp_n=!temp_c:~%%a,1!
    
14. for /l %%b in (0 1 26) do (
    
15. set temp_m=!temp_a:~%%b,1!
    
16. if !temp_n! == !temp_m! (
    
17. if defined temp_n (
    
18. set temp_s=!temp_b:~%%b,1!
    
19. call :sub !temp_n! !temp_s!
    
20. ) else (
    
21. echo 转换后:!temp_c!
    
22. pause>nul
    
23. exit
    
24. )
    
25. )
    
26. )
    
27. )

复制代码

lxzzr

水平有限，想不到更好的办法，呵呵

hhl1987

看一看先……………………

batman

首先设置变量提高点效率：

1. @echo off&setlocal enabledelayedexpansion
   
2. for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
   
3.     set "code=%%a"&set "#!code:~,1!=!code:~1,1!"&set "_!code:~1,1!=!code:~,1!"
   
4. )
   
5. set /p str=请输入字符：&echo.&set /p=经转换后：<nul
   
6. :lp
   
7. if defined _%str:~,1% (
   
8.    if "%str:~,1%" equ "!#%str:~,1%!" (
   
9.       set /p=!_%str:~,1%!<nul
   
10.       ) else (
    
11.       set /p=!#%str:~,1%!<nul
    
12.    )
    
13.    ) else (
    
14.    set /p=%str:~,1%<nul
    
15. )
    
16. set "str=%str:~1%"
    
17. if defined str goto lp
    
18. pause>nul

复制代码