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

Service Functions – Dictionary (QTP, TestComplete, VBScript)

Description

For each occurrence of XML node perform conversion to Dictionary, and store all records in indexed Dictionary object.

Implementation

Public Function XMLNodeSet2Dictionary(ByRef objXMLNodeSet)
  Dim objDictionary
  Dim Iter

  Set objDictionary = CreateObject("Scripting.Dictionary")
 If objXMLNodeSet is Nothing Then
  Set XMLNodeSet2Dictionary = objDictionary
  Exit Function
 End If
 
  For Iter=0 To objXMLNodeSet.length-1
    Set objDictionary.Item(Iter+1) = XMLNode2Dictionary(objXMLNodeSet.Item(Iter))
  Next
 
  Set XMLNodeSet2Dictionary = objDictionary
 
End Function