[文本处理] 输入字母后按顺序大写输出

@echo off
set "code=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 /p str=请输入字母:
:lp
set "_%str:~,1%=%str:~,1%"&set "str=%str:~1%"
if defined str goto lp
for /f "tokens=2 delims==" %%a in ('set _') do (
    for %%i in (%code%) do (
        if /i %%a equ %%i (
           set "var=%%a"
           call,set /p=%%var:%%a=%%i%%<nul
        )
　　)
)      
pause>nul
复制代码

@echo off
set/p ala=输入若干字母(如：Ajack)-
::set ala=Ajack
set mat=A B C D E F G H I J K L N M O P Q R S T U V W X Y Z
call :zm %mat%
echo %m%
pause
goto :eof
:zm
　echo %ala%|find /i "%1">nul&&set m=%m%%~1
　shift
　if not #%1==# goto :zm
复制代码

@echo off
set "code=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 /p str=请输入字母:
:lp
set "%str:~,1%=%str:~,1%"&set "str=%str:~1%"
if defined str goto lp
for %%i in (%code%) do (
　if defined %%i set/p=%%i<nul
)
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set "code=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 /p str=请输入字母:
for %%a in (%code%) do call,set "str=!str:%%a=%%a!"
:loop
if defined str (
   if not defined %str:~,1% set "%str:~,1%=a"&echo>>tmp %str:~,1%
   set "str=%str:~1%"&goto loop
)
for /f %%a in ('sort tmp') do set/p=%%a<nul
del tmp &pause>nul
复制代码