(PowerBuilder) Xml.UpdateAttrAt Example #2
Another Xml.UpdateAttrAt example...
integer li_rc
oleobject loo_Xml
oleobject loo_SbValue
integer i
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.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_9_5_0.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
|