vb6的dictionary类

vb6 原生容器, 除了array还有collection, 没有原生的dictionary和set类, 在microsoft script runtime库(scrrun.dll) 中有一个dictionary类, 功能还算强大, 可以较好处理key-value这样的字典, 我甚至觉得用它也完全可以代替原生的collection类.
microsoft script runtime库(scrrun.dll)中还包含了FileSystemObject 和 File 和 TextStream 常用的类.

    sub DictionaryTest()
        dim  dict as new dictionary 
        dim i as integer 
        dim txt as string 
        
        call dict.add("a","a1")  ' 增加一个key-value 
        call dict.add("d","d1")  
        
        dict.item("d") ="d2"  ' 修改指定key的value
        dict("d") ="d3"       ' 另一种方法去修改指定key的value 
        
        for i=0 to dict.count -1   '遍历dictionary, 下标要从0 开始 
            txt=dict.keys()(i) ' 使用 keys() 返回key的数组, 然后获取指定下标的key 
            txt=dict.items()(i) ' 使用 items() 返回value的数组, 然后获取指定下标key对应的value
            txt=dict.items(i) ' 获取指定下标key对应value的另一种方法, 使用 dic.items()(i) 可以简写成 dict.items(i)
        next i 
    end sub