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

Description

Does exactly opposite what AssociateParameters does - converts a Dictionary back to the string of pairs. Special characters are treated.

Implementation

Public Function ParametersToStr(ByRef objDictionary)
 Dim Iter, dvKeys
 Dim sParameter, sKey, sValue
 sParameter = ""
 dvKeys = objDictionary.Keys()
 For Iter = 0 To UBound(dvKeys)
 	 sKey = dvKeys(Iter)
		sValue = Replace(objDictionary.Item(sKey), ",", "\,")
		sValue = Replace(sValue, "=", "\=")
		sKey = Replace(sKey, ",", "\,")
		sKey = Replace(sKey, "=", "\=")
		sParameter = Add2List(sParameter, sKey & " = " & sValue, ", ")
 Next
 ParametersToStr = sParameter
End Function