Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Remove all existing child CData nodes. Create a new CData node.

Implementation

Private Function p_SetXMLElementCData(ByRef objXMLElement, ByVal sValue)
 Dim objXMLDoc, objCDataNode
  Dim objColl, Iter
  'Remove all
  Set objColl = objXMLElement.ChildNodes
  Count = objColl.length-1
  Iter = 0
  Do While Iter <= Count
    If objColl.Item(Iter).NodeName = "#cdata-section" Then
      Call objXMLElement.RemoveChild(objColl.Item(Iter))
      Count = Count - 1
    Else
      Iter = Iter + 1
    End If
  Loop
  'Create / Add new
  Set objXMLDoc = objXMLElement.OwnerDocument
  Set objCDataNode = objXMLDoc.CreateCDATASection(sValue)
  objXMLElement.AppendChild(objCDataNode)
  p_SetXMLElementCData = True
End Function