AddAttribute - Insert New Attribute in XML Node

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

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

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim xml As New Chilkat.Xml()

Dim success As Boolean

success = xml.LoadXmlFile("sample1.xml")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & xml.LastErrorText & vbCrLf
    Exit Sub
End If


'  Navigate to the "books" node:
Dim bFound As Boolean
bFound = xml.FindChild2("books")
If (bFound = false) Then
    TextBox1.Text = TextBox1.Text & "No books child found!" & vbCrLf
    Exit Sub
End If


Dim numChildren As Long
numChildren = xml.NumChildren

Dim i As Long
For i = 0 To numChildren - 1

    '  Navigate to the Nth book (we'll assume success...)
    bFound = xml.GetChild2(i)

    '  Display the book title:
    TextBox1.Text = TextBox1.Text & xml.GetAttrValue("title") & vbCrLf

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

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

    '  Navigate back up to the parent:
    success = xml.GetParent2()

Next

'  Navigate back to the document root:
xml.GetRoot2()

'  Save the updated document:
success = xml.SaveXml("modified.xml")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & xml.LastErrorText & vbCrLf
    Exit Sub
End If