输入字母后按顺序大写输出

wxcute

我也来出个题^_^

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

如：输入　Ajack
　　输出　ACJK


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


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

batman

1. @echo off
   
2. 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"
   
3. set /p str=请输入字母:
   
4. :lp
   
5. set "_%str:~,1%=%str:~,1%"&set "str=%str:~1%"
   
6. if defined str goto lp
   
7. for /f "tokens=2 delims==" %%a in ('set _') do (
   
8.     for %%i in (%code%) do (
   
9.         if /i %%a equ %%i (
   
10.            set "var=%%a"
    
11.            call,set /p=%%var:%%a=%%i%%<nul
    
12.         )
    
13. 　　)
    
14. )      
    
15. pause>nul

复制代码

wxcute

我也来个吧

1. @echo off
   
2. set/p ala=输入若干字母(如：Ajack)-
   
3. ::set ala=Ajack
   
4. 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
   
5. call :zm %mat%
   
6. echo %m%
   
7. pause
   
8. goto :eof
   
9. :zm
   
10. 　echo %ala%|find /i "%1">nul&&set m=%m%%~1
    
11. 　shift
    
12. 　if not #%1==# goto :zm

复制代码

pusofalse

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

batman

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

wxcute

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

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

batman

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

wxcute

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

1. @echo off
   
2. 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"
   
3. set /p str=请输入字母:
   
4. :lp
   
5. set "%str:~,1%=%str:~,1%"&set "str=%str:~1%"
   
6. if defined str goto lp
   
7. for %%i in (%code%) do (
   
8. 　if defined %%i set/p=%%i<nul
   
9. )
   
10. pause>nul

复制代码

pusofalse

1. @echo off&setlocal enabledelayedexpansion
   
2. 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"
   
3. set /p str=请输入字母:
   
4. for %%a in (%code%) do call,set "str=!str:%%a=%%a!"
   
5. :loop
   
6. if defined str (
   
7.    if not defined %str:~,1% set "%str:~,1%=a"&echo>>tmp %str:~,1%
   
8.    set "str=%str:~1%"&goto loop
   
9. )
   
10. for /f %%a in ('sort tmp') do set/p=%%a<nul
    
11. del tmp &pause>nul

复制代码

产生了临时文件。