Lianja

XML NewChildBefore

Demonstrates the Chilkat.NewChildBefore method. Lianja

llSuccess = .F.

loXml = createobject("CkXml")

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

? loXml.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 (loXml.HasChildWithTag("order_billing_info|customer_id") = .T.) then
    ? "customer_id already exists, nothing to do..."
    release loXml
    return
endif

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

// Get the "order_billing_info" element
loOrderBillingInfo = loXml.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
lnIndex = loOrderBillingInfo.TagIndex("price_list")
? "index = " + str(lnIndex)

// Add the "customer_id" element just before specified index.
loXCustId = loOrderBillingInfo.NewChildBefore(lnIndex,"customer_id","1234")
release loXCustId
release loOrderBillingInfo

? loXml.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>


release loXml