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%%