Code: Select all
xml = CreateXML(#PB_Any)
mainNode = CreateXMLNode(RootXMLNode(xml), "Zoo")
item = CreateXMLNode(mainNode, EscapeString("Hello / World", #PB_String_EscapeXML))
SetXMLAttribute(item, "id", "1")
s.s=ComposeXML(xml)
Debug s
xml2 = ParseXML(#PB_Any, s)
Debug xml2
Debug XMLStatus(xml2) ; <- #PB_XML_InvalidToken