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

wxcute

我也来出个题^_^

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

如：输入　Ajack
　　输出　ACJK


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


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

pusofalse

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

产生了临时文件。

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

batman

代码的效率永远应摆在简洁的前面，当然最重要的是思路了，兄弟这个思路不错，应该还可以改进下提高点效率了。

wxcute

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

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

batman

3楼的代码在效率上存在大问题。。。建议不要采用这样的方案。

pusofalse

用for的%%~sa增强扩展也可以，稍微麻烦些。

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

batman

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