dictionary - 如何克隆字典对象？

Question

我在VBScript中有一个Dictionary对象。如何将其中包含的所有对象复制到新的Dictionary，即创建字典的副本/副本？

Answer 1

创建一个新的Dictionary对象，遍历原始词典中的键，并将这些键和相应的值添加到新词典中，如下所示:

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

在大多数情况下，这应该足够了。但是，如果原始词典包含对象，则必须实现深度克隆，即也克隆这些对象。