Boombox wrote:.
Regardless of the input file size, computational power...
This,
@echo off
echo %var%>test.txt
copy test.txt d:\test.txt
::This is green!
pause
exit
should look like this...
@echo off
echo %var%>test.txt
copy test.txt d:\test.txt
::This is green!
pause
exit
Thanks.
Code: Select all
@Echo OFF
setlocal enabledelayedexpansion
set C=0
For /F "tokens=1* delims= " %%A in ('Type "text.txt"') Do (
set /a C+=1
SET "A=%%A"
SET "B=%%B"
:: @Echo
IF /I "!A:~0!" == "@Echo" (
Call :colorPrint 0D "@"
Call :colorPrintVar 03 "A:~1"
Call :colorPrint 08 " "
IF /I "!B!" EQU "off" Call :colorPrint 07 "%%B"
IF /I "!B!" EQU "on" Call :colorPrint 07 "%%B"
Echo.)
:: Comment
IF /I "!A:~0,2!" EQU "::" (
Call :colorPrintVar 02 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 02 "B"
Echo.)
:: CLS
IF /I "!A!" EQU "cls" (
Call :colorPrintVar 02 "A"
Call :colorPrint 08 " "
IF Not "!B!" EQU "" Call :colorPrintVar 0F "B"
Echo.)
:: Labels
IF /I "!A:~0,1!" EQU ":" (
IF /I not "!A:~1,2!" EQU ":" (
Call :colorPrintVar 60 "A"
Echo.))
:: Echo
IF /I "!A!" EQU "echo" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 0F "B"
Echo.)
:: Goto
IF /I "!A!" EQU "goto" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
CAll :colorPrintVar 06 "B"
Echo.)
:: Pause / Pause >nul
IF /I "!A!" EQU "pause" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
CAll :colorPrintVar 04 "B"
Echo.)
:: Pause>nul
IF /I "!A!" EQU "pause>nul" (
Call :colorPrintVar 03 "A:~0,5"
CAll :colorPrintVar 04 "A:~-4"
Echo.)
:: Call
IF /I "!A!" EQU "call" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 06 "B"
Echo.)
:: Set
IF /I "!A!" EQU "set" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 0E "B"
Echo.)
:: IF
IF /I "!A!" EQU "if" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 0F "B"
Echo.)
:: For
IF /I "!A!" EQU "for" (
Call :colorPrintVar 03 "A"
Call :colorPrint 08 " "
Call :colorPrintVar 0F "B"
Echo.)
)
pause>nul
exit
set "text=Dave's version works in Win XP, 7 & 8 "Hurray!""
call :colorPrintVar 9b text /n
call :colorPrint 3F " /:\ Part 1 "
call :colorPrint 4F " Part 2 /:\" /n
echo Success!
exit /b
:colorPrint Color Str [/n]
if not defined DEL call :initColorPrint
setlocal disableDelayedExpansion
set "s=%~2"
call :colorPrintVar %1 s %3
exit /b
:colorPrintVar Color StrVar [/n]
if not defined DEL call :initColorPrint
setlocal enableDelayedExpansion
pushd .
':
cd \
set "s=!%~2!"
:: The single blank line within the following IN() clause is critical - DO NOT REMOVE
for %%n in (^"^
^") do (
set "s=!s:\=%%~n\%%~n!"
set "s=!s:/=%%~n/%%~n!"
set "s=!s::=%%~n:%%~n!"
)
set "s=!s:"=\"!"
for /f delims^=^ eol^= %%s in ("!s!") do (
if "!" equ "" setlocal disableDelayedExpansion
if %%s==\ (
findstr /a:%~1 "." "\'" nul
<nul set /p "=%DEL%%DEL%%DEL%"
) else if %%s==/ (
findstr /a:%~1 "." "/.\'" nul
<nul set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%"
) else (
findstr /a:%~1 "." "%%s\..\'" nul
<nul set /p "=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%"
)
)
if /i "%~3"=="/n" echo(
popd
exit /b
:initColorPrint
for /f %%A in ('"prompt $H&for %%B in (1) do rem"') do set "DEL=%%A %%A"
<nul >"%temp%\'" set /p "=."
subst ': "%temp%" >nul
exit /b
:cleanupColorPrint
2>nul del "%temp%\'"
>nul subst ': /d
exit /b
@Echo Off
@Echo on
CLS
:Test_Label
:: This is a comment
echo This is a normal text
pause>nul
pause >nul
Call :test_function "input"
goto :eof
set "test=sdasdasd"
if %test%==esasdasd
For %%a in (test) do echo %%a
Code: Select all
@echo off
setlocal EnableDelayedExpansion
set "listedCommands= echo cls goto pause call exit set if for "
set "compoundCommands= if for "
set compoundCommandsWords=lss leq equ neq geq gtr in do
for /F "tokens=1*" %%a in (text.txt) do (
set "command=%%a"
rem If line begins with colon: is special case
if "!command:~0,1!" equ ":" (
if "!command:~1,1!" equ ":" (
rem Double colon at beginning: whole line in green
set colorShow=/02 "%%a " "%%b"
) else (
rem Label: in light green
set colorShow=/0A "%%a"
)
) else (
rem Normal commands: command params
set "params=%%b"
set colorShow=
rem Arroba in first position: in magenta
if "!command:~0,1!" equ "@" (
set colorShow=/0D "@"
set "command=!command:~1!"
)
rem Identify the type of command
for %%a in (!command!) do if "!listedCommands: %%a =!" neq "%listedCommands%" (
rem Listed commands: in blue
set colorShow=!colorShow! /09 "%%a "
) else (
rem Unlisted commands: in original color
set colorShow=!colorShow! / "%%a "
)
rem Additional processing of FOR and IF commands
for %%a in (!command!) do if "!compoundCommands: %%a =!" neq "%compoundCommands%" (
rem Special words in FOR and IF: in pink
for %%c in (%compoundCommandsWords%) do set params=!params:%%c=" /0C "%%c" / "!
rem Nested commands in FOR and IF: in blue
for %%c in (%listedCommands%) do set params=!params:%%c=" /09 "%%c" / "!
)
rem Unprocessed parameters: in original color
set colorShow=!colorShow! / "!params!"
)
colorShow !colorShow! 13 10
)
Boombox wrote:How can I compare the two files and print the ascii art to the command window with the colours I specify?
Code: Select all
@echo off
setlocal EnableDelayedExpansion
rem Load color codes from first file
for /F "delims=" %%a in (colourCodes.txt) do (
set %%a
)
rem Print the Ascii art file
set line=
call :PrintAsciiArt < asciiArt.txt
goto :EOF
:PrintAsciiArt
rem Read each line in the file (an empty line stop the process!)
set /P line=
if not defined line exit /B
rem Separate each letter in the line and assemble colorShow parameters
set colorShow=
:nextLetter
set letter=%line:~0,1%
rem For each Letter, insert: /attribute of the Letter, and the "Letter"
set colorShow=%colorShow% /!%letter%! "%letter%"
rem Pass to next letter
set line=%line:~1%
if defined line goto nextLetter
rem Print the resulting colorShow line
colorShow %colorShow% 13 10
rem And pass to next line
goto PrintAsciiArt
