[原创] WINDOWS中的脚本 No.05

Dictionary 对象
请参阅
FileSystemObject 对象 | TextStream 对象
语言
JScript

VBScript

显示所有语言
存储数据键和项目对的对象。

说明
Dictionary 对象等价于 PERL 联合数组。项目可以是数据的任何形式，并存储在数组中。每个项目都与一个具有唯一性的键相联。该键用于取得单个项目，并且通常是整数或字符串，但也可以是除数组以外的任何类型。

下面代码演示了如何创建 Dictionary 对象:

[JScript]
var y = new ActiveXObject("Scripting.Dictionary");
y.add ("a", "test");
if (y.Exists("a"))
   document.write("true");
...
[VBScript]
Dim d   ' 创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"   ' 添加一些关键字和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
方法
Add 方法 (Dictionary) | Exists 方法 | Items 方法 | Keys 方法 | Remove 方法 | RemoveAll 方法

属性
Count 属性 | Item 属性 | Key 属性

请参阅
FileSystemObject 对象 | TextStream 对象



--------------------------------------------------------------------------------

? 2001 Microsoft Corporation. 保留所有权利。

Item 属性
请参阅
CompareMode 属性 | Count 属性 | Key 属性

应用于：Dictionary 对象 | Drives 集合 | Files 集合 | Folders 集合
语言
JScript

VBScript

显示所有语言
在一个 Dictionary 对象中设置或者返回所指定 key 的 item。对于集合则根据所指定的 key 返回一个 item。读/写。

object.Item(key)[ = newitem]
参数
object
必选项。总是一个集合的名称或 Dictionary 对象的名称。
key
必选项。与要被查找或添加的 item 相关联的 key。
newitem
可选项。仅适用于 Dictionary 对象；对于集合不可使用此项。如果提供了此项，newitem 就是与所指定的 key 相关联的新值。
说明
如果在改变一个 key 的时候没有找到该 item，那么将利用所指定的 newitem 创建一个新的 key。如果在试图返回一个已有项目的时候没有找到 key，那么将创建一个新的 key 且其相关的项目被设置为空。

下面这个例子说明了 Item 属性的用法。

[JScript]
function DicTest(keyword)
{
   var a, d;
   d = new ActiveXObject("Scripting.Dictionary");
   d.Add("a", "Athens");
   d.Add("b", "Belgrade");
   d.Add("c", "Cairo");
   a = d.Item(keyword);
   return(a);
}
[VBScript]
Function ItemDemo
   Dim d   ' Create some variables.
   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "Athens"   ' 添加一些关键字和项目。
   d.Add "b", "Belgrade"
   d.Add "c", "Cairo"
   ItemDemo = d.Item("c")   ' 获取项目。
End Function

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
oShellLink.TargetPath = WScript.ScriptFullName
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.Ic
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save