导航
1.代码演示
2.步骤过程
3.comparemode属性
4.也可以用for each来遍历item集合
——————————————————————————————————————
我们先看一下关于字典操作
option explicit const LAST = 0 '列下标为0时 const FIRST = 1 const PHONE = 2 dim dicPhoneList,strItemRead '定义字典对象和下面要读取的变量 set dicPhoneList = createobject("scripting.dictionary") '创建字典对象 FillPhoneList '向字典中添加数据 searchPhoneList '根据输入的电话来寻找数据 sub FillPhoneList '电话册创建 dim strItemAdd(2,0) '定义一个二维数组（列，行） dim strkey '作为索引的值，相当于key strItemAdd(LAST,0) = "williams" '数组进行赋值 strItemAdd(FIRST,0) = "tony" strItemAdd(PHONE,0) = "404-556-1235" strkey = strItemAdd(PHONE,0) '让key等于它的电话号码 dicPhoneList.add strkey,strItemAdd '存入key和数组，以后可以根据key所存放的电话号码来找 end sub sub searchPhoneList dim strphone strphone = inputbox("请输入电话：") '输入对应电话号码 if dicPhoneList.Exists(strphone) then '判断对象中是否存在输入电话号码的key值 strItemRead = dicPhoneList.Item(strPhone) '存在的话找到该目录，并将其赋给一个变量 msgbox "we found" & "last：" & strItemRead(LAST,0) & vbNewLine & _ '根据这个变量找到其中的数据，打印出来 "first：" & strItemRead(FIRST,0) &vbNewLine & _ "Phone：" & strItemRead(PHONE,0) else msgbox "无此号码的信息" end if end sub
1.首先是创建字典对象：
set dicPhoneList = createobject(“scripting.dictionary”) '创建字典对象
2.存入两个值：一个是key值(就是后面可以根据key值来索引的)，另一个可以存放任意数据类型
dicPhoneList.add strkey,strItemAdd '存入key和数组，以后可以根据key所存放的电话号码来找
——————————————————————————————————————
注释：有三种不同的添加方式
——————————————————————————————————————
3.让一个变量接收由key找到的对象：
strItemRead = dicPhoneList.Item(strPhone) '存在的话找到该目录，并将其赋给一个变量
4.再由这个变量进行输出：（根据这个变量来索引）
msgbox “we found” & “last：” & strItemRead(LAST,0) & vbNewLine & _ '根据这个变量找到其中的数据，打印出来
“first：” & strItemRead(FIRST,0) &vbNewLine & _
“Phone：” & strItemRead(PHONE,0)
注释：（也可以直接省略第三步直接打印出来）
大小写敏感意思是：abc和ABC视为不重复
不敏感：abc与ABC视为相同
——————————————————————————————————————
也可以用for each 来访问item集合
如：
sub searchPhoneList dim strphone strphone = inputbox("请输入电话：") '输入对应电话号码 if dicPhoneList.Exists(strphone) then '判断对象中是否存在输入电话号码的key值 for each strItemRead in dicPhoneList.Item(strPhone) '进行遍历，并将每次遍历结果放入str字符串中 str = str & strItemRead & vbNewLine next else msgbox "无此号码的信息" end if msgbox str end sub
