batman 当前离线
考官
荣誉版主
@echo off&setlocal enabledelayedexpansion set "str=abHJ dfsKHK aB" :lp for %%a in (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) do ( set "temp=%%a" if "!str:~,1!" equ "!temp:~,1!" set /p=!temp:~1,1!<nul&goto next if "!str:~,1!" equ "!temp:~1,1!" set /p=!temp:~,1!<nul&goto next ) set /p=!str:~,1!<nul :next set "str=!str:~1!"&if defined str goto lp pause>nul复制代码
评分人数
TOP
@echo off&setlocal enabledelayedexpansion for %%a in (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) do ( set "code=%%a"&set "#!code:~,1!=!code:~1,1!"&set "_!code:~1,1!=!code:~,1!" ) set /p str=请输入字符:&echo.&set /p=经转换后:<nul :lp if defined _%str:~,1% ( if "%str:~,1%" equ "!#%str:~,1%!" ( set /p=!_%str:~,1%!<nul ) else ( set /p=!#%str:~,1%!<nul ) ) else ( set /p=%str:~,1%<nul ) set "str=%str:~1%" if defined str goto lp pause>nul复制代码
Dim inpStr, Arr, Str inpStr = InputBox("请输入要转换的字符串") Arr = split("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", ",") For Each Str In Arr inpStr = Replace(inpStr, Str,"@#$&") inpStr = Replace(inpStr, UCase(Str), Str) inpStr = Replace(inpStr, "@#$&", UCase(str)) Next MsgBox inpStr复制代码