B4X

AddAttribute - Insert New Attribute in an XML Node

Demonstrates adding an name=value attribute to an XML element.

This example uses the XML sample file here: sample1.xml. The sample1.xml file contains this content:

B4X

Dim success As Boolean = False

Dim xml As ChilkatXml
xml.Initialize

success = xml.LoadXmlFile("qa_data/xml/sample1.xml")
If success <> True Then
    Log(xml.LastErrorText)
    Return
End If


'  Navigate to the "books" element:
Dim bFound As Boolean = xml.FindChild2("books")
If bFound = False Then
    Log("No books child found!")
    Return
End If


Dim numChildren As Int = xml.NumChildren

Dim i As Int = 0
Do While i < numChildren

    '  Navigate to the Nth book 
    xml.GetChild2(i)

    '  Display the book title:
    Log(xml.GetAttrValue("title"))

    '  Add a new integer attribute:
    '  Should never fail..
    xml.AddAttributeInt("bookId", i)

    '  Add a new unread="yes" attribute:
    xml.AddAttribute("unread", "yes")

    '  Navigate back up to the parent:
    xml.GetParent2

    i = i + 1
Loop

'  Navigate back to the document root:
xml.GetRoot2

'  Save the updated document:
success = xml.SaveXml("modified.xml")
If success <> True Then
    Log(xml.LastErrorText)
    Return
End If


Log(xml.GetXml)