tireless

@echo off
setlocal EnableDelayedExpansion
set /p var=请输入: 
set Lowercase=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 Capital=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
cls & echo 转换前: %var%

for %%a in (%var%) do call :replace %%a
echo 转换后: %var%
pause & exit /b

:replace
set "n="
set "word2="
set word=%1
:loop
set /a n+=1
set one=!word:~-%n%,1!
if %one% leq Z if %one% geq a (
  if "!Lowercase:%one%=%one%!" equ "%Lowercase%" (
    call :C %one% & goto next
  ) else (call :L %one% & goto next)
) 
set "word2=%one%%word2%"
:next
if "!word:~%n%!" neq "" goto loop
set var=!var:%word2%=%word2%!
goto :eof

:L
for %%a in (%Lowercase%) do if /i %1==%%a set "word2=%%a%word2%" & goto :eof

:C
for %%a in (%Capital%) do if /i %1==%%a set "word2=%%a%word2%" & goto :eof
复制代码

有点乱。。

[ 本帖最后由 tireless 于 2008-12-8 01:50 编辑 ]

tireless

遇到非字母会有问题：

请输入字符串:bbs.bathome.net
'P' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

转换后BBs.bathome.net