devxlogo

CreateAppendElement – appending a XmlElement under another XmlNode

CreateAppendElement – appending a XmlElement under another XmlNode

' Create an XmlElement object with inner text and make it a child of another ' XmlNode.' Note: requires Imports System.XmlFunction CreateAppendElement(ByVal parentNode As XmlNode, ByVal name As String, _    Optional ByVal innerText As String = Nothing) As XmlElement    ' Create a new XmlElement object, set the return value.    Dim xmlEl As XmlElement = parentNode.OwnerDocument.CreateElement(name)    ' Set its inner text    If Not (innerText Is Nothing) Then xmlEl.InnerText = innerText    ' make it a child of its parent node.    parentNode.AppendChild(xmlEl)    ' Return the new node to the caller    Return xmlElEnd Function' Example: ' load a XML fileDim xmldoc As New XmlDocument()xmldoc.Load("Employees.xml")' create new Employee element and set its attributesDim xmlEl As XmlElement = CreateAppendElement(xmldoc.DocumentElement, _    "Employee")xmlEl.SetAttribute("id", "100")' create sub-elementsCreateAppendElement(xmlEl, "firstName", "Joe")CreateAppendElement(xmlEl, "lastName", "Doe")' Note: This code is taken from Francesco Balena's' "Programming Microsoft Visual Basic .NET" - MS Press 2002, ISBN 0735613753' You can read a free chapter of the book at ' http://www.vb2themax.com/HtmlDoc.asp?Table=Books&ID=101000

devx-admin

Share the Post: