#cs Scripting Dictionary UDF Made by GaryFrost Modified by Jefrey #ce Func _InitDictionary() Return ObjCreate("Scripting.Dictionary") EndFunc ;==>_InitDictionary ; Adds a key and item pair to a Dictionary object. Func _AddItem($oDictionary, $v_key, $v_item) $oDictionary.ADD($v_key, $v_item) If @error Then Return SetError(1, 1, -1) EndFunc ;==>_AddItem ; Returns true if a specified key exists in the Dictionary object, false if it does not. Func _ItemExists($oDictionary, $v_key) Return $oDictionary.Exists($v_key) EndFunc ;==>_ItemExists ; Returns an item for a specified key in a Dictionary object Func _Item($oDictionary, $v_key) Return $oDictionary.Item($v_key) EndFunc ;==>_Item ; Sets an item for a specified key in a Dictionary object Func _ChangeItem($oDictionary, $v_key, $v_item) $oDictionary.Item($v_key) = $v_item EndFunc ;==>_ChangeItem ; Sets a key in a Dictionary object. Func _ChangeKey($oDictionary, $v_key, $v_newKey) $oDictionary.Key($v_key) = $v_newKey EndFunc ;==>_ChangeKey ; Removes a key, item pair from a Dictionary object. Func _ItemRemove($oDictionary, $v_key) $oDictionary.Remove($v_key) If @error Then Return SetError(1, 1, -1) EndFunc ;==>_ItemRemove ; Returns the number of items in a collection or Dictionary object. Func _ItemCount($oDictionary) Return $oDictionary.Count EndFunc ;==>_ItemCount ; Returns an array containing all the items in a Dictionary object Func _GetItems($oDictionary) Return $oDictionary.Items EndFunc ;==>_GetItems Func _Clear($oDictionary) Return $oDictionary.RemoveAll EndFunc