1
$\begingroup$

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

enter image description here

Improve this question
$\endgroup$
9
  • 1
    $\begingroup$ 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. $\endgroup$ Commented Feb 6, 2017 at 16:09
  • 1
    $\begingroup$ 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 $\endgroup$ Commented Feb 6, 2017 at 16:13
  • $\begingroup$ @N.J.Evans thanks. there is my mistake (10 instead of 11) $\endgroup$ Commented Feb 6, 2017 at 16:14
  • $\begingroup$ closely related: How to change the color of specified digits in a number? $\endgroup$ Commented Feb 6, 2017 at 16:26
  • 2
    $\begingroup$ maybe a duplicate: Highlighting or coloring certain words / substrings appearing in a larger string $\endgroup$ Commented Feb 6, 2017 at 16:27

2 Answers 2

Reset to default
1
$\begingroup$ 
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}]
Improve this answer
$\endgroup$
1
$\begingroup$ 
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.

Improve this answer
$\endgroup$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.