¿Cómo puedo clonar un objeto de diccionario?

Question

Tengo un objeto Dictionary en VBScript. ¿Cómo puedo copiar todos los objetos que contiene en un nuevo Dictionary, es decir, crear un clon/duplicado del diccionario?

Answer 1

Crear un nuevo objeto Dictionary, iterar a través de las teclas en el diccionario original y agrega estas claves y los valores correspondientes al nuevo diccionario, como esto:

Function CloneDictionary(Dict) 
    Dim newDict 
    Set newDict = CreateObject("Scripting.Dictionary") 

    For Each key in Dict.Keys 
    newDict.Add key, Dict(key) 
    Next 
    newDict.CompareMode = Dict.CompareMode 

    Set CloneDictionary = newDict 
End Function 

Esto debería ser suficiente en la mayoría de los casos. Sin embargo, si su diccionario original contiene objetos, deberá implementar la clonación profunda, es decir, clonar estos objetos también.

Answer 2

Eche un vistazo a la respuesta aceptada en VBScript: How to utiliize a dictionary object returned from a function?. Podría ser una solución si una referencia es todo lo que se está buscando.

Editar De acuerdo con el comentario de Ekkehard.Horner, ahora entiendo que esto es no clonación, pero puede ayudar a otros que están buscando solamente una referencia al objeto original.