CSV to HTML translation: Difference between revisions

<lang Mathematica>a = "Character,Speech

The multitude,The messiah! Show us the messiah!

Brians mother,<angry>Now you listen here! He's not the messiah;he's a very naughty boy! Now go away!</angry>

The multitude,Who are you?

Brians mother,I'm his mother;that's who!

The multitude,Behold his mother! Behold his mother!";

StringJoin["<table>\n", Map[StringJoin["<tr><td>",#,"</td></tr>\n"]&,

MapStringSplit[StringJoinStringReplace[a,{","->"<tr/td><td>", #, "</td"-></tr>\n"] &, StringSplit[StringReplace[a, lt;"," -> "</td><td->"&gt;"}], "\n"]],

,"</table>"]

StringJoin["<table>\n", StringJoin["<tr><th>",#,"</th></tr>\n"]&[

StringJoinStringSplit[StringReplace[a,{","->"<tr/td><thtd>", #, "</th"-></tr>\n"]&[ StringSplit[ StringReplace[a, lt;"," -> "</th><th->"&gt;"}], "\n"] //First],

,Map[StringJoin["<tr><td>",#,"</td></tr>\n"]&,StringSplit[StringReplace[a, "," -> "</td><td>"], "\n"] //Rest],

,"</langtable>"]

<tr><td>Brians mother</td><td><&lt;angry>&gt;Now you listen here! He's not the messiah;he's a very naughty boy! Now go away!<&lt;/angry>&gt;</td></tr>

<tr><th>Character</thtd><thtd>Speech</th></tr>

<tr><td>Brians mother</td><td><&lt;angry>&gt;Now you listen here! He's not the messiah;he's a very naughty boy! Now go away!<&lt;/angry>&gt;</td></tr>

</table></lang>