close

Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 StringReplaceRow

Source Notebook

Replace parts of strings with expressions to create a row

Contributed by: Bob Sandheinrich

ResourceFunction["StringReplaceRow"]["string",s→expr]

gives a row wherein the string expression s is replaced by expr wherever it appears in "string".

ResourceFunction["StringReplaceRow"]["string",{s1→expr1,s2→expr2,…}]

replaces the string expressions si by expri whenever they appear as substrings of "string".

ResourceFunction["StringReplaceRow"]["string",rules,n]

does only the first n replacements.

ResourceFunction["StringReplaceRow"][{s1,s2,…},rules]

gives the list of results for each of the si.

ResourceFunction["StringReplaceRow"][rules]

represents an operator form of StringReplaceRules that can be applied to an expression.

Details and Options

ResourceFunction["StringReplaceRow"] supports the same inputs and options as StringReplace.
When the rules match at least one part of "string", the result of ResourceFunction["StringReplaceRow"] is a Row. Otherwise, the original "string" is returned.

Examples

Basic Examples (4) 

Style a word within a string:

In[1]:=
ResourceFunction[ "StringReplaceRow"]["find the mispelled word", {"mispelled" -> Style["mispelled", Red, 22]}]
Out[1]=
Image

Replace "image" with an image:

In[2]:=
ResourceFunction[ "StringReplaceRow"]["Computer, please make my image cooler", {"image" -> ResourceData["Sample Image: Orange Butterfly on a Purple Flower"]}]
Out[2]=
Image

Use RuleDelayed to apply a function to the replaced string:

In[3]:=
ResourceFunction[ "StringReplaceRow"]["Numbers that are divisible by 5 include: 20, 100, and 12345", {n : (DigitCharacter ..) :> Button[n, Print[ToExpression[n]/5]]}]
Out[3]=
Image

Replace parts of multiple strings to create a musical interface:

In[4]:=
Column@ResourceFunction[ "StringReplaceRow"][{"abcdefg", "gfedcba", "cefgcefgcefgeced"}, l : LetterCharacter :> Mouseover[l, Dynamic[EmitSound[Sound[SoundNote[l]]]; l]]]
Out[4]=
Image

Scope (3) 

Replace multiple parts:

In[5]:=
ResourceFunction[ "StringReplaceRow"]["Some of my favorite colors are red, green and purple", {"red" -> Style["red", Red], "green" -> Style["green", Green], "purple" -> Style["purple", Purple]} ]
Out[5]=
Image

Create an operator to fix branding on company materials:

In[6]:=
op = ResourceFunction["StringReplaceRow"][ "ACME CORP" -> Style["ACME CORP", Italic, Darker[Green]], IgnoreCase -> True]
Out[6]=
Image

Apply the operator to make sure your corporate messaging is perfect:

In[7]:=
op["Here at ACME CORP we take safety seriously. We seriously apologize for any pain ACME CORP caused to the kind people of Central Florida. Be assured that ACME CORP is working hard to capture the mutant alligators.\n\nSincerely,\nACME CORP"]
Out[7]=
Image

Insert computable entities into text:

In[8]:=
text = "Athens, St. Louis and London were the first modern Olympics host cities.";
In[9]:=
ResourceFunction["StringReplaceRow"][text, Rule @@@ TextCases[text, "City" -> {"String", "Interpretation"}]]
Out[9]=
Image

Insert tooltips into text:

In[10]:=
ResourceFunction[ "StringReplaceRow"]["The best hitter of the 2000s was Albert Pujols", {"Albert Pujols" -> Tooltip["Albert Pujols", ResourceFunction["FirstWebImage"]["Albert Pujols 2005"]]}]
Out[10]=
Image

Applications (1) 

Create a function to help choose synonyms while writing:

In[11]:=
synonymPicker[str_, word_] := ResourceFunction["StringReplaceRow"][str, word -> PopupMenu[Dynamic[syn], Prepend[Synonyms[word], word], 1, Dynamic[syn], MenuStyle -> "Text"]]
In[12]:=
synonymPicker["Sometimes it is difficult to choose the right word", "difficult"]
Out[12]=
Image

Properties and Relations (2) 

When replacements are made, the result is a Row:

In[13]:=
ResourceFunction["StringReplaceRow"][ "aaabaaa", {"b" -> Range[5]}] // InputForm
Out[13]=
Image

When no matches exist, the original string is returned:

In[14]:=
ResourceFunction["StringReplaceRow"][ "aaabaaa", {"c" -> Range[5]}] // InputForm
Out[14]=
Image

For results longer than the window size, the output is likely to wrap at the replacements:

In[15]:=
ResourceFunction["StringReplaceRow"][ToString[RandomInteger[10^10^3]], "00" -> Style["ZEROS", Pink, 10]]
Out[15]=
Image

Neat Examples (2) 

Any part of a string can be bird said:

In[16]:=
ResourceFunction["StringReplaceRow"][ WikipediaData["Birdsong", "SummaryPlaintext"], {word : ("songs" | "calls" | "sounds") :> ResourceFunction["BirdSay"][word]}]
Out[16]=
Image

Words can also be bobbed:

In[17]:=
ResourceFunction["StringReplaceRow"][ WikipediaData["Bob_(physics)", "SummaryPlaintext"], "bob" -> ResourceFunction["Bob"]["bob"]]
Out[17]=
Image

Version History

  • 1.0.0 – 13 May 2020

Related Resources

License Information