[Date Index] [Thread Index] [Author Index]

Re: Coloured strings

• To: mathgroup at smc.vnet.net
• Subject: [mg126227] Re: Coloured strings
• From: Christoph Lhotka <christoph.lhotka at fundp.ac.be>
• Date: Thu, 26 Apr 2012 05:27:11 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201204250432.AAA06468@smc.vnet.net>

hi,

found by chance for the example

str = \!\(\*
TagBox[
StyleBox["\"\<\\!\\(\\*\\nStyleBox[\\(AB\\*\\n \
StyleBox[\\\"CDE\\\",\\nFontSize->24]\\*\\n \
StyleBox[\\\"FGHIJKLMNOPQRS\\\",\\nFontColor->RGBColor[0.6, 0.4, \
0.2]]TUVWXYZ\\)]\\)\>\"",
ShowSpecialCharacters->False,
ShowStringCharacters->True,
NumberMarks->True],
FullForm]\)

"\*
StyleBox[\(AB\!\(\*
StyleBox[\"CDE\",\nFontSize->24]\)\!\(\*
StyleBox[\"FGHIJKLMNOPQRS\",\nFontColor->RGBColor[0.6, 0.4, \
0.2]]\)TUVWXYZ\)]"

that ToString converts to OutputForm and removes the formatting:


In[2]:= ToString[str]

Out[2]= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"


Hope that helps,

Christoph



On 04/25/2012 06:32 AM, David Bailey wrote:
> If you take an expression such as:
> "ABCDEFGHIJKLMNOPQRSTUVWXYZ"//FullForm
>
> and colour some portions of the string, you obtain:
>
> \!\(\*
> TagBox[
> StyleBox["\"\<\\!\\(\\*\\nStyleBox[\\(ABC\\*\\n StyleBox[\\\"DEF\\\",\
> \\nFontColor->RGBColor[1, 0, 0]]GHIJKLMN\\*\\n \
> StyleBox[\\\"OPQRSTUV\\\",\\nFontColor->RGBColor[0, 0, 1]]WXYZ\\)]\\)\
> \>\"",
> ShowSpecialCharacters->False,
> ShowStringCharacters->True,
> NumberMarks->True],
> FullForm]\)
>
> I am wondering if anyone knows an easy way to remove the colouring from
> such a string - other than creating a fairly complicated string pattern
> (bearing in mind that the original string might contain unpaired quotes,
> etc!)
>
> David Bailey
> http://www.dbaileyconsultancy.co.uk
>

• References:
  • Coloured strings
    • From: David Bailey <dave@removedbailey.co.uk>