I found this in the houseoffusion archives. is this it? (never used it myself...)
cheers barry.b http://www.houseoffusion.com/cf_lists/index.cfm?method=messages&threadid =25259&forumid=4 =============================================== Here is a nice way to show the code.... Save the two sections below as showcode.cfm coloredcode.cfm and the stick <cf_showcode> in to your template <!--- save this as showcode.cfm ---> <br clear=all /> <br clear=all /> <br clear=all /> <cfoutput> Code in :<b>#GetBaseTemplatePath()#</b><br /> </cfoutput> <cf_coloredcode file="#GetBaseTemplatePath()#"> <!--- save this as coloredcode.cfm ---> <!--- ============================================================= Utility: ColdFusion ColoredCode v3.2 Author: Dain Anderson Email: [EMAIL PROTECTED] Revised: June 7, 2001 Download: http://www.cfcomet.com/cfcomet/utilities/ ============================================================= ---> <!--- Initialize attribute values ---> <CFPARAM NAME="Attributes.File" DEFAULT=""> <CFPARAM NAME="Attributes.Data" DEFAULT=""> <CFPARAM NAME="Attributes.URL" DEFAULT=""> <!--- Was a file sent? ---> <CFIF LEN(Attributes.File)> <!--- Lock the file while reading ---> <CFLOCK NAME="#Attributes.File#" TYPE="READONLY" THROWONTIMEOUT="Yes" TIMEOUT="10"> <CFFILE ACTION="READ" FILE="#Attributes.File#" VARIABLE="Data"> </CFLOCK> <!--- Was a URL was sent? ---> <CFELSEIF LEN(Attributes.URL)> <!--- Use a TRY/CATCH block for HTTP connection failures. ---> <CFTRY> <CFLOCK TYPE="EXCLUSIVE" NAME="GetExternalURL" TIMEOUT="10" THROWONTIMEOUT="Yes"> <CFHTTP METHOD="GET" URL="#Attributes.URL#" RESOLVEURL="No" TIMEOUT="10" THROWONERROR="Yes"> </CFLOCK> <!--- Catch connection failures. ---> <CFCATCH TYPE="COM.ALLAIRE.COLDFUSION.HTTPFAILURE"> <!--- An exception has occurred, so throw an error. ---> <CFTHROW MESSAGE="The URL is not obtainable at this time."> </CFCATCH> <CFCATCH TYPE="Any"> <CFTHROW MESSAGE="Error getting the URL. Make sure it is entered correctly."> </CFCATCH> </CFTRY> <CFSET Data = CFHTTP.FileContent> <CFELSE> <CFSET Data = Attributes.Data> </CFIF> <!--- Abort if no data was sent ---> <CFIF NOT LEN(DATA)> <CFTHROW MESSAGE="<CODE><B><FONT COLOR=NAVY>ColoredCode</FONT> <FONT COLOR=FF0000>Error</FONT>:</B> No data to parse.</CODE>" DETAIL="CF_ColoredCode takes one of three attributes: FILE, URL, or DATA."> </CFIF> <CFSCRIPT> /* Pointer to Attributes.Data */ this = Data; /* Convert special characters so they do not get interpreted literally; italicize and boldface */ this = REReplaceNoCase(this, "&([[:alpha:]]{2,});", "<B><I>&\1;</I></B>", "ALL"); /* Convert many standalone (not within quotes) numbers to blue, ie. myValue = 0 */ this = REReplaceNoCase(this, "(gt|lt|eq|is|,|\(|\))([[:space:]]?[0-9]{1,})", "\1<FONT COLOR=BLUE>\2</FONT>", "ALL"); /* Convert normal tags to navy blue */ this = REReplaceNoCase(this, "<(/?)((!d|b|c(e|i|od|om)|d|e|f(r|o)|h|i|k|l|m|n|o|p|q|r|s|t(e|i|t)|u|v| w|x) [^>]*)>", "<FONT COLOR=NAVY><\1\2></FONT>", "ALL"); /* Convert all table-related tags to teal */ this = REReplaceNoCase(this, "<(/?)(t(a|r|d|b|f|h)([^>]*)|c(ap|ol)([^>]*))>", "<FONT COLOR=TEAL><\1\2></FONT>", "ALL"); /* Convert all form-related tags to orange */ this = REReplaceNoCase(this, "<(/?)((bu|f(i|or)|i(n|s)|l(a|e)|se|op|te)([^>]*))>", "<FONT COLOR=FF8000><\1\2></FONT>", "ALL"); /* Convert all tags starting with 'a' to green, since the others aren't used much and we get a speed gain */ this = REReplaceNoCase(this, "<(/?)(a[^>]*)>", "<FONT COLOR=GREEN><\1\2></FONT>", "ALL"); /* Convert all image and style tags to purple */ this = REReplaceNoCase(this, "<(/?)((im[^>]*)|(sty[^>]*))>", "<FONT COLOR=PURPLE><\1\2></FONT>", "ALL"); /* Convert all ColdFusion, SCRIPT and WDDX tags to maroon */ this = REReplaceNoCase(this, "<(/?)((cf[^>]*)|(sc[^>]*)|(wddx[^>]*))>", "<FONT COLOR=MAROON><\1\2></FONT>", "ALL"); /* Convert all inline "//" comments to gray (revised) */ this = REReplaceNoCase(this, "([^:/]\/{2,2})([^[:cntrl:]]+)($|[[:cntrl:]])", "<FONT COLOR=GRAY><I>\1\2</I></FONT>", "ALL"); /* Convert all multi-line script comments to gray */ this = REReplaceNoCase(this, "(\/\*[^\*]*\*\/)", "<FONT COLOR=GRAY><I>\1</I></FONT>", "ALL"); /* Convert all HTML and ColdFusion comments to gray */ /* The next 10 lines of code can be replaced with the commented-out line following them, if you do care whether HTML and CFML comments contain colored markup. */ EOF = 0; BOF = 1; while(NOT EOF) { Match = REFindNoCase("<!---?([^-]*)-?-->", this, BOF, True); if (Match.pos[1]) { Orig = Mid(this, Match.pos[1], Match.len[1]); Chunk = REReplaceNoCase(Orig, "<(/?[^>]*)>", "", "ALL"); BOF = ((Match.pos[1] + Len(Chunk)) + 31); // 31 is the length of the FONT tags in the next line this = Replace(this, Orig, "<FONT COLOR=GRAY><I>#Chunk#</I></FONT>"); } else EOF = 1; } // Use this next line of code instead of the last 10 lines if you want (faster) // this = REReplaceNoCase(this, "(<!---?[^-]*-?-->)", "<FONT COLOR=GRAY><I>\1</I></FONT>", "ALL"); /* Convert all quoted values to blue */ this = REReplaceNoCase(this, """([^""]*)""", "<FONT COLOR=BLUE>""\1""</FONT>", "ALL"); /* Convert left containers to their ASCII equivalent */ this = REReplaceNoCase(this, "<", "<", "ALL"); /* Revert all pseudo-containers back to their real values to be interpreted literally (revised) */ this = REReplaceNoCase(this, "<([^>]*)>", "<\1>", "ALL"); /* ***New Feature*** Convert all FILE and UNC paths to active links (i.e, file:///, \\server\, c:\myfile.cfm) */ this = REReplaceNoCase(this, "(((file:///)|([a-z]:\\)|(\\\\[[:alpha:]]))+(\.?[[:alnum:]\/[EMAIL PROTECTED]|:~`+$%? _##& -])+)", "<A TARGET=""_blank"" HREF=""\1"">\1</A>", "ALL"); /* Convert all URLs to active links (revised) */ this = REReplaceNoCase(this, "([[:alnum:]]*://[[:alnum:[EMAIL PROTECTED](\.[[:alnum:]][[:alnum:]-]*[[:alnum:]]\. )?[[ :alnum:]]{2,}(\.?[[:alnum:]\/[EMAIL PROTECTED]|:~`+$%?_##&-])+)", "<A TARGET=""_blank"" HREF=""\1"">\1</A>", "ALL"); /* Convert all email addresses to active mailto's (revised) */ this = REReplaceNoCase(this, "(([[:alnum:]][[:alnum:]_.-]*)?[[:alnum:[EMAIL PROTECTED]:alnum:]][[:alnum:].-]*\.[[ :alp ha:]]{2,})", "<A HREF=""mailto:\1"";>\1</A>", "ALL"); </CFSCRIPT> <!--- Output final result (reverted in this release to 3.0) ---> <DIV STYLE="padding-left : 10px;"><CFOUTPUT><PRE>#this#</PRE></CFOUTPUT></DIV> <!--- end color code ----> -================================================== -----Original Message----- From: Taco Fleur [mailto:[EMAIL PROTECTED] Sent: Thursday, 10 June 2004 3:40 PM To: CFAussie Mailing List Subject: [cfaussie] RE: Any got CF Colored Code Tag? yeah I saw some of his (the owner) comments on Experts Exchange saying he was fed up with it - the support for COM in CF etc... So I guess he gave up, its a shame.... Sorry don't have the tag for you... -----Original Message----- From: Mark M [mailto:[EMAIL PROTECTED] Sent: Thursday, 10 June 2004 3:37 PM To: CFAussie Mailing List Subject: [cfaussie] Any got CF Colored Code Tag? Hey everyone - CFComet is down / doesn't exist anymore, I was wondering if anyone had a copy of the ColoredCode tag it had for download. Or can point me in the right direction to get it? Cheers, Mark ------------------------------------------------------------------ [EMAIL PROTECTED] ICQ: 3094740 --- You are currently subscribed to cfaussie as: [EMAIL PROTECTED] To unsubscribe send a blank email to [EMAIL PROTECTED] Aussie Macromedia Developers: http://lists.daemon.com.au/ Register now for the 3rd National Conference on Tourism Futures, being held in Townsville, North Queensland 4-7 August - www.tq.com.au/tfconf --- You are currently subscribed to cfaussie as: [EMAIL PROTECTED] To unsubscribe send a blank email to [EMAIL PROTECTED] Aussie Macromedia Developers: http://lists.daemon.com.au/ --- You are currently subscribed to cfaussie as: [EMAIL PROTECTED] To unsubscribe send a blank email to [EMAIL PROTECTED] Aussie Macromedia Developers: http://lists.daemon.com.au/
