VBScript

Create XML with Multiple Same-Tag Children

See more XML Examples

Demonstrates how to create XML where siblings have the identical tags. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example creates the following XML:

' <soap:Envelope>
'     <soap:Body>
'         <S:AlternatePartyIds>
'             <S:Id>123456789</S:Id>
'             <S:AssigningPartyId>NationalId</S:AssigningPartyId>
'         </S:AlternatePartyIds>
'         <S:AlternatePartyIds>
'             <S:Id>987654</S:Id>
'             <S:AssigningPartyId>DriversLicense</S:AssigningPartyId>
'             <S:IssuingState>SD</S:IssuingState>
'         </S:AlternatePartyIds>
'     </soap:Body>
' </soap:Envelope>

set xml = CreateObject("Chilkat.Xml")
xml.Tag = "soap:Envelope"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds|S:Id","123456789"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds|S:AssigningPartyId","NationalId"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:Id","987654"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:AssigningPartyId","DriversLicense"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:IssuingState","SD"

outFile.WriteLine(xml.GetXml())

outFile.Close