AutoIt

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. AutoIt

Local $bSuccess = False

$oXml = ObjCreate("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"

ConsoleWrite($oXml.GetXml() & @CRLF)

;  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") = True) Then
    ConsoleWrite("customer_id already exists, nothing to do..." & @CRLF)
    Exit
EndIf

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

;  Get the "order_billing_info" element
Local $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
Local $index = $oOrderBillingInfo.TagIndex("price_list")
ConsoleWrite("index = " & $index & @CRLF)

;  Add the "customer_id" element just before specified index.
Local $oXCustId = $oOrderBillingInfo.NewChildBefore($index,"customer_id","1234")

ConsoleWrite($oXml.GetXml() & @CRLF)

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