|
|
数据标识生成对象,用于统一管理、生成唯一的数据标识
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