0 Members and 1 Guest are viewing this topic.
var d;d = new ActiveXObject("Scripting.Dictionary"); d.Add ("a", "Athens"); // Add some keys and items.d.Add ("b", "Belgrade");d.Add ("c", "Cairo");...d.Remove("b"); // Remove second pair.
Dim dSet d = CreateObject("Scripting.Dictionary")d.Add "a", "Athens" ' Add some keys and items.d.Add "b", "Belgrade"d.Add "c", "Cairo"...d.Remove("b") ' Remove second pair.
DIM d AS IDictionaryDIM vKey AS VARIANTDIM vItem AS VARIANTd = NEWCOM "Scripting.Dictionary"vKey = "a" : vItem = "Athens"d.Add vKey, vItemvKey = "b" : vItem = "Belgrade"d.Add vKey, vItemvKey = "c" : vItem = "Cairo"d.Add vKey, vItem...vKey = "b"d.Remove vKey