asp中Scripting.Dictionary字典对象使用示例
2015-06-03 22:23
639 查看
vbscript的Scripting.Dictionary创建了类似于Key索引对应Value值的字典对象,通过Key直接索引到指定的Value。
VBScript中Scripting.Dictionary使用示例如下:
代码如下:
Dim objDict
Set objDict = WSH.CreateObject("Scripting.Dictionary")
' .Add(key, value)
objDict.Add "a", "value1"
objDict.Add "b", "value2"
objDict.Add "c", "value3"
'直接通过key=b索引到value2
WSH.Echo objDict.Item("b")
objDict.Remove "b" ' 删除索引b及其对应的值
' 以下是遍历字典
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 ' 清空字典内所有的key及其对应value
Set objDict = Nothing
VBScript中Scripting.Dictionary使用示例如下:
代码如下:
Dim objDict
Set objDict = WSH.CreateObject("Scripting.Dictionary")
' .Add(key, value)
objDict.Add "a", "value1"
objDict.Add "b", "value2"
objDict.Add "c", "value3"
'直接通过key=b索引到value2
WSH.Echo objDict.Item("b")
objDict.Remove "b" ' 删除索引b及其对应的值
' 以下是遍历字典
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 ' 清空字典内所有的key及其对应value
Set objDict = Nothing
相关文章推荐
- 关于AJAX跨域调用ASP.NET MVC或者WebAPI服务的问题及解决方案
- Asp.Net alert弹出提示信息的5种方法
- 树莓派(raspberry)使用经验————设置有线和无线ip
- 【ASP.NET北大青鸟】-总结(一)
- asp ODBC 驱动程序不支持所需的属性
- ASP.NET 状态服务 及 session丢失问题解决方案总结
- 通过ASP.NET StateServer实现进程外Session存储
- ASP.NET(C#)实现页面计时(定时)自动跳转
- 【转】asp.net中@page指令的属性Inherits、Src、CodeBehind区别
- Asp.net MVC中的ViewData与ViewBag
- ASP.NET实现TreeView的XML数据源绑定实例代码
- KafkaSpout之PartitionManager
- [Asp.net 5] Logging-新日志系统目录
- asp.net代码操作xml示例
- AspNet MVC4 教学-23:Asp.Net MVC4 Display And Editor 模板技术快速应用Demo
- Asp.net Mvc 提升命名空间优先级
- Asp.net Mvc Controller 同步执行
- 使用 WPF+ ASP.NET MVC 开发 在线客服系统 (一)
- asp.net上传文件
- ASP.NET获取客户端信息,获取客户端IP等等