« MBS Releases the MBS … | Home | Xojo Conferences and … »

Tip of the day: AppendChildCopy

The XMLNode.AppendChild function in Xojo doesn't work well, if the new child is not part of the same xml tree as the old one. So if you need to copy from one XMLDocument to another, you need to copy the subtree. The function below does the copying and works well in one client project:

Sub AppendChildCopy(extends parent as XmlNode, other as XmlNode) // parent document for creating new objects dim doc as XmlDocument = parent.OwnerDocument dim neu as XmlNode // create matching type of node in new document if other isa XmlTextNode then neu = doc.CreateTextNode(other.Value) elseif other isa XmlComment then neu = doc.CreateComment(other.Value) else neu = doc.CreateElement(other.Name) end if // now copy all attributes dim u as integer = other.AttributeCount-1 for i as integer = 0 to u dim a as XmlAttribute = other.GetAttributeNode(i) neu.SetAttribute(a.Name, a.Value) next // copy all children dim c as XmlNode = other.FirstChild while c <> nil neu.AppendChildCopy c c = c.NextSibling wend // and store new child parent.AppendChild neu End Sub
Useful? Comments? Problems? Your feedback is welcome! The biggest plugin in space...
06 08 15 - 14:04