preload

p_GetXMLElementCData (QTP, TestComplete, VBScript)

Posted by Albert Gareev on Jul 22, 2008 | Categories: Source codeXML Data

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

Description

Get CData text, combined from all child CData nodes.

Implementation

Private Function p_GetXMLElementCData(ByRef objXMLElement)
  Dim objColl, Iter
  Dim sResult
 
  Set objColl = objXMLElement.ChildNodes
  sResult = ""
  For Iter=0 To objColl.length-1
    If objColl.Item(Iter).NodeName = "#cdata-section" Then
      sResult = sResult & objColl.Item(Iter).NodeValue
    End If
  Next
  p_GetXMLElementCData = sResult
  
End Function


  • Leave a Reply

    * Required
    ** Your Email is never shared

Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported
This work by Albert Gareev is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported.