(Visual FoxPro) Adding Attributes to an XML Node

Demonstrates how to add attributes to existing XML nodes.

The input XML is this:

<abc>
    <xyz>
        <mmm>123</mmm>
    </xyz>
</abc>

The output XML is this:

<abc a="123">
    <xyz b="456">
        <mmm c="789" d="000">123</mmm>
    </xyz>
</abc>

Download Chilkat XML ActiveX

LOCAL loXml
LOCAL lnSuccess

loXml = CreateObject('Chilkat.Xml')

lnSuccess = loXml.LoadXmlFile("add_attribute.xml")
IF (lnSuccess <> 1) THEN
    ? loXml.LastErrorText
    QUIT
ENDIF

*  Add an attribute  a="123" to the root node:
loXml.AddAttribute("a","123")

*  Navigate to the 1st child.  After calling FirstChild2,
*  "xml" now references the node with the tag "xyz".
loXml.FirstChild2()
loXml.AddAttribute("b","456")

*  Navigate to xyz's first child, which is the node having the
*  tag "mmm".
loXml.FirstChild2()
loXml.AddAttribute("c","789")
loXml.AddAttribute("d","000")

*  Revert back to the XML document root node
loXml.GetRoot2()

*  Examine the result:
? loXml.GetXml()