Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How Can I Make A String Variable With Styled Text?

• To: mathgroup at smc.vnet.net
• Subject: [mg128781] Re: How Can I Make A String Variable With Styled Text?
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Sun, 25 Nov 2012 05:00:11 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20121124072927.0CAF4698C@smc.vnet.net>

If you apply a style then the resultant will not be a string.

$Post =.

boldFirstSentence[str_String] :=
  Module[
   {pos = StringPosition[str, "." | "!" | "?"], p},
   If [Length[pos] == 0, str,
    p = pos[[1, 1]];
    StringForm["``" <> StringDrop[str, p],
     Style[StringTake[str, p], Bold]]]];

myString = "This is boldface.  The rest is not.";

boldFirstSentence[myString]

StringForm["``  The rest is not.",
Style["This is boldface.", Bold]]

Or you can have it applied automatically to all string output

$Post = If[Head[#] === String, boldFirstSentence[#], #] &;

myString

StringForm["``  The rest is not.",
Style["This is boldface.", Bold]]


Bob Hanlon


On Sat, Nov 24, 2012 at 2:29 AM, Gregory Lypny
<gregory.lypny at videotron.ca> wrote:
> Hello everyone,
>
> I have a string variable
>
> myString = "This is boldface.  The rest is not."
>
> When I execute myString, I want the first sentence to appear in bold type.  Selecting the sentence and formatting it as bold when I create the string does not work.  StringForm will do the trick, as in
>
>         myString = StringForm["`` The rest is not.", Style["This is boldface", Bold]]
>
> but, of course, the Head of myString will no longer be String.  Is there any other way to do this?
>
> Gregory
>

• References:
  • How Can I Make A String Variable With Styled Text?
    • From: Gregory Lypny <gregory.lypny@videotron.ca>