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

See also  5 Tips for Choosing the Right Medical Software for Your Practice
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist