Visual FoxPro

XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method. Visual FoxPro

LOCAL lnSuccess
LOCAL loXml
LOCAL loOrderBillingInfo
LOCAL lnIndex
LOCAL loXCustId

lnSuccess = 0

loXml = CreateObject('Chilkat.Xml')

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>

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

* Add the "customer_id" element just after specified index.
loXCustId = loOrderBillingInfo.NewChildAfter(lnIndex,"customer_id","1234")
RELEASE loXCustId
RELEASE loOrderBillingInfo

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

RELEASE loXml