Colorize letters in the given string

Question

How can I colorize letters in the given string?

For instance:

string = "jaonvtaqhsy"

How to colorize 3 letters in the middle of string (e,g, "vta")?

I tried:

Split the given string in the three parts

a=StringTake[string, {1, 4}]
b=StringTake[string, {5, 7}]
c=StringTake[string, {8, 11}]

and then colorize each string

aa = Style[a, Blue, Bold]
bb = Style[b, Red, Bold]
cc = Style[c, Blue, Bold]

then join them back together

StringJoin[aa,bb,cc]

or

aa <> bb <> cc

but there is an error message

Try Row@{aa,bb,cc}. Also, your string either needs to be 11 characters long, or c should only take {8,10} This will work for some applications, but may not be flexible depending on what you want to do. — N.J.Evans, Feb 06 '17 at 16:09
Also, test the form of aa and bb with Head or TreeForm and you will see they are not Strings after you apply the Style function eg, Head@aa — PlaysDice, Feb 06 '17 at 16:13
closely related: How to change the color of specified digits in a number? — Kuba, Feb 06 '17 at 16:26
maybe a duplicate: Highlighting or coloring certain words / substrings appearing in a larger string — Kuba, Feb 06 '17 at 16:27
Let me suggest to the poser he delete unneeded portions of the question. There is no need to see how the string was generated (using RandomChoice), for instance. — David G. Stork, Feb 06 '17 at 19:42
@Kuba please vote to close as one of those. I shall add http://mathematica.stackexchange.com/q/10990/121 as well. — Mr.Wizard, Feb 06 '17 at 22:12
@Kuba Did you choose not to vote to close this as a duplicate? If so may I know why? — Mr.Wizard, Feb 07 '17 at 18:37

score 1 · Answer 1 · answered Feb 06 '17 at 22:06

string = "jaonvtaqhsy"; 
a = StringTake[string, {1, 4}];
b = StringTake[string, {5, 7}];
c = StringTake[string, {8, 11}];
aa = Style[a, Blue, Bold]; 
bb = Style[b, Red, Bold]; 
cc = Style[c, Blue, Bold]; 
ToString[#1, FormatType -> StandardForm] & @ Row[{aa, bb, cc}]

produces a colored string.

David G. Stork · Accepted Answer · 2017-02-06T23:08:44.643

1

highlight[mystring_String, where_List] :=

 Row@{StringTake[mystring, {1, where[[1]] - 1}], 
      Style[StringTake[mystring, where], Red], 
      StringTake[mystring, {where[[2]] + 1, StringLength[mystring]}]}

highlight["abcdefghijkl", {3, 5}]

If you want to highlight a single character,

highlight["abcdefghijkl", {3, 3}]

edited Feb 06 '17 at 23:08

answered Feb 06 '17 at 22:56

David G. Stork

41,180
3
34
96

Colorize letters in the given string

2 Answers2