PowerBuilder

Xml.ChildContent Example #2

Another Xml.UpdateChildContent example... PowerBuilder

integer li_rc
oleobject loo_Xml
oleobject loo_SbValue
integer i

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "abc"

loo_SbValue = create oleobject
li_rc = loo_SbValue.ConnectToNewObject("Chilkat.StringBuilder")

i = 0
do while i < 10
    loo_Xml.I = i
    loo_SbValue.Clear()
    loo_SbValue.AppendInt(i)
    loo_Xml.UpdateChildContent("xyz|test[i]",loo_SbValue.GetAsString())
    i = i + 1
loop

Write-Debug loo_Xml.GetXml()

// Output is:

// 	<?xml version="1.0" encoding="utf-8" ?>
// 	<abc>
// 	    <xyz>
// 	        <test>0</test>
// 	        <test>1</test>
// 	        <test>2</test>
// 	        <test>3</test>
// 	        <test>4</test>
// 	        <test>5</test>
// 	        <test>6</test>
// 	        <test>7</test>
// 	        <test>8</test>
// 	        <test>9</test>
// 	    </xyz>
// 	</abc>


destroy loo_Xml
destroy loo_SbValue