VBS基础篇 - vbscript Dictionary对象

Dictionary是存储数据键和项目对的对象,其主要属性有Count、Item、Key,主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。
创建Dictionary对象 

'定义并创建Dictionary对象,使用CreateObject创建并返回自动化对象的引用
Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")

添加键值 

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
'向Dictionary对象中添加键值对
Dic.Add "Name", "Sirrah" 'Add方法第一个参数是Key值,第二个是Item值
Dic.Add "Age", 23  

删除键值   

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dic.Add "Age", 23
Dic.Item("Age") = 22 '修改键Age的值
MsgBox Dic.Item("Age") '输出22 

判断键是否存在  

Dim Dic
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dic.Add "Age", 23
MsgBox Dic.Exists("Age") '判断键是否存在 

输出所有键值
输出Dictionary对象所有键值,这边将介绍2种常用的循环方法,具体代码如下:

Dim Dic,Dics
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dic.Add "Age", 23
Dics = dic.Items 'Items返回一个包含所有Item值的数组
For i = 0 To dic.Count - 1 'Count返回Dictionary对象键数目
 str = str & Dics(i) & vbCrlf
Next
MsgBox(str)
Dim Dic,Dics
Set Dics = CreateObject("Scripting.Dictionary")
Dics.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
Dics.Add "Age", 23
For Each Dic In Dics '循环遍历Dictionary键,并输出键值
 MsgBox Dics.Item(Dic)
Next

补充一个实例

脚本文件:a.vbs,包含字典的添加、删除、判断键是否存在、修改键、修改值、遍历、统计键值对个数

'建立字典
Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")

'添加键值对
Dict.Add "Key1", "Item1"
Dict.Add "Key2", "Item2"
Dict.Add "Key3", "Item3"

'字典中键值对数量
WScript.Echo "字典中现有键值对数量: " & Dict.Count '让一个脚本在屏幕上显示文本信息

WScript.Echo 

'检查指定键是否存在
If Dict.Exists("Key1") Then
 WScript.Echo "Key1 存在!"
Else
 WScript.Echo "Key1 不存在!"
End If

If Dict.Exists("Keyn") Then
 WScript.Echo "Keyn 存在!"
Else
 WScript.Echo "Keyn 不存在!"
End If

WScript.Echo 

'遍历字典
Sub TraverseDict
 Dim DictKeys, DictItems, Counter
 DictKeys = Dict.Keys
 DictItems = Dict.Items 'Items返回一个包含所有Item值的数组
 For Counter = 0 To Dict.Count - 1 'Count返回Dictionary对象键数目
 WScript.Echo _
  "键: " & DictKeys(Counter) & _ '& 字符串连接运算符
  "值: " & DictItems(Counter)
 Next
End Sub

TraverseDict

WScript.Echo 

'在一个键值对中,修改键或修改值
Dict.Key("Key2") = "Keyx"
Dict.Item("Key1") = "Itemx"
TraverseDict

WScript.Echo 

'删除指定键
Dict.Remove("Key3")
TraverseDict

WScript.Echo 

'删除全部键
Dict.RemoveAll
WScript.Echo "字典中现有键值对数量: " & Dict.Count

调用方法:通过双击a.bat调用,a.bat代码如下:

cscript a.vbs
pause

运行结果截图:

(0)

相关推荐

  • VBS基础篇 - vbscript Dictionary对象

    Dictionary是存储数据键和项目对的对象,其主要属性有Count.Item.Key,主要方法有Add.Exists.Items.Keys.Remove.RemoveAll. 创建Dictionary对象 '定义并创建Dictionary对象,使用CreateObject创建并返回自动化对象的引用 Dim Dic Set Dic = CreateObject("Scripting.Dictionary") 添加键值 Dim Dic Set Dic = CreateObject(&q

  • VBS基础篇 - vbscript TextStream对象

    TextStream对象是用于访问文本文件的对象,它是FileSystemObject一个独立的附属对象,但在使用TextStream对象时,我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容.可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile(),来获取TextStream的对象句柄. 下面我们来具体的看看TextStream 对象的方法及属性的使用 TextStrea

  • VBS基础篇 - vbscript常用函数及功能

    vbs常用函数 函数名 语法 功能 Abs Abs(number) 返回一个数的绝对值 Sqr Sqr(number) 返回一个数的平方根 Sin Sin(number) 返回角度的正玄值 Cos Cos(number) 返回角度的余玄值 Tan Tan(number) 返回角度的正切值 Atn Atn(number) 返回角度的反正切值 Log Log(number) 返回一个数的自然对数 Int Int(number) 取整函数,返回一个小于number的第一整数 FormatNumber

  • VBS基础篇 - vbscript class类的定义与使用

    从网上看到一个vbs中使用class的例子, 转出来,共同学习! Class 语句:声明一个类的名称,以及组成该类的变量.属性和方法的定义. vbs类的使用方法 类的结构: class 类名称      end class 调用方法 set myclass=new 类名称    中间类里面的代码,      类模块的事件过程. Private Sub Class_Initialize() 这里写上类实例化的时候执行的代码. end sub Private Sub class_terminate(

  • VBS基础篇 vbscript Sendkeys模拟键盘操作

    模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为:object.SendKeys(string) object:表示WshShell对象 string:表示要发送的按键指令字符串,需要放在英文双引号中 基本键 每个按键由一个或多个字符表示. 为了指定单一键盘字符,必须按字符本身的键.例如,为了表示字母 A,可以用 "A" 为了表示多个字符,就必须在字符后面直接加上另一个字符.例如,要表示 A.B 及 C,可用 "ABC"

  • VBS基础篇 - vbscript堆栈

    实例代码 脚本文件:d.vbs,包含堆栈的添加元素(压栈).删除元素(出栈).遍历.统计元素个数.清空 Option Explicit '建立堆栈 Dim Stk : Set Stk = CreateObject("System.Collections.Stack") Stk.Push "Element1" Stk.Push "Element2" Stk.Push "Element3" '查看堆栈中的元素数 WScript.E

  • VBS基础篇 - vbscript队列

    实例代码 脚本文件:c.vbs,包含队列的添加元素(入队).删除元素(出队).遍历.统计元素个数.清空 '建立队列 Dim Que : Set Que = CreateObject("System.Collections.Queue") Que.EnQueue("Element1") Que.EnQueue("Element2") Que.EnQueue("Element3") '查看队列中的元素数 WScript.Echo

  • VBS基础篇 - vbscript动态数组

    脚本文件:b.vbs,包含动态数组的添加元素.删除元素.遍历.统计元素个数.清空 实例代码 '建立动态数组 Dim Arrl : Set Arrl = CreateObject("System.Collections.ArrayList") '添加元素 Arrl.Add "Element3" Arrl.Add "Element2" Arrl.Add "Element1" '查看动态数组中的元素数 WScript.Echo &q

  • VBS基础篇 - VBScript过程(使用sub 与 Function定义函数)

    我们一般都是在重复使用一些功能的时候,例如循环输出内容.分页的时候都会使用过程函数 Sub过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句.如果 Sub 过程无任何参数,则 Sub 语句必须包含空括号 (). 实例代码如下: Call GetName() '调用Sub过程 Sub GetName() MsgBox "我是我们" '输出字符串 End Sub Sub 过程可以使用参数(由调用过程传递的常数.变量或表达式).实例代码如下: Ca

  • VBS基础篇 - 循环(for、Do、While)

    经常地,当编写代码时,我们希望将一段代码执行若干次,我们可以在代码中使用循环语句来完成这项工作. 循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照指定的次数重复执行语句. For...Next:指定循环次数,使用计数器重复运行语句 Do...Loop:当条件为 true 或者直到条件为 true 时,运行循环 While-Wend:当条件为True时循环 For Each...Next:对于集合中的每项或数组中的每个元素,重复执

随机推荐