Wie klone ich ein Dictionary-Objekt?

Question

Ich habe ein Dictionary Objekt in VBScript. Wie kann ich alle darin enthaltenen Objekte in ein neues Dictionary kopieren, d. H. Einen Klon/ein Duplikat des Wörterbuchs erstellen?

Answer 1

Erstellen Sie ein neues Dictionary Objekt, über die Tasten im ursprünglichen Wörterbuch iterieren und fügt diese Schlüssel und die entsprechenden Werte in das neue Wörterbuch, wie folgt aus:

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 

Dies sollte in den meisten Fällen ausreichen. Wenn Ihr ursprüngliches Wörterbuch jedoch Objekte enthält, müssen Sie das tiefe Klonen implementieren, also auch diese Objekte klonen.

Answer 2

Werfen Sie einen Blick auf die angenommene Antwort in VBScript: How to utiliize a dictionary object returned from a function?. Könnte eine Lösung sein, wenn nur eine Referenz gesucht wird.

bearbeiten Per Ekkehard.Horner Kommentar, ich verstehe jetzt, dass dies nicht klonen, kann aber andere helfen, die nur für einen Verweis auf das ursprüngliche Objekt suchen.