(Xojo Plugin) XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
Dim xml As New Chilkat.Xml

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"

System.DebugLog(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>

// Get the "order_billing_info" element
Dim orderBillingInfo As Chilkat.Xml
orderBillingInfo = xml.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
Dim index As Int32
index = orderBillingInfo.TagIndex("price_list_id")
System.DebugLog("index = " + Str(index))

// Add the "customer_id" element just after specified index.
Dim xCustId As Chilkat.Xml
xCustId = orderBillingInfo.NewChildAfter(index,"customer_id","1234")

System.DebugLog(xml.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>