That's exactly what I want Barry - (and Steve who sent it to me 2 seconds later)
Cheers! Mark ------------------------------------------------------------------ [EMAIL PROTECTED] ICQ: 3094740 Quoting Barry Beattie <[EMAIL PROTECTED]>: > 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/ > > > --- 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/
