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
复制代码

[ 本帖最后由 batman 于 2009-4-20 13:28 编辑 ]

batman

回楼上，是多写个c字符，已改正

batman

首先设置变量提高点效率：

@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
复制代码

batman

vbs:

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
复制代码