Visual FoxPro

Xml.ChildContent Example #2

Another Xml.UpdateChildContent example... Visual FoxPro

LOCAL loXml
LOCAL loSbValue
LOCAL i

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "abc"

loSbValue = CreateObject('Chilkat.StringBuilder')

i = 0
DO WHILE i < 10
    loXml.I = i
    loSbValue.Clear()
    loSbValue.AppendInt(i)
    loXml.UpdateChildContent("xyz|test[i]",loSbValue.GetAsString())
    i = i + 1
ENDDO

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

RELEASE loXml
RELEASE loSbValue