中国DOS联盟

:: COLORDEMO.CMD ::::::::::::::::
@Echo OFF
SetLocal
If NOT DEFINED %0 (
  Set "%0=1"
  Start CMD /k%0
  Goto :EOF
)
MODE CON: COLS=80 LINES=59
::CLS
Title.                                             Coloring The Console
Set "Color.A="
Set "Color.B=                            Coloring The Console"
Set "Color.C="
Call :ColorPrint 0F


Echo.                               A Demonstration


Set "Color.B=                          Frank P. Westlake, 2007"
Call :ColorPrint 06
Echo.
Echo.


Set "Color.B=GENERAL"
Call :ColorPrint 0B


Set "Wrap=FINDSTR and SET/P can be used to print text in a selected"
Set "Wrap=%Wrap% color and in the default color both on the same line."
Set "Wrap=%Wrap% For example:"
Call :Wrap
Set "Wrap="
Echo.


Set "Color.A=  Optional text, "
Set "Color.B=color text"
Set "Color.C=, optional text."
Call :ColorPrint 0D
Echo.


Set "Wrap=But because of the nasty colon this technique is probably"
Set "Wrap=%Wrap% only useful when a colon is useful, such as the"
Set "Wrap=%Wrap% following:"
Call :Wrap
Set "Wrap="


Echo.
Set "Color.A="
Set "Color.B=  Enabled"
Set "Color.C= Wireless network interface."
Call :ColorPrint 0A


Set "Color.B=  Disabled"
Set "Color.C= LAN interface."
Call :ColorPrint 0C
Echo.


Set "Color.A="
Set "Color.B=PROCEDURE"
Set "Color.C="
Call :ColorPrint 0B


Set "Wrap=The programmer sets text into one, two, or three variables
as"
Set "Wrap=%Wrap% follows:"
Call :Wrap
Echo.
Set "Color.B=  VARIABLE  CONTENTS"
Call :ColorPrint 0B
Set "Wrap.Hang=            "
Set "Wrap=  Color.A   Optional text to be printed in the default
color"
Set "Wrap=%Wrap% preceding the color text."
Call :Wrap
Set "Wrap=  Color.B   Text to be printed in a selected color."
Call :Wrap
Set "Wrap=  Color.C   Optional text to be printed in the default
color"
Set "Wrap=%Wrap% following the color text."
Call :Wrap
Set "Wrap.Hang="
Echo.
Set "Wrap=The programmer then calls the :ColorPrint routine with a"
Set "Wrap=%Wrap% color value. For example:"
Call :Wrap
Set "Wrap="
Echo.
Set Wrap=  Set "Color.A=  Optional text, "
Call :Wrap
Set Wrap=  Set "Color.B=color text"
Call :Wrap
Set Wrap=  Set "Color.C=, optional text."
Call :Wrap
Set "Wrap=  Call :ColorPrint 0D"
Call :Wrap
Echo.
Echo.The output:
Echo.
Set "Color.A=  Optional text, "
Set "Color.B=color text"
Set "Color.C=, optional text."
Call :ColorPrint 0D
Echo.


Set "Wrap=The :ColorPrint routine creates a subdirectory in %%TEMP%%"
Set "Wrap=%Wrap% with the name of this script. This is so that there"
Set "Wrap=%Wrap% will be only one file in the directory.  Then a file"
Set "Wrap=%Wrap% is created in that directory with it's name being
the"
Set "Wrap=%Wrap% string in the variable Color.B. The file is written"
Set "Wrap=%Wrap% with the contents of the variable Color.C, or only a"
Set "Wrap=%Wrap% newline if that variable is undefined. SET/P is used"
Set "Wrap=%Wrap% to print Color.A without a newline, then FINDSTR is"
Set "Wrap=%Wrap% called to search the file for a line. FINDSTR prints"
Set "Wrap=%Wrap% the filename in the color specified in the CALL"
Set "Wrap=%Wrap% statement, then the contents of the file in the"
Set "Wrap=%Wrap% default color. The file and subdirectory are then
both"
Set "Wrap=%Wrap% deleted."
Call :Wrap
Set "Wrap="
Echo.


Set "Wrap=One undesirable attribute of this technique is that it"
Set "Wrap=%Wrap% writes a file each time the print routine is called."
Call :Wrap
Set "Wrap="
Echo.
Call :Wrap The following characters may not be used in color strings:
Set Invalid="\|*/?:"
Set Invalid
Echo.
Set "Wrap=Experienced CMD script programmers might prefer to call"
Set "Wrap=%Wrap% SET/P and FINDSTR directly as needed."
Call :Wrap
Set "Wrap="
Set "Color.A="
Set "Color.B=Press any key to continue"
Set "Color.C="
Call :ColorPrint CF
PAUSE>NUL:
Exit
Goto :EOF


::::::::::::::::::::::::::::::::::::::::::::::::::ColorPrint
::ColorPrint ColorValue
Prints lines in the color specified on the command line with a nasty
colon.


INPUT VARIABLES:
  Color.A      First portion of line printed without color.
               May be undefined.
  Color.A      Middle portion of line printed with the color specified
               on the command line. Must be defined.
  Color.C      Final portion of line printed without color.
               May be undefined.
CHARACTERS:
Valid: 0-9 A-Z a-z `~!@#^$%&()-_+=[]{};',
Invalid: \|*/?:


EXAMPLE:
  Set "Color.A="
  Set "Color.B=Enabled"
  Set "Color.C= Wireless network interface."
  Call :ColorPrint 0A


:ColorPrint
MD    %Temp%\%~n0
Pushd %Temp%\%~n0
Echo.%Color.C%>"%Color.B%"
Set /P =%Color.A%<NUL:
FindStr /A:%1 /R "^" "%Color.B%*"
Popd
RD /S /Q %Temp%\%~n0
Goto :EOF


::::::::::::::::::::::::::::::::::::::::::::::::::Wrap
::Wrap
Reads text on the command line and performs word wrap printing to
STDOUT.


Do NOT use tab characters. A tab is a single character when
determining
line length but it could be up to eight columns when printing; which
might destroy the wordwrap feature for that line.


INPUT VARIABLES:
Wrap         Read if there is no text on the command line. Use this
             variable instead of the command line when leading spaces
             or special characters need to be preserved. Escape
             special characters with '^'. For example:


               Call :Wrap Pipe COMMAND1 to COMMAND2 using the
               syntax:
                 SET "Wrap=  COMMAND1 ^| COMMAND2"
                 Call :Wrap


Wrap.Indent  Set this variable with the amount of spaces necessary
             to indent each paragraph. Indent is first line only. For
             example:


               Set "Wrap.Indent=  "
               Call :Wrap Two leading spaces.


Wrap.Hang    Set this variable with amount of spaces necessary to
             indent the paragraph after the first line. For Example:


               Set "Wrap.Hang=  "
               Call :Wrap Paragraph hang indented two spaces.


:Wrap
SetLocal
For /F "tokens=2" %%a in ('MODE^|Find "Columns"') Do (
  Set /A Cols=%%a -2)
If "%*" NEQ "" Set "Wrap=%*"
If NOT DEFINED Wrap (
  For /F "delims=" %%W in ('MORE') Do Call :Wrap %%W
  Goto :EOF
)
Set "Wrap=%Wrap.Indent%%Wrap%"
:Wrap.Loop
CALL Set "prt=%%Wrap:~0,%cols%%%"
CALL Set "Test=%%Wrap:~%cols%%%"
Set /A i=cols
:Adjust
Set /A i=i-1
If NOT DEFINED TEST Goto :Print
If "%prt:~-1,1%" NEQ " " (
  Set "prt=%prt:~0,-1%"
  Goto :Adjust
)
Set /A i=i+1
:Print
CALL Set "Wrap=%%Wrap:~%i%%%"
Echo.%prt%
If DEFINED Wrap (
  Set "Wrap=%Wrap.Hang%%Wrap%"
  Goto :Wrap.Loop
)
EndLocal
Goto :EOF
:: END OF COLORDEMO.CMD :::::::::::::::::::::