B4X

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. B4X

Dim success As Boolean = False

Dim xml As ChilkatXml
xml.Initialize

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

Log(xml.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 xml.HasChildWithTag("order_billing_info|customer_id") = True Then
    Log("customer_id already exists, nothing to do...")
    Return
End If


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

'  Get the "order_billing_info" element
Dim orderBillingInfo As ChilkatXml = xml.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
Dim index As Int = orderBillingInfo.TagIndex("price_list")
Log("index = " & index)

'  Add the "customer_id" element just before specified index.
Dim xCustId As ChilkatXml = orderBillingInfo.NewChildBefore(index, "customer_id", "1234")



Log(xml.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>