asp中Scripting.Dictionary字典对象使用示例
vbscript的Scripting.Dictionary创建了类似于Key索引对应Value值的字典对象,通过Key直接索引到指定的Value。
VBScript中Scripting.Dictionary使用示例如下:
DimobjDict SetobjDict=WSH.CreateObject("Scripting.Dictionary") '.Add(key,value) objDict.Add"a","value1" objDict.Add"b","value2" objDict.Add"c","value3" '直接通过key=b索引到value2 WSH.EchoobjDict.Item("b") objDict.Remove"b"'删除索引b及其对应的值 '以下是遍历字典 DimobjKeys,objItems,i objKeys=objDict.Keys objItems=objDict.Items Fori=0ToobjDict.Count-1 WSH.Echo"Key="&objKeys(i)&_ "ANDValue="&objItems(i) Next '判断指定的key是否存在 IfobjDict.Exists("b")Then WSH.Echo"Foundit" Else WSH.Echo"NotExists!" EndIf objDict.RemoveAll '清空字典内所有的key及其对应value SetobjDict=Nothing