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

codegay

1. """
   
2. python大小写字符互换.py
   
3. http://www.bathome.net/thread-2740-1-1.html
   
4. 依山居 4:47 2015/12/15
   
5. """
   
6. s="sD8F8S88f899f9DiIujUUuj JhHUuH hH$%"
   
7. def fn(x):
   
8.     if x.islower():
   
9.         return x.upper()
   
10.     elif x.isupper():
    
11.         return x.lower()
    
12.     else:
    
13.         return x
    
14. result=''.join([fn(r) for r in list(s)])
    
15. print(result)
    
16. 
    
17. """
    
18. 输出:
    
19. Sd8f8s88F899F9dIiUJuuUJ jHhuUh Hh$%
    
20. """
    

复制代码

taofan712

1. 
   
2. @echo off & setlocal enabledelayedexpansion
   
3. (for %%a in (a_A b_B c_C d_D e_E f_F g_G h_H i_I j_J k_K l_L m_M n_N o_O p_P q_Q r_R s_S t_T u_U v_V w_W x_X y_Y z_Z A_a B_b C_c D_d E_e F_f G_g H_h I_i J_j K_k L_l M_m N_n O_o P_p Q_q R_r S_s T_t U_u V_v W_w X_x Y_y Z_z) do echo;%%a)>temp.txt
   
4. :loop
   
5. cls&echo;输入混杂大小写的字母串(不超过15位)&set /p var=
   
6. for /l %%b in (0,1,15) do (
   
7.         set "zifu=!var:~%%b,1!"
   
8.         if "!zifu!"=="" pause>nul&goto loop
   
9.         for /f "tokens=2 delims=_" %%c in ('findstr /b "!zifu!" temp.txt') do         set /p=%%c<nul
   
10. )
    
11. pause&goto loop
    

复制代码

有趣哈，想了好一会儿才搞出个答案。

niudd

要点积分看文章。

niudd

要点积分看文章。

niudd

要点积分看文章。

老刘1号

回复 66# niudd


    你这样水真的好？
附一个：

1. 
   
2. ' 2>NUL&@(CLS&Set /p STR=键入：&CALL CSCRIPT -e:VBSCRIPT "%~0" "%%STR%%"&PAUSE&EXIT)
   
3. Option Explicit
   
4. Dim New_,i
   
5. For i = 1 To Len(Wscript.Arguments(0))
   
6.         If UCase(Mid(Wscript.Arguments(0),i,1))=Mid(Wscript.Arguments(0),i,1) Then
   
7.                 New_=New_&LCase(Mid(Wscript.Arguments(0),i,1))
   
8.         ElseIf LCase(Mid(Wscript.Arguments(0),i,1))=Mid(Wscript.Arguments(0),i,1) Then
   
9.                 New_=New_&UCase(Mid(Wscript.Arguments(0),i,1))
   
10.         Else
    
11.                 New_=New_&Mid(Wscript.Arguments(0),i,1)
    
12.         End If
    
13. Next
    
14. Wscript.echo New_

复制代码

懒虫阿布

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. REM 字符串大小写互换
   
5. set BigLetter=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. set SmallLetter=abcdefghijklmnopqrstuvwxyz
   
7. 
   
8. set startIndex=0
   
9. for %%i in (%BigLetter%) do (
   
10.         call set BigIndex=%%SmallLetter:~!startIndex!,1%%
    
11.         set arrayBig[!BigIndex!]=%%i
    
12.         set arraySmall[%%i]=!BigIndex!
    
13.         set /a startIndex+=1
    
14. )
    
15. 
    
16. 
    
17. 
    
18. set /p str=请输入要转换的字符串：
    
19. echo %str%>str.txt
    
20. echo .>>str.txt
    
21. REM 获取输入字符串的长度
    
22. for /f "tokens=1 delims=:" %%a in ('findstr /o .* str.txt') do (
    
23.         set  /a strlen=%%a-2
    
24. )
    
25. 
    
26. echo string len=!strlen!
    
27. set /a loopindex=!strlen!-1
    
28. for /l %%i in (0, 1, !loopindex!) do (
    
29.         set letter=!str:~%%i, 1!
    
30.        
    
31.         call set smallchar=%%arraySmall[!letter!]%%
    
32.         call set bigchar=%%arrayBig[!letter!]%%
    
33. 
    
34.         if "!letter!" EQU "!smallchar!" (
    
35.                 set retstr=!retstr!!bigchar!
    
36.          ) else if "!letter!" EQU "!bigchar!" (
    
37.                 set retstr=!retstr!!smallchar!
    
38.          ) else (
    
39.                 set retstr=!retstr!!letter!
    
40.          )         
    
41. )
    
42. 
    
43. echo retstr=!retstr!
    

复制代码

tiandyoin

回复 53# CrLf


    没看出哪哪里用了 ascmap ，结果是：
字符串=WwW.baThOME.net
结 果 =RRh}|OJH`h

wanghan519

试了一下tr a-zA-Z A-Za-z似乎可以