PowerBuilder

Remove an XML Subtree

See more XML Examples

Demonstrates how to remove an XML subtree from an XML document. PowerBuilder

integer li_rc
long li_Success
oleobject loo_Xml
oleobject loo_Xml2
string ls_NotUsed

li_Success = 0

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Xml.LoadXmlFile("qa_data/xml/osszes.xml")

//  The XML file we're loading contains this:

//  <?xml version="1.0" encoding="iso-8859-2" ?>
//  <EXAMPLE>
//      <OSSZES>
//          <ROW TYPE="INS">477953
//              <NUMBER>05107003972</NUMBER>
//          </ROW>
//          <ROW TYPE="INS">477954
//              <NUMBER>05107001342</NUMBER>
//          </ROW>
//          <ROW TYPE="INS">477955
//              <NUMBER>05107001342</NUMBER>
//          </ROW>
//          <ROW TYPE="INS">477956
//              <NUMBER>05107000017</NUMBER>
//          </ROW>**
//          <ROW TYPE="INS">477957
//              <NUMBER>05107002182</NUMBER>
//          </ROW>
//      </OSSZES>
//  </EXAMPLE>
//  

//  We wish to remove this subtree:

//  <ROW TYPE="INS">477956
//      <NUMBER>05107000017</NUMBER>
//  </ROW>

//  Get another reference to the XML document.
loo_Xml2 = loo_Xml.GetSelf()

//  Navigate to the node that is the root of the subtree to be deleted.
//  In this case, we wish to find the node having tag "ROW" with content "477956"
ls_NotUsed = loo_Xml2.ChilkatPath("OSSZES|/C/ROW,*477956*|$")

//  Examine the xml2, it should be just the subtree.
Write-Debug loo_Xml2.GetXml()

//  Now detach xml2 from the it's XML document.
//  xml2 will now be it's own XML document.
loo_Xml2.RemoveFromTree()

//  Examine our original XML document.  The subtree is removed:
Write-Debug loo_Xml.GetXml()

destroy loo_Xml2


destroy loo_Xml