(PureBasic) XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    success.i
    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xml, "order")
    CkXml::ckNewChild2(xml,"order_billing_info|price_list","Listino Italia")
    CkXml::ckNewChild2(xml,"order_billing_info|price_list_id","1")
    CkXml::ckNewChild2(xml,"order_billing_info|first_name","Francesco")

    Debug CkXml::ckGetXml(xml)

    ; We now have the following XML:

    ; <?xml version="1.0" encoding="utf-8"?>
    ; <order>
    ;     <order_billing_info>
    ;         <price_list>Listino Italia</price_list>
    ;         <price_list_id>1</price_list_id>
    ;         <first_name>Francesco</first_name>
    ;     </order_billing_info>
    ; </order>

    ; If there is no "customer_id" element under "order_billing_info", then add it.
    If CkXml::ckHasChildWithTag(xml,"order_billing_info|customer_id") = 1
        Debug "customer_id already exists, nothing to do..."
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    ; Add the customer_id element just before the "price_list" element.

    ; Get the "order_billing_info" element
    orderBillingInfo.i = CkXml::ckFindChild(xml,"order_billing_info")

    ; Call NewChildBefore to add an XML element <customer_id> before <price_list>
    ; First get the index of the element price_list
    index.i = CkXml::ckTagIndex(orderBillingInfo,"price_list")
    Debug "index = " + Str(index)

    ; Add the "customer_id" element just before specified index.
    xCustId.i = CkXml::ckNewChildBefore(orderBillingInfo,index,"customer_id","1234")
    CkXml::ckDispose(xCustId)

    CkXml::ckDispose(orderBillingInfo)

    Debug CkXml::ckGetXml(xml)

    ; We now have:

    ; <?xml version="1.0" encoding="utf-8"?>
    ; <order>
    ;     <order_billing_info>
    ;         <customer_id>1234</customer_id>
    ;         <price_list>Listino Italia</price_list>
    ;         <price_list_id>1</price_list_id>
    ;         <first_name>Francesco</first_name>
    ;     </order_billing_info>
    ; </order>


    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure