VBScript

Insert after Node with Tag

See more XML Examples

Demonstrates how to insert a new node as a sibling directly after a specified node having a given tag.

Note: This example requires Chilkat v9.5.0.76 or greater. The TagIndex method was introduced in v9.5.0.76

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)

' First, let's create the following XML:

'   <FatturaElettronicaHeader>
'     <DatiTrasmissione>
'       <IdTrasmittente>
'         <IdPaese>IT</IdPaese>
'         <IdCodice>12345678</IdCodice>
'       </IdTrasmittente>
'     </DatiTrasmissione>
'   </FatturaElettronicaHeader>

set xml = CreateObject("Chilkat.Xml")
xml.Tag = "FatturaElettronicaHeader"
xml.UpdateChildContent "DatiTrasmissione|IdTrasmittente|IdPaese","IT"
xml.UpdateChildContent "DatiTrasmissione|IdTrasmittente|IdCodice","12345678"

' Now insert a new node to get this XML:

'   <FatturaElettronicaHeader>
'     <DatiTrasmissione>
'       <IdTrasmittente>
'         <IdPaese>IT</IdPaese>
'         <NewTag>Content</NewTag>
'         <IdCodice>12345678</IdCodice>
'       </IdTrasmittente>
'     </DatiTrasmissione>
'   </FatturaElettronicaHeader>

' xT is a Chilkat.Xml
Set xT = xml.FindChild("DatiTrasmissione|IdTrasmittente")
index = xT.TagIndex("IdPaese")
If (index < 0) Then
    outFile.WriteLine("nothing found at the given tag.")
    WScript.Quit
End If

' x1 is a Chilkat.Xml
Set x1 = xT.NewChildAfter(index,"NewTag","Content")

' Show the resulting XML.
outFile.WriteLine(xml.GetXml())

outFile.Close