B4X

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

B4X

'  First, let's create the following XML:

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

Dim xml As ChilkatXml
xml.Initialize
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 = xml.FindChild("DatiTrasmissione|IdTrasmittente")
Dim index As Int = xT.TagIndex("IdPaese")
If index < 0 Then
    Log("nothing found at the given tag.")
    Return
End If


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



'  Show the resulting XML.
Log(xml.GetXml)