PowerBuilder

Xml.UpdateAttrAt Example #2

Another Xml.UpdateAttrAt 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.UpdateAttrAt("xyz|test[i]",1,"index",loo_SbValue.GetAsString())
    i = i + 1
loop

Write-Debug loo_Xml.GetXml()

// Output is:

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


destroy loo_Xml
destroy loo_SbValue