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

wxcute

我也来出个题^_^

要求：
1、输入若干个字母，可以重复
2、输出要按顺序且大写，不重复

如：输入　Ajack
　　输出　ACJK


＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
版务执行：Batcher
执行时间：2008-09-16
操作内容：从"新手练功区"转移帖子到"代码咨询&讨论"；分类
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊


[ 本帖最后由 Batcher 于 2008-9-16 11:42 编辑 ]

wxcute

我也来个吧

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

wxcute

是阿，我也发现了。而且还是慢很多，就算输入到达极限也慢不止一秒。一时忘记回复了。

[ 本帖最后由 wxcute 于 2008-9-16 20:06 编辑 ]

wxcute

自己的没简化，倒是把你的给简化了，哈哈

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