SetColor.cmd

@if "%_echo%"=="" echo off
setlocal EnableDelayedExpansion
set _BatDir=%~dp0
set _BatchFile=%0
set _StartTime=%TIME%
:: echo %0 %*
cls

REM Color Names Array
set ColorNames[0]=Black
set ColorNames[1]=Blue
set ColorNames[2]=Green
set ColorNames[3]=Aqua
set ColorNames[4]=Red
set ColorNames[5]=Purple
set ColorNames[6]=Yellow
set ColorNames[7]=White
set ColorNames[8]=Gray
set ColorNames[9]=Light Blue
set ColorNames[A]=Light Green
set ColorNames[B]=Light Aqua
set ColorNames[C]=Light Red
set ColorNames[D]=Light Purple
set ColorNames[E]=Light Yellow
set ColorNames[F]=Bright White

REM Color Values Array
set ColorValues[Black]=0
set ColorValues[Blue]=1
set ColorValues[Green]=2
set ColorValues[Aqua]=3
set ColorValues[Red]=4
set ColorValues[Purple]=5
set ColorValues[Yellow]=6
set ColorValues[White]=7
set ColorValues[Gray]=8
set ColorValues[Light Blue]=9
set ColorValues[Light Green]=A
set ColorValues[Light Aqua]=B
set ColorValues[Light Red]=C
set ColorValues[Light Purple]=D
set ColorValues[Light Yellow]=E
set ColorValues[Bright White]=F

if "%BackColor%" EQU "" set BackColor=1
if "%ForeColor%" EQU "" set ForeColor=F

call :array_getitem BackColor ColorValues %1
call :array_getitem ForeColor ColorValues %2
call :array_getitem BackName ColorNames %1
call :array_getitem ForeName ColorNames %2
if "%3" NEQ "" echo color %BackColor%%ForeColor% %BackName% %ForeName%

call color %BackColor%%ForeColor%

goto :EOF

:array_setitem <Array> <Index> <Value>
    set Index=%2
    call :LowerCase Index
    set %1[%2]=%3
goto :EOF

:array_getitem <Result> <Array> <Index>
    set outputvar=%1
    set array.name=%2
    set array.index=%3
    call :LowerCase array.index
    call :DeQuote array.index %array.index%
    echo searching %array.name% for '%array.index%'
    for /f "delims=[=] tokens=1,2,3" %%a in ('set %array.name%[') do (
        rem echo getitem %%a '%array.index%' == '%%b' %%c
        if /I "%%b"=="%array.index%" set %outputvar%=%%c
        if /I "%%b"=="%array.index%" echo #### found %%a %3 == %%b %%c
    )
goto :eof

:LowerCase
    :: Subroutine to convert a variable VALUE to all lower case.
    :: The argument for this subroutine is the variable NAME.
    FOR %%i IN ("A=a" "B=b" "C=c" "D=d" "E=e" "F=f" "G=g" "H=h" "I=i" "J=j" "K=k" "L=l" "M=m" "N=n" "O=o" "P=p" "Q=q" "R=r" "S=s" "T=t" "U=u" "V=v" "W=w" "X=x" "Y=y" "Z=z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:UpperCase
    :: Subroutine to convert a variable VALUE to all UPPER CASE.
    :: The argument for this subroutine is the variable NAME.
    FOR %%i IN ("a=A" "b=B" "c=C" "d=D" "e=E" "f=F" "g=G" "h=H" "i=I" "j=J" "k=K" "l=L" "m=M" "n=N" "o=O" "p=P" "q=Q" "r=R" "s=S" "t=T" "u=U" "v=V" "w=W" "x=X" "y=Y" "z=Z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:TitleCase
    :: Subroutine to convert a variable VALUE to Title Case.
    :: The argument for this subroutine is the variable NAME.
    FOR %%i IN (" a= A" " b= B" " c= C" " d= D" " e= E" " f= F" " g= G" " h= H" " i= I" " j= J" " k= K" " l= L" " m= M" " n= N" " o= O" " p= P" " q= Q" " r= R" " s= S" " t= T" " u= U" " v= V" " w= W" " x= X" " y= Y" " z= Z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:DeQuote <Result> <String>
    for /f "useback tokens=*" %%a in ('%2') do set %1=%%~a
goto :EOF

Useful Batch functions

@if "%_echo%"=="" echo off
setlocal EnableDelayedExpansion
set _BatDir=%~dp0
set _BatchFile=%0
set _StartTime=%TIME%
echo %0 %*

goto :EOF

:array_setitem <Array> <Index> <Value>
    set Index=%2
    call :LowerCase Index
    set %1[%2]=%3
goto :EOF

:array_getitem <Result> <Array> <Index>
    set outputvar=%1
    set array.name=%2
    set array.index=%3
    call :LowerCase array.index
    call :DeQuote array.index %array.index%
    REM echo searching %array.name% for '%array.index%'
    for /f "delims=[=] tokens=1,2,3" %%a in ('set %array.name%[') do (
        REM echo getitem %%a '%array.index%' == '%%b' %%c
        if /I "%%b"=="%array.index%" set %outputvar%=%%c
        REM if /I "%%b"=="%array.index%" echo #### found %%a %3 == %%b %%c
    )
goto :eof

:LowerCase <String>
    FOR %%i IN ("A=a" "B=b" "C=c" "D=d" "E=e" "F=f" "G=g" "H=h" "I=i" "J=j" "K=k" "L=l" "M=m" "N=n" "O=o" "P=p" "Q=q" "R=r" "S=s" "T=t" "U=u" "V=v" "W=w" "X=x" "Y=y" "Z=z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:UpperCase <String>
    FOR %%i IN ("a=A" "b=B" "c=C" "d=D" "e=E" "f=F" "g=G" "h=H" "i=I" "j=J" "k=K" "l=L" "m=M" "n=N" "o=O" "p=P" "q=Q" "r=R" "s=S" "t=T" "u=U" "v=V" "w=W" "x=X" "y=Y" "z=Z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:TitleCase <String>
    FOR %%i IN (" a= A" " b= B" " c= C" " d= D" " e= E" " f= F" " g= G" " h= H" " i= I" " j= J" " k= K" " l= L" " m= M" " n= N" " o= O" " p= P" " q= Q" " r= R" " s= S" " t= T" " u= U" " v= V" " w= W" " x= X" " y= Y" " z= Z") DO CALL SET "%1=%%%1:%%~i%%"
goto :eof

:DeQuote <String>
    for /f "useback tokens=*" %%a in ('%2') do set %1=%%~a
goto :EOF

:FillColorArrays
    :: Color Names Array
    set ColorNames[0]=Black
    set ColorNames[1]=Blue
    set ColorNames[2]=Green
    set ColorNames[3]=Aqua
    set ColorNames[4]=Red
    set ColorNames[5]=Purple
    set ColorNames[6]=Yellow
    set ColorNames[7]=White
    set ColorNames[8]=Gray
    set ColorNames[9]=Light Blue
    set ColorNames[A]=Light Green
    set ColorNames[B]=Light Aqua
    set ColorNames[C]=Light Red
    set ColorNames[D]=Light Purple
    set ColorNames[E]=Light Yellow
    set ColorNames[F]=Bright White

    ::  Color Values Array
    set ColorValues[Black]=0
    set ColorValues[Blue]=1
    set ColorValues[Green]=2
    set ColorValues[Aqua]=3
    set ColorValues[Red]=4
    set ColorValues[Purple]=5
    set ColorValues[Yellow]=6
    set ColorValues[White]=7
    set ColorValues[Gray]=8
    set ColorValues[Light Blue]=9
    set ColorValues[Light Green]=A
    set ColorValues[Light Aqua]=B
    set ColorValues[Light Red]=C
    set ColorValues[Light Purple]=D
    set ColorValues[Light Yellow]=E
    set ColorValues[Bright White]=F
goto :EOF

Arrays in Batch scripts

@if "%_echo%"=="" echo off
setlocal EnableDelayedExpansion
set _BatDir=%~dp0
set _BatchFile=%0
set _StartTime=%TIME%
echo %0 %*

REM Populate Array
for %%G in (c:\temp\*) do (
    set /a count+=1
    call :array_setitem myArray !count! %%~nG
)


REM Read Array
for /L %%X in (1,1,%count%) do (
    call :array_getitem last myArray %%X
    echo myArray[%%X] == !last!
)

goto :EOF

:array_setitem <Array> <Index> <Value>
    echo Set %1[%2] = %3
    set %1[%2]=%3
goto :EOF

:array_getitem <Result> <Array> <Index>
    set array.name=%2
    set array.index=%3
    set outputvar=%1
    for /f "delims=[=] tokens=1,2,3" %%a in ('set %array.name%[') do (
        if %%b==%array.index% set %outputvar%=%%c
    )
goto :eof