Xbase++

XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter 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>

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

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

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

? oXml:GetXml()

//  We now have:

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

oXml:destroy()