[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

我也来出个题^_^

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

如:输入 Ajack
  输出 ACJK


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


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

  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
复制代码
产生了临时文件。
心绪平和,眼藏静谧。

TOP

自己的没简化,倒是把你的给简化了,哈哈
  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
复制代码
2

评分人数

TOP

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

TOP

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

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

TOP

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

TOP

用for的%%~sa增强扩展也可以,稍微麻烦些。
心绪平和,眼藏静谧。

TOP

我也来个吧
  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
复制代码
1

评分人数

TOP

来一个:

  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
复制代码
***共同提高***

TOP

返回列表