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

随风

将字符串中的字母大写换成小写，小写换成大写。
如：

1. 
   
2. set var=abHJ      dfsKHK    aB
   

复制代码

1. 
   
2. 要求显示
   
3. 转换前：abHJ      dfsKHK    aB
   
4. 转换后：ABhj      DFSkhk   Ab
   

复制代码

suqili56

@echo off
set var=abHJ      dfsKHK    aB
set/p b=AB%var:~2,18%AB
pause

随风

汗，字符窜是随机的，没有规律。

tireless

1. @echo off
   
2. setlocal EnableDelayedExpansion
   
3. set /p var=请输入:
   
4. set Lowercase=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 Capital=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. cls & echo 转换前: %var%
   
7. 
   
8. for %%a in (%var%) do call :replace %%a
   
9. echo 转换后: %var%
   
10. pause & exit /b
    
11. 
    
12. :replace
    
13. set "n="
    
14. set "word2="
    
15. set word=%1
    
16. :loop
    
17. set /a n+=1
    
18. set one=!word:~-%n%,1!
    
19. if %one% leq Z if %one% geq a (
    
20.   if "!Lowercase:%one%=%one%!" equ "%Lowercase%" (
    
21.     call :C %one% & goto next
    
22.   ) else (call :L %one% & goto next)
    
23. )
    
24. set "word2=%one%%word2%"
    
25. :next
    
26. if "!word:~%n%!" neq "" goto loop
    
27. set var=!var:%word2%=%word2%!
    
28. goto :eof
    
29. 
    
30. :L
    
31. for %%a in (%Lowercase%) do if /i %1==%%a set "word2=%%a%word2%" & goto :eof
    
32. 
    
33. :C
    
34. for %%a in (%Capital%) do if /i %1==%%a set "word2=%%a%word2%" & goto :eof

复制代码

有点乱。。

[ 本帖最后由 tireless 于 2008-12-8 01:50 编辑 ]

rat

1. @echo off
   
2. set /p var=Please input:
   
3. for /f "delims=" %%a in ('^(echo e0:200 "%var%" ff^&more /e +5^<"%~f0"^)^|debug^|findstr "^[^-0]"^|findstr /v "Program Invalid"') do echo.%%a
   
4. pause&exit/b
   
5. 
   
6. a100
   
7. mov ax,0
   
8. mov ds,ax
   
9. mov bx,200
   
10. mov dl,[bx]
    
11. cmp dl,41
    
12. jb 112
    
13. xor dl,20
    
14. mov ah,2
    
15. int 21
    
16. inc bx
    
17. mov al,[bx]
    
18. cmp al,ff
    
19. jnz 108
    
20. int 20
    
21. 
    
22. g
    
23. q
    
24. q

复制代码

lhjoanna

1. @echo off&setlocal enabledelayedexpansion
   
2. set /p "string=请输入字符串:"
   
3. set "code=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 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"
   
4. set string=!string: =#!
   
5. :loop
   
6. set "str_nul=!str_nul!!string:~,1! "&set string=!string:~1!
   
7. if defined string goto loop
   
8. for %%i in (!str_nul!) do (
   
9.     set flag=1
   
10.     for %%j in (!code!) do (
    
11.         if /i "%%i"=="%%j" if not "%%i"=="%%j" set str=!str!%%j&set flag=0
    
12.     )
    
13.     if !flag! equ 1 set str=!str!%%i
    
14. )
    
15. set "str=!str:#= !"
    
16. echo.&echo 转换后:!str!
    
17. pause>nul
    

复制代码

以上代码对于数字和空格原样输出，之前写过类似代码，见http://www.bathome.net/thread-2550-1-2.html中第二个功能。

[ 本帖最后由 lhjoanna 于 2008-12-8 01:56 编辑 ]

tireless

遇到非字母会有问题：

请输入字符串:bbs.bathome.net
'P' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

转换后BBs.bathome.net

pusofalse

指定的字符串中会有特殊字符吗？

lhjoanna

1. 'P' 不是内部或外部命令，也不是可运行的程序
   
2. 或批处理文件。

复制代码

这个不是非字母的问题啊，刚检查了下，是因为在给code赋值时 P 到了第二行了，应该是粘贴时不小心多按了回车，现已改过来了。对于特殊字符，不支持 !  ^ 。#符号我当成空格的标记了，如果需要显示可以修改下代码。

youxi01

利用一个特性：变量名不区分大小写，变量值却区分大小写。

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set str=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
   
4. for %%i in (%str%) do set "var=%%i" & set !var:~0,1!=%%i
   
5. set "TS="
   
6. set /P TS=请输入测试字符(没考虑特殊字符)：
   
7. for /l %%i in (0 1 100) do (
   
8.         set "T3=!TS:~%%i,1!"
   
9.         if "!T3!"=="" goto :Res
   
10.         if defined !T3! (
    
11.                 call set T2=%%!T3!:~0,1%%
    
12.                 if "!T3!"=="!T2!" call set T2=%%!T3!:~1,1%%) else set "T2= "
    
13.         set Res=!Res!!T2!
    
14. )
    
15. :Res
    
16. echo.&echo 转换前：!TS!
    
17. echo 转换后：!Res!
    
18. pause>nul
    
19. 
    

复制代码

随风

set var=abc  ## adf
这种情况下把#号替换成了空格。

firewolf85

原帖由 rat 于 2008-12-7 22:56 发表
@echo off
set /p var=Please input:
for /f "delims=" %%a in ('^(echo e0:200 "%var%" ff^&more /e +5^

汇编吗？很眼熟的说。

youxi01

原帖由 随风 于 2008-12-8 15:15 发表
set var=abc  ## adf
这种情况下把#号替换成了空格。

呵呵，只处理 字母 和空格，当初设计的时候
没考虑完全啊

rat

原帖由 firewolf85 于 2008-12-8 17:38 发表

汇编吗？很眼熟的说。

是。就会一点点而已：（

skuny

@ECHO OFF&setlocal enabledelayedexpansion
:222
set st=
set /p "strr=请输入字符串:"
echo 转换前!strr!
call :111 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
echo 转换后:!st!
pause>nul&goto :222
:111
for /l %%a in (0,1,100) do (
&#160; set "stt=!strr:~%%a,1!"
&#160; if not defined stt goto :eof
&#160; set /a aaa=0
&#160;   for %%i in (%*) do (
&#160;   set /a aaa+=1
&#160;   if /i "!stt!"=="%%i" (
&#160;        if not "!stt!"=="%%i" set "st=!st!%%i"&set /a aaa=0
&#160;        if "!stt!"=="%%i" (
&#160;            set "bb=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"
&#160;            for %%k in (!bb!) do if /i "!stt!"=="%%k" set "st=!st!%%k"&set /a aaa=0
&#160;                  )
&#160;              )
&#160;   if !aaa!==26 set "st=!st!!stt!"&#160;
&#160;       )                   &#160;
)

[ 本帖最后由 skuny 于 2009-1-15 19:34 编辑 ]