Batcher

1、当用户输入的字符串中包含特殊字符时，后者可能出错。
2、是变量替换的意思，把空格替换成井号。

sjzong

我这个是看到batman的程序，得到一点启示而进行修改的！希望楼主能够鉴定一下！

 @echo off
setlocal enabledelayedexpansion
set "str=abHJ      dfsKHK    aB"
echo 转换前的字符串是：%str%
set/p=转换前的字符串是：<nul
set "zm= abcdefghijklmnopqrstuvwxyzZYXWVUTSRQPONMLKJIHGFEDCBA"
:a
if not "!str:~%n%,1!"=="" (
   for /l %%a in (1 1 26) do (
    if "!str:~%n%,1!"=="!zm:~%%a,1!" (set/p=!zm:~-%%a,1!<nul&goto :b)
    if "!str:~%n%,1!"=="!zm:~-%%a,1!" (set/p=!zm:~%%a,1!<nul&goto :b)
   )
   set/p=!str:~%n%,1!<nul
:b
  set/a n+=1&goto :a
) 
pause>nul
复制代码

[ 本帖最后由 sjzong 于 2009-4-21 21:09 编辑 ]

batman

我也来个：

@echo off&setlocal enabledelayedexpansion
set "str=abHJ      dfsKHK    aB"
:lp
for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
     set "temp=%%a"
     if "!str:~,1!" equ "!temp:~,1!" set /p=!temp:~1,1!<nul&goto next
     if "!str:~,1!" equ "!temp:~1,1!" set /p=!temp:~,1!<nul&goto next
)
set /p=!str:~,1!<nul
:next
set "str=!str:~1!"&if defined str goto lp
pause>nul
复制代码

[ 本帖最后由 batman 于 2009-4-20 13:28 编辑 ]

rat

运行结果不对

batman

回楼上，是多写个c字符，已改正

随风

都忘了这个帖了，帖一下我的代码

@echo off&Setlocal EnableDelayedExpansion
set "Dxie=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set "Xxie=abcdefghijklmnopqrstuvwxyz"
set var=af SDF jfdi:LKJFIefIfifUfdf  AsZfzG sJ
echo            转换前：%var%
for /l %%a in (0 1 25) do (
  set "D!Dxie:~%%a,1!=!Dxie:~%%a,1!"
  set "X!Xxie:~%%a,1!=!Xxie:~%%a,1!"
)
:loop
set "str=!var:~0,1!"
if "%str%"=="!D%str%!" (set num=!num!!X%str%!) else (
  if defined D!str! (set num=%num%!D%str%!) else set "num=%num%%str%"
)
set "var=%var:~1%"
if defined var goto loop
echo            转换后：%num%
pause
复制代码

rat

改成这样？

@echo off&setlocal enabledelayedexpansion
set "str=abHJ      dfsKHK    aB"
:lp
(for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
     set "temp=%%a"
     if "!str:~,1!" equ "!temp:~,1!" set /p=!temp:~1,1!&goto next
     if "!str:~,1!" equ "!temp:~1,1!" set /p=!temp:~,1!&goto next
)
set /p=!str:~,1!)<nul
:next
set "str=!str:~1!"&if defined str goto lp
pause>nul
复制代码

zqz0012005

其实25楼的代码也很不错^_^

inittab

跟版主的思路差不多.

 

@echo off&setlocal enabledelayedexpansion
for %%i in (Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz) do (
set str=%%i&set #!str:~0,1!=!str:~1,1!&set $!str:~1,1!=!str:~0,1!)
set/p strr=请输入：
echo 转换前:%strr%
set "st="
set n=0
:begin
set str=!strr:~%n%,1!
if "!str!"=="!#%str%!" (set st=!st!!$%str%!) else if "!str!"=="!$%str%!" (set st=!st!!#%str%!) else set "st=!st!!str!"
set/a n+=1
if not "!str!"=="" (goto begin)
echo 转换后:!st!
复制代码

[ 本帖最后由 inittab 于 2009-4-22 11:57 编辑 ]

pusofalse

@echo Off & setlocal EnableDelayedExpansion
set "var=tEST" & set "str=!var!"

set "Lower=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 "Upper=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"
For %%a in (%Lower%) do set "var=!var:%%a=%%a!"
For /L %%a in (0 2 51) do (set "_!Lower:~%%a,1!=!Upper:~%%a,1!")

:Loop
If defined str (
    set "AlphaL=%str:~,1%" & set "AlphaU=%var:~,1%" & set "Letter=!AlphaU!
    If "!AlphaL!" equ "!AlphaU!" If defined _!AlphaL! (set "Letter=!_%str:~,1%!")
    set "str=%str:~1%" & set "var=%var:~1%"
    <nul set /p=!Letter!& goto :Loop
)
Echo\ & Pause>nul
复制代码

随风

此类代码始终摆脱不了逐字判断，效率问题，goto次数等于 字符串个数。
兄的代码不觉得for循环次数比36楼要多些吗？
32、33楼虽用goto跳出for，但其实for循环是不会跳出的，只是停止运行里面的命令罢了。也就是说for循环次数等于字符串个数乘26

lxzzr

rem 思路:先定义两个集合：大写和小写，然后逐字符分析。
rem 调换两个变量即可实现小大写互换

@echo off
setlocal enabledelayedexpansion

set temp_a=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set temp_b=abcdefghijklmnopqrstuvwxyz

set /p temp_c=请输入:
echo 转换前:%temp_c%
for /l %%a in (0 1 10000000) do (
set temp_n=!temp_c:~%%a,1!
for /l %%b in (0 1 26) do (
set temp_m=!temp_a:~%%b,1!
if !temp_n! == !temp_m! (
if defined temp_n (
set temp_s=!temp_b:~%%b,1!
call :sub !temp_n! !temp_s!
) else (
echo 转换后:!temp_c!
pause>nul
exit
)
)
)
)
复制代码

lxzzr

水平有限，想不到更好的办法，呵呵

hhl1987

看一看先……………………

batman

首先设置变量提高点效率：

@echo off&setlocal enabledelayedexpansion
for %%a in (aA bB cC dD eE fF gG hH iI jJ kK lL mM nN oO pP qQ rR sS tT uU vV wW xX yY zZ) do (
    set "code=%%a"&set "#!code:~,1!=!code:~1,1!"&set "_!code:~1,1!=!code:~,1!"
)
set /p str=请输入字符：&echo.&set /p=经转换后：<nul
:lp
if defined _%str:~,1% (
   if "%str:~,1%" equ "!#%str:~,1%!" (
      set /p=!_%str:~,1%!<nul
      ) else (
      set /p=!#%str:~,1%!<nul
   )
   ) else (
   set /p=%str:~,1%<nul
)
set "str=%str:~1%"
if defined str goto lp
pause>nul
复制代码