vb6的dictionary類

vb6 原生容器, 除了array還有collection, 沒有原生的dictionary和set類, 在microsoft script runtime庫(scrrun.dll) 中有一個dictionary類, 功能還算強(qiáng)大, 可以較好處理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, 下標(biāo)要從0 開始 
            txt=dict.keys()(i) ' 使用 keys() 返回key的數(shù)組, 然后獲取指定下標(biāo)的key 
            txt=dict.items()(i) ' 使用 items() 返回value的數(shù)組, 然后獲取指定下標(biāo)key對應(yīng)的value
            txt=dict.items(i) ' 獲取指定下標(biāo)key對應(yīng)value的另一種方法, 使用 dic.items()(i) 可以簡寫成 dict.items(i)
        next i 
    end sub 

vb6 模擬實現(xiàn)的C#基本類庫

https://github.com/kellyethridge/VBCorLib/tags