(DataFlex) Update an XML Attribute

Demonstrates how to update XML attributes.

The output XML is this:

<abc b="pear" c="orange" a="130">Test</abc>

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Get ComLoadXml Of hoXml '<abc a="123" b="apple">Test</abc>' To iSuccess

    // The UpdateAttribute and AddOrUpdateAttribute methods
    // are identical.  Both will replace the attribute's value if it
    // already exists, or insert a new attribute if it does not yet exist.

    // Change the value of attribute "b" to "pear".
    Get ComUpdateAttribute Of hoXml "b" "pear" To iSuccess

    // Because no attribute named "c" exists, UpdateAttribute
    // will create it:
    Get ComUpdateAttribute Of hoXml "c" "orange" To iSuccess

    // If an attribute's value is an integer, the AddToAttribute
    // method may be called to update it by adding an integer value.
    // For example, update the value of "a" to "130" by adding 7.
    Send ComAddToAttribute To hoXml "a" 7

    // Examine the result:
    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1


End_Procedure