(Visual Basic 6.0) Insert after Node with Tag

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' First, let's create the following XML:

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

Dim xml As New ChilkatXml
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>

Dim xT As ChilkatXml
Set xT = xml.FindChild("DatiTrasmissione|IdTrasmittente")
Dim index As Long
index = xT.TagIndex("IdPaese")
If (index < 0) Then
    Debug.Print "nothing found at the given tag."
    Exit Sub
End If

Dim x1 As ChilkatXml
Set x1 = xT.NewChildAfter(index,"NewTag","Content")

' Show the resulting XML.
Debug.Print xml.GetXml()