:proc_az_to_AZまたは、:proc_ZA_to_zaの対応表を書き換えれば様々な変換にも応用可能。
下記の例ではset /p Target_String=でユーザ入力を受け取りその文字列を対象にしている。
以下を適当な名前の.batファイルとして保存し実行。
@echo off
echo 小文字大文字を変換したい文字列を入力。
set /p Target_String=
call :proc_az_to_AZ %Target_String%
echo 大文字へ変換:%RET%
call :proc_ZA_to_za %Target_String%
echo 小文字へ変換:%RET%
rem 以下置換メソッド本体
pause
goto :EOF
:proc_az_to_AZ
set ORG=%1
set RET=%ORG:a=A%
set RET=%RET:b=B%
set RET=%RET:c=C%
set RET=%RET:d=D%
set RET=%RET:e=E%
set RET=%RET:f=F%
set RET=%RET:g=G%
set RET=%RET:h=H%
set RET=%RET:i=I%
set RET=%RET:j=J%
set RET=%RET:k=K%
set RET=%RET:l=L%
set RET=%RET:m=M%
set RET=%RET:n=N%
set RET=%RET:o=O%
set RET=%RET:p=P%
set RET=%RET:q=Q%
set RET=%RET:r=R%
set RET=%RET:s=S%
set RET=%RET:t=T%
set RET=%RET:u=U%
set RET=%RET:v=V%
set RET=%RET:w=W%
set RET=%RET:x=X%
set RET=%RET:y=Y%
set RET=%RET:z=Z%
goto :EOF
:proc_ZA_to_za
set ORG=%1
set RET=%ORG:A=a%
set RET=%RET:B=b%
set RET=%RET:C=c%
set RET=%RET:D=d%
set RET=%RET:E=e%
set RET=%RET:F=f%
set RET=%RET:G=g%
set RET=%RET:H=h%
set RET=%RET:I=i%
set RET=%RET:J=j%
set RET=%RET:K=k%
set RET=%RET:L=l%
set RET=%RET:M=m%
set RET=%RET:N=n%
set RET=%RET:O=o%
set RET=%RET:P=p%
set RET=%RET:Q=q%
set RET=%RET:R=r%
set RET=%RET:S=s%
set RET=%RET:T=t%
set RET=%RET:U=u%
set RET=%RET:V=v%
set RET=%RET:W=w%
set RET=%RET:X=x%
set RET=%RET:Y=y%
set RET=%RET:Z=z%
goto :EOF
下記の例ではset /p Target_String=でユーザ入力を受け取りその文字列を対象にしている。
以下を適当な名前の.batファイルとして保存し実行。
@echo off
echo 小文字大文字を変換したい文字列を入力。
set /p Target_String=
call :proc_az_to_AZ %Target_String%
echo 大文字へ変換:%RET%
call :proc_ZA_to_za %Target_String%
echo 小文字へ変換:%RET%
rem 以下置換メソッド本体
pause
goto :EOF
:proc_az_to_AZ
set ORG=%1
set RET=%ORG:a=A%
set RET=%RET:b=B%
set RET=%RET:c=C%
set RET=%RET:d=D%
set RET=%RET:e=E%
set RET=%RET:f=F%
set RET=%RET:g=G%
set RET=%RET:h=H%
set RET=%RET:i=I%
set RET=%RET:j=J%
set RET=%RET:k=K%
set RET=%RET:l=L%
set RET=%RET:m=M%
set RET=%RET:n=N%
set RET=%RET:o=O%
set RET=%RET:p=P%
set RET=%RET:q=Q%
set RET=%RET:r=R%
set RET=%RET:s=S%
set RET=%RET:t=T%
set RET=%RET:u=U%
set RET=%RET:v=V%
set RET=%RET:w=W%
set RET=%RET:x=X%
set RET=%RET:y=Y%
set RET=%RET:z=Z%
goto :EOF
:proc_ZA_to_za
set ORG=%1
set RET=%ORG:A=a%
set RET=%RET:B=b%
set RET=%RET:C=c%
set RET=%RET:D=d%
set RET=%RET:E=e%
set RET=%RET:F=f%
set RET=%RET:G=g%
set RET=%RET:H=h%
set RET=%RET:I=i%
set RET=%RET:J=j%
set RET=%RET:K=k%
set RET=%RET:L=l%
set RET=%RET:M=m%
set RET=%RET:N=n%
set RET=%RET:O=o%
set RET=%RET:P=p%
set RET=%RET:Q=q%
set RET=%RET:R=r%
set RET=%RET:S=s%
set RET=%RET:T=t%
set RET=%RET:U=u%
set RET=%RET:V=v%
set RET=%RET:W=w%
set RET=%RET:X=x%
set RET=%RET:Y=y%
set RET=%RET:Z=z%
goto :EOF