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"] &, StringSplit[StringReplace[a, "," -> "</td><td>"], "\n"]],

"</table>"]

StringJoin["<table>\n",

StringJoin["<tr><th>", #, "</th></tr>\n"]&[ StringSplit[ StringReplace[a, "," -> "</th><th>"], "\n"] //First],

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

"</table>"]

</lang>

<pre><table>

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

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

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

</table>

</pre>