XML/Output: Difference between revisions
Content added Content deleted
mNo edit summary |
|||
Line 1,843: | Line 1,843: | ||
</CharacterRemarks></lang> |
</CharacterRemarks></lang> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
Some tricky input with the second remark |
Some tricky input with the second remark |
||
<lang Mathematica>c = {"April", "Tam O'Shanter","Emily"}; |
<lang Mathematica>c = {"April", "Tam O'Shanter","Emily"}; |
||
r = {"Bubbly:I'm > Tam and <= Emily" , |
r = {"Bubbly:I'm > Tam and <= Emily" , |
||
StringReplace["Burns:\"When chapman billies leave the street ...\"", "\"" -> ""], "Short & shrift"}; |
StringReplace["Burns:\"When chapman billies leave the street ...\"", "\"" -> ""], "Short & shrift"}; |
||
ExportString[ XMLElement[ "CharacterRemarks", {}, |
ExportString[ XMLElement[ "CharacterRemarks", {}, |
||
{XMLElement["Character", {"name" -> c[[1]]}, {r[[1]]}], |
{XMLElement["Character", {"name" -> c[[1]]}, {r[[1]]}], |
||
Line 1,854: | Line 1,853: | ||
XMLElement["Character", {"name" -> c[[3]]}, {r[[3]]}] |
XMLElement["Character", {"name" -> c[[3]]}, {r[[3]]}] |
||
}], "XML", "AttributeQuoting" -> "\""]</lang> |
}], "XML", "AttributeQuoting" -> "\""]</lang> |
||
{{out}} |
|||
<pre><CharacterRemarks> |
<pre><CharacterRemarks> |
||
<Character name=\"April\">Bubbly:I'm > Tam and <= Emily</Character> |
<Character name=\"April\">Bubbly:I'm > Tam and <= Emily</Character> |