MathGroup Archive 2012

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

Search the Archive

Re: Coloured strings

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126250] Re: Coloured strings
  • From: David Bailey <dave at removedbailey.co.uk>
  • Date: Fri, 27 Apr 2012 06:48:32 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201204250432.AAA06468@smc.vnet.net> <jnb48n$5ap$1@smc.vnet.net>

On 26/04/2012 10:24, Adriano Pascoletti wrote:
> ToString[<coloured string>] removes colors
> Adriano Pascoletti
>
> 2012/4/25 David Bailey<dave at removedbailey.co.uk>
>
>> 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
>>
>>
Thanks,

what a simple and elegant solution! Somehow I would never have thought 
of feeding a string to ToString.

David Bailey
http://www.dbaileyconsultancy.co.uk




  • Prev by Date: Re: is there internal variable like $0 in perl?
  • Next by Date: Re: is there internal variable like $0 in perl?
  • Previous by thread: Re: Coloured strings
  • Next by thread: Print out an Expression Letter by Letter on the same line