Category : Utilities for DOS and Windows Machines
Archive   : LET12.ZIP
Filename : DEMO-4.BAT

echo Off
If `%Name%' == `' Demo
if `%1' == `AskAgain' goto AskAgain
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo ÚÄ×ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ×Ä¿
echo ³ º String Manipulation (part 1): UPPER, LOWER, PROPER º ³
echo ÀÄ×ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ×ÄÙ
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÿ
echo One of the most powerful features of LET is its ability to
echo Manipulate Strings! Let me show you just some of the possibilities.
echo ÿ
:AskAgain
LET Str=(ask "Give me a line of text: ")
LET Check=(substr (- 60 (length Str)) 1 1)
rem the previous check determines if the length is greater than 60
rem by seeing if the subtraction results in a negative number.
if not `%Check%' == `-' goto OkStrLen
LET Str=(substr Str 1 60)
echo %Name%, that string is a bit long, so I'm going to
echo shorten it down a bit, if you don't mind. We'll use the string
echo "%Str%"
:OkStrLen
if not `%Check%' == `6' goto NotNull
LET Str="This is a PROVIDED string for YoUr BeNeFit!"
echo Ok, so you're shy. I'll provide the string:
echo It is this---> %Str%
:NotNull
echo I'm going to fool around with the cases of letters, for example:
LET dummy=(do "ShiftCas")
echo Upper Case: %U%
echo Lower Case: %L%
echo Capitalized: %P%
echo ÿ
pause
set U=
set L=
set P=
DEMO-5