懒虫阿布

@echo off
setlocal enabledelayedexpansion

REM 字符串大小写互换
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
set SmallLetter=abcdefghijklmnopqrstuvwxyz

set startIndex=0
for %%i in (%BigLetter%) do (
	call set BigIndex=%%SmallLetter:~!startIndex!,1%%
	set arrayBig[!BigIndex!]=%%i
	set arraySmall[%%i]=!BigIndex!
	set /a startIndex+=1
)



set /p str=请输入要转换的字符串：
echo %str%>str.txt
echo .>>str.txt
REM 获取输入字符串的长度
for /f "tokens=1 delims=:" %%a in ('findstr /o .* str.txt') do (
	set  /a strlen=%%a-2
)

echo string len=!strlen!
set /a loopindex=!strlen!-1
for /l %%i in (0, 1, !loopindex!) do (
	set letter=!str:~%%i, 1!
	
	call set smallchar=%%arraySmall[!letter!]%%
	call set bigchar=%%arrayBig[!letter!]%%

	if "!letter!" EQU "!smallchar!" (
		set retstr=!retstr!!bigchar!
	 ) else if "!letter!" EQU "!bigchar!" (
		set retstr=!retstr!!smallchar!
	 ) else (
		set retstr=!retstr!!letter!
	 )	 
)

echo retstr=!retstr!
复制代码