![]() |
数据标识生成对象,用于统一管理、生成唯一的数据标识
Set ids = CreateObject("NetBox.Identity")
Item | 取得指定 id 的当前数值,并累加 |
Items | 以数组方式返回对象中的全部项目 |
Keys | 以数组方式返回对象中的全部键值 |
Add | 向对象中添加一个关键字项目对 |
Exists | 如果对象中存在所指定的关键字则返回 true,否则返回 false |
GenGUIDString | 创建一个全局唯一标识 GUID,返回一个格式化过的标识字符串 |
下面的例子创建一个 Identity 对象,初始化一个 id,然后多次生成标识。
Set dict = CreateObject("NetBox.Identity") dict.Add "aaa", CDbl(1) Shell.Console.WriteLine dict("aaa") Shell.Console.WriteLine dict("aaa", 20) Shell.Console.WriteLine dict("aaa") Shell.Console.WriteLine typename(dict("aaa"))
这段程序的执行结果如下:
1 2 22 Double