China DOS Union

Lowercase letters to uppercase can be solved by listing methods like set str=%str:a=A%, set str=%str:b=B%..., but this is purely manual work with no skill involved. The following demo code allows you to no longer do the repetitive labor of copy + paste + modify that is unfun when converting lowercase letters to uppercase:

@echo off

:: A little modification of the code can realize uppercase to lowercase



set str1=abcdefghijklmnopqrstuvwxyz

set str2=ABCDEFGHIJKLMNOPQRSTUVWXYZ



:main

cls

set str=

set /p str=    Please enter the string (press Enter directly to exit):

if not defined str exit

cls

echo.

echo            Before conversion: "%str%"

echo.

for /l %%i in (0,1,25) do (

    call set char1=%%str1:~%%i,1%%

    call set char2=%%str2:~%%i,1%%

    call :change

)

echo ____________________________________________

echo.

echo            After conversion: "%str%"

echo.

echo                     Press any key to carry out the next demonstration...

pause>nul

goto main



:change

call set "str=%%str:%char1%=%char2%%%"

goto :eof

Not bad, but still used to converting with Ultraedit.

It seems it doesn't need to be so complicated, just a single for can handle it:

@echo off

:main

cls

set str=

set /p str=    Please enter the string (press Enter directly to exit):

if not defined str exit

cls

echo.

echo            Before conversion: "%str%"

for %%i in (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) do call set str=%%str:%%i=%%i%%

echo ____________________________________________

echo.

echo            After conversion: "%str%"

echo.

echo                     Press any key to perform the next demonstration...

pause>nul

goto main

Just change it a bit to (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) and it's okay

[ Last edited by zh159 on 2007-1-16 at 08:54 PM ]

The third floor made full use of the feature that replacement statements are case-insensitive, which is clever.

The solutions for the codes in the 1st floor and the 3rd floor are so wonderful~ : ) ) )

[ Last edited by redtek on 2007-1-16 at 09:08 PM ]

Thanks to LZ and the boss on the 3rd floor, it's amazing, I've learned...

Why make it so complicated for no reason?

setlocal ENABLEDELAYEDEXPANSION

set /p str=Please enter the string (press Enter directly to exit):
for /l %%l in (0,1,100) do (
call set s%%l=!str:~%%l,1!
set Q=!s%%l!
for %%i in (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) do (
if /i !Q!==%%i set/p=%%i<nul
)
if "!Q!"=="" goto :Q1
)
:Q1
ECHO\
%0
Is this okay?

[ Last edited by 106942397 on 2008-5-11 at 09:29 PM ]

Hehe, 8th floor. Please input abcd and then run your code and compare the results with the code on the 3rd floor. Besides, is the code on the 3rd floor more complicated than yours?

Case Conversion

setlocal ENABLEDELAYEDEXPANSION

set /p str=Please enter the string (press Enter directly to exit):
for /l %%l in (0,1,100) do (
call set s%%l=!str:~%%l,1!
set Q=!s%%l!
for %%i in (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) do (
for %%k in (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) do (
if !Q!==%%i if /i !Q!==%%k set/p=%%k<nul
if !Q!==%%k if /i !Q!==%%i set/p=%%i<nul

))
if "!Q!"=="" goto :Q1
)
:q1
echo\
%0

[ Last edited by 106942397 on 2008-5-11 at 09:30 PM ]

Boss, I can't understand the part that's listed. Can you explain it? I don't understand the usage of that replacement statement!
I can't understand the part str=%%str:%%i=%%i%%. Is there any expert to give me some pointers!
My QQ 362998909

Boss, I can't understand the place listed. Can you explain it! I don't understand the usage of that replacement statement!
I can't understand the part str=%%str:%%i=%%i%%. Is there any expert to give some guidance!
My QQ 362998909

Originally posted by olslyang at 2008-6-20 22:36:
Boss, I can't understand the part that lists things. Can you explain it to me! I don't understand the usage of that replacement statement!
I can't understand the part "str=%%str:%%i=%%i%%". Is there any expert to give some guidance!
My QQ 362998909

"Variable delay"
Maybe this can be understood:
call set str=%%str:%%i=%%i%%