Scripting.Dictionary组件用法

源码如下：

<style>
.yy{ width:50; border:1px inset #d3d6d9}
textarea{ border:1px inset #333333}
body{ font-size:14px; font-family: Comic Sans MS; font-weight:bold}
</style>
<script>
var dic=new ActiveXObject("Scripting.Dictionary");
dic.add("aa","nice");
dic.add("bb","good");
dic.add("cc","wonder");
function getDic(){
a=new VBArray(dic.Keys());
s="";
for(i=0;i<dic.Count;i++){
s+=a.getItem(i)+" ==> "+dic(a.getItem(i))+"\r";
}
ye.value=s;
}

function addDic(a,b){
if(dic.Exists(a)){
alert("已经有此Key,不能重复!");
return false;
}
else if(a=="" || b==""){
alert("Key和值不能为空");
return false;
}
else dic.add(a,b)

}

function remDic(a){
if(dic.Exists(a)){
dic.remove(a);
}
else alert("无此项目,删除错误!");return false
}

</script>
<script defer>
getDic();
</script>
<textarea name=ye cols=60 rows=10 contenteditable=false></textarea> <p>
Key: <input name=k class=yy> Value: <input name=v class=yy> <input type=button value=添加字典 οnclick="addDic(k.value,v.value);getDic()" hideFocus><img width=100 height=1>
Key: <input name=k1 class=yy> <input type=button value=删除某项 οnclick="remDic(k1.value);getDic()"><p>

解说：
字典对象的创建------->
var dic=new ActiveXObject("Scripting.Dictionary");

创建了字典对象后就可以使用它的属性和方法了:

dic.add(key,value) 用来添加一组字典项目.
dic.remove(key) 用来删除指定key的字典项目.
dic.removeAll() 方法是用来删除字典全部项目.
dic(key)可以取得字典里的值

在建立一个字典后, 可以用dic.Keys()来表示key的集合, 一般我们先用a=new VBArray(dic.Keys())将集合转化为数组;然后用a.getItem(索引值)来取得字典的key. 然后我们可以用for(i=0;i<dic.Count;i++){...} 这段语句来枚举字典的项目.

dic.Exists(key) 用来搜索字典中的key, 它是一个布尔值,存在就返回true,否则为false;

转载于:https://www.cnblogs.com/mei/archive/2007/02/12/647931.html