中国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 :::::::::::::::::::::