批处理之家 - Powered by Discuz! Board

标题: [文本处理] 输入字母后按顺序大写输出 [打印本页]

作者: wxcute 时间: 2008-9-16 11:24 标题: 输入字母后按顺序大写输出

我也来出个题^_^ 要求： 1、输入若干个字母，可以重复 2、输出要按顺序且大写，不重复如：输入　Ajack 　　输出　ACJK ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊版务执行：Batcher 执行时间：2008-09-16 操作内容：从"新手练功区"转移帖子到"代码咨询&讨论"；分类＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ [ 本帖最后由 Batcher 于 2008-9-16 11:42 编辑 ]

作者: batman 时间: 2008-9-16 13:01 标题: 来一个：

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

作者: wxcute 时间: 2008-9-16 13:55

我也来个吧

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

作者: pusofalse 时间: 2008-9-16 18:38

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

作者: batman 时间: 2008-9-16 19:34

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

作者: wxcute 时间: 2008-9-16 20:00

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

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

作者: batman 时间: 2008-9-16 20:05

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

作者: wxcute 时间: 2008-9-16 21:20

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

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

作者: pusofalse 时间: 2008-9-16 23:59

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

产生了临时文件。

欢迎光临批处理之家 (http://bathome.net./)