最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp中Scripting.Dictionary字典對(duì)象使用示例

 更新時(shí)間:2014年08月14日 11:02:13   投稿:junjie  
這篇文章主要介紹了asp中Scripting.Dictionary字典對(duì)象使用示例,本文包含創(chuàng)建、賦值、遍歷、判斷KEY等操作,需要的朋友可以參考下

vbscript的Scripting.Dictionary創(chuàng)建了類似于Key索引對(duì)應(yīng)Value值的字典對(duì)象,通過(guò)Key直接索引到指定的Value。

VBScript中Scripting.Dictionary使用示例如下:

復(fù)制代碼 代碼如下:

Dim objDict
Set objDict = WSH.CreateObject("Scripting.Dictionary")
  ' .Add(key, value)   
  objDict.Add "a", "value1"
  objDict.Add "b", "value2"
  objDict.Add "c", "value3"
  '直接通過(guò)key=b索引到value2
  WSH.Echo objDict.Item("b")
  objDict.Remove "b" ' 刪除索引b及其對(duì)應(yīng)的值
   
  ' 以下是遍歷字典
  Dim objKeys, objItems, i
  objKeys = objDict.Keys
  objItems = objDict.Items
  For i = 0 To objDict.Count -1
    WSH.Echo "Key=" & objKeys(i) &_
             " AND Value=" & objItems(i)
  Next
  ' 判斷指定的key是否存在
  If objDict.Exists("b") Then
    WSH.Echo "Found it"
  Else
    WSH.Echo "Not Exists!"
  End If
  objDict.RemoveAll  ' 清空字典內(nèi)所有的key及其對(duì)應(yīng)value
Set objDict = Nothing

您可能感興趣的文章:

相關(guān)文章

最新評(píng)論

方正县| 台北市| 于田县| 耒阳市| 隆回县| 玛沁县| 奈曼旗| 延吉市| 建湖县| 太和县| 横峰县| 诸城市| 松溪县| 扎兰屯市| 富顺县| 高州市| 上林县| 南澳县| 宁德市| 调兵山市| 北京市| 当雄县| 儋州市| 泰来县| 外汇| 威远县| 荆门市| 安国市| 乐至县| 青阳县| 阳泉市| 哈巴河县| 鹤山市| 曲阳县| 汶上县| 玛纳斯县| 长寿区| 津南区| 阜宁县| 简阳市| 特克斯县|