RosettaCodeData/Task/XML-DOM-serialization/Mathematica/xml-dom-serialization.math

mirror of https://github.com/acmeism/RosettaCodeData.git
DOM = XMLObject["Document"][{XMLObject["Declaration"]["Version" -> "1.0","Encoding" -> "utf-8"]},
XMLElement["root", {}, {XMLElement["element", {}, {"Some text here"}]}], {}];
ExportString[DOM, "XML", "AttributeQuoting" -> "\""]
	`DOM = XMLObject["Document"][{XMLObject["Declaration"]["Version" -> "1.0","Encoding" -> "utf-8"]},`
	`XMLElement["root", {}, {XMLElement["element", {}, {"Some text here"}]}], {}];`
	`ExportString[DOM, "XML", "AttributeQuoting" -> "\""]`