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