Xbase++

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. Xbase++

LOCAL nSuccess
LOCAL oXml
LOCAL oOrderBillingInfo
LOCAL nIndex
LOCAL oXCustId

nSuccess := 0

oXml := CreateObject("Chilkat.Xml")

oXml:Tag := "order"
oXml:NewChild2("order_billing_info|price_list", "Listino Italia")
oXml:NewChild2("order_billing_info|price_list_id", "1")
oXml:NewChild2("order_billing_info|first_name", "Francesco")

? oXml:GetXml()

//  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 (oXml:HasChildWithTag("order_billing_info|customer_id") == 1)
    ? "customer_id already exists, nothing to do..."
    oXml:destroy()
    RETURN
ENDIF

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

//  Get the "order_billing_info" element
oOrderBillingInfo := oXml:FindChild("order_billing_info")

//  Call NewChildBefore to add an XML element <customer_id> before <price_list>
//  First get the index of the element price_list
nIndex := oOrderBillingInfo:TagIndex("price_list")
? "index = " + Str(nIndex)

//  Add the "customer_id" element just before specified index.
oXCustId := oOrderBillingInfo:NewChildBefore(nIndex, "customer_id", "1234")
oXCustId:destroy()
oOrderBillingInfo:destroy()

? oXml:GetXml()

//  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>

oXml:destroy()