How to create a multicolored string?

Question

I'm interested in displaying a string composed from sub-strings of different colors. Mathematica allows one to create a list comprising sub-strings of different colors, for example

{Style["Blue", Blue], Style["Red", Red]}

I would like to create a string looking like

StringJoin doesn't enable to tackle the problem

Do you need a String or do you need to make the output look like what you show? If the latter, use Row on the list. — Szabolcs, Dec 15 '19 at 10:44
Many related questions: (7008), (7732), (10990), (29817), (45132), (73822), (100371) — Mr.Wizard, Dec 15 '19 at 13:53

kglr · Answer 1 · 2019-12-15T11:03:57.927

For display purposes you can use Row (as suggested by Szabolcs in comments).

Alternatively, you can use StringRiffle or StringTemplate after wrapping styled strings with ToString[#, StandardForm]:

StringRiffle[ ToString[#, StandardForm] & /@ {Style["Red", Red, 24], 
    Style["Blue", Blue, 16]},""]

StringTemplate["````"] @@
 (ToString[#, StandardForm] & /@ {Style["Red", Red, 24], Style["Blue", Blue, 16]})

To get a string object you can use

str = StringJoin[
  ToString[#, StandardForm] & /@ {Style["Red", Red, 24], Style["Blue", Blue, 16]}]

Head[str]

String

How to create a multicolored string?

1 Answers1