复制一个ArrayList,它是Dictionary的一部分

时间:2016-02-24 20:28:26

标签: dictionary arraylist vbscript

以下是我的数据创建方式的摘录:

Set ds = CreateObject("Scripting.Dictionary") 
...
if ds.Exists(key) then
    if ds.item(key).count = 10 then ds.item(key).RemoveAt(0)
    ds.item(key).add(newval)
else
    Set v = CreateObject("System.Collections.ArrayList")
    v.add(newval)
    ds.add key,v
end if

然后我试图遍历字典并对每个数组列表进行一些计算。在此之前,我想将其复制到一个新的临时对象:

Set tmpAL = CreateObject("System.Collections.ArrayList")
tmpAL = ds.items()(x)

不幸的是,这给了我以下错误:

  

无效的程序调用或参数:' tmpAL'

有什么问题?

1 个答案:

答案 0 :(得分:2)

ArrayLists有一个Clone方法,可以创建一个浅表副本。这条线

svg.append("foreignObject")
      .attr("width", 400)
      .attr("height", 200)
   .append("xhtml:body")
      .style("font", "16px 'Helvetica Neue'")
      .html(function(d) {
        return d.name;
      })

应该有用。