批處理, 小寫轉大寫
@echo?off
::?稍微修改一下代碼就可以實現大寫轉小寫
set?str1=abcdefghijklmnopqrstuvwxyz
set?str2=ABCDEFGHIJKLMNOPQRSTUVWXYZ
:main
cls
set?str=
set?/p?str=????請輸入字符串(退出請直接按回車):
if?not?defined?str?exit
cls
echo.
echo????????????轉換前:"%str%"
echo.
for?/l?%%i?in?(0,1,25)?do?(
????call?set?char1=%%str1:~%%i,1%%
????call?set?char2=%%str2:~%%i,1%%
????call?:change
)
echo?____________________________________________
echo.
echo????????????轉換后:"%str%"
echo.
echo?????????????????????按任意鍵進行下一次演示
pause>nul
goto?main
:change
call?set?"str=%%str:%char1%=%char2%%%"
goto?:eof
::?稍微修改一下代碼就可以實現大寫轉小寫
set?str1=abcdefghijklmnopqrstuvwxyz
set?str2=ABCDEFGHIJKLMNOPQRSTUVWXYZ
:main
cls
set?str=
set?/p?str=????請輸入字符串(退出請直接按回車):
if?not?defined?str?exit
cls
echo.
echo????????????轉換前:"%str%"
echo.
for?/l?%%i?in?(0,1,25)?do?(
????call?set?char1=%%str1:~%%i,1%%
????call?set?char2=%%str2:~%%i,1%%
????call?:change
)
echo?____________________________________________
echo.
echo????????????轉換后:"%str%"
echo.
echo?????????????????????按任意鍵進行下一次演示

pause>nul
goto?main
:change
call?set?"str=%%str:%char1%=%char2%%%"
goto?:eof