RemoveNode()

Object: EHL7.QSXML

FileName: EHL7.dll

METHOD

Name: RemoveNode()

Parameters:

1) ndNode (Object of type "MSXML2.IXMLDOMNode")

Returns: Boolean

Description: Deletes a node from an XML document.

Example:

Dim myXMLObj As New EHL7.QSXML

Dim strXML As String

Dim ndRT As Object

Dim ndChild As Object

With myXmlObj

.ClearErrors

strXML = "<GOODXML></GOODXML>"

Call .OpenFromString(strXML)

If .IsError Then

  MsgBox .LastError

  .ClearErrors

  Exit Sub

End If

Set ndRT = .GetRootElement()

'ndRT is now an object of type MSXML2.IXMLDOMNode

MsgBox ndRt.XML

'is the same as calling

MsgBox myXMLObj.XML

'Add some child nodes

strXML = "<CHILDNODE></CHILDNODE>"

Call .XMLAddNode(ndRT,strXML)

Call .XMLAddNode(ndRT,strXML)

Call .XMLAddNode(ndRT,strXML)

Call .XMLAddNode(ndRT,strXML)

If .IsChildNode(ndRT,"CHILDNODE" Then

  MsgBox CStr(.CountChildNodes(ndRT,"CHILDNODE")) & " nodes"

End If

Set ndChild = ndRT.ChildNodes(3) 'The last CHILDNODE

'Remove it

Call .RemoveNode(ndChild)

MsgBox CStr(.CountChildNodes(ndRT,"CHILDNODE")) & " nodes"

End With

Set myXMLObj = Nothing