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

Description

1. Clone Dictionary object with all parameters

2. Copy parameters from one Dictionary to another

3. Release objects associated to Dictionary keys

Implementation

CloneParameters

Public Function CloneParameters(ByRef objSource)
  Dim objDest, Iter, dvKeys

  Set objDest = CreateObject("Scripting.Dictionary")

	If TypeName (objSource) <>  "Dictionary" Then
	   Set CloneParameters = objDest
	   Exit Function
	End If

  dvKeys = objSource.Keys()
  For Iter = 0 To UBound(dvKeys)
		objDest.Item(dvKeys(Iter)) = objSource.Item(dvKeys(Iter))
  Next

  Set CloneParameters = objDest
End Function

CopyParameters 

Public Function CopyParameters(ByRef objSource, ByRef objDest)
  Dim Iter, dvKeys

	If TypeName (objDest) <>  "Dictionary" Then
	   Set objDest = CloneParameters(objSource)
	   Set CopyParameters = objDest
	   Exit Function
	End If

	If TypeName (objSource) <>  "Dictionary" Then
	   Set CopyParameters = objDest
	   Exit Function
	End If

  dvKeys = objSource.Keys()
  For Iter = 0 To UBound(dvKeys)
		objDest.Item(dvKeys(Iter)) = objSource.Item(dvKeys(Iter))
  Next

  Set CopyParameters = objDest
End Function

ReleaseParameters

'Note. Use to release Object type parameters
Public Function ReleaseParameters(ByRef objSource)
  Dim Iter, dvKeys

	If TypeName (objSource) <>  "Dictionary" Then
	   Exit Function
	End If

  dvKeys = objSource.Keys()
  For Iter = 0 To UBound(dvKeys)
		Set objSource.Item(dvKeys(Iter)) = Nothing
  Next
End Function