Vbscript-dictionary-objects
提供：Dev Guides
VBScript辞書オブジェクト
Dictionaryオブジェクトは、PERL連想配列と比較できます。 配列には任意の値を格納でき、各アイテムは一意のキーに関連付けられます。 キーは個々の要素を取得するために使用され、通常は整数または文字列ですが、配列以外のものであれば何でもかまいません。
構文
VBScriptクラスは* Class …で囲まれています。 終了クラス*。
Dim variablename
Set variablename = CreateObject("Scripting.Dictionary")
variablename.Add (key, item)例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim obj_datadict ' Create a variable.
Set obj_datadict = CreateObject("Scripting.Dictionary")
obj_datadict.Add "a", "Apple" ' Add some keys and items.
obj_datadict.Add "b", "Bluetooth"
obj_datadict.Add "c", "Clear"
</script>
</body>
</html>開発者が辞書オブジェクトをシームレスに操作できるようにするDataDictionaryオブジェクトに関連付けられたさまざまなメソッドがあります。
メソッドあり
Exist Methodは、ユーザーがキーと値のペアが存在するかどうかを確認するのに役立ちます。
object.Exists(key)パラメータ説明
- Object 、必須パラメーター。 これは、辞書オブジェクトの名前を表します。
- キー、必須パラメータ。 これは、ディクショナリオブジェクトの値を表します。
例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim d, msg ' Create some variables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Apple" ' Add some keys and items.
d.Add "b", "BlueTooth"
d.Add "c", "C++"
If d.Exists("c") Then
msgbox "Specified key exists."
Else
msgbox "Specified key doesn't exist."
End If
</script>
</body>
</html>ファイルを.HTMLとして保存し、IEで上記のスクリプトを実行すると、メッセージボックスに次のメッセージが表示されます。
Specified key exists.アイテムメソッド
Itemsメソッドは、データディクショナリオブジェクトのキーと値のペアに格納されている値を取得するのに役立ちます。
object.Items( )パラメータ説明
- Object 、必須パラメーター。 これは、辞書オブジェクトの名前を表します。
例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim obj_datadict ' Create a variable.
Set obj_datadict = CreateObject("Scripting.Dictionary")
obj_datadict.Add "a", "Apple" ' Add some keys and items.
obj_datadict.Add "b", "Bluetooth"
obj_datadict.Add "c", "C++"
a = obj_datadict.items
msgbox a(0)
msgbox a(2)
</script>
</body>
</html>ファイルを.HTMLとして保存し、IEで上記のスクリプトを実行すると、メッセージボックスに次のメッセージが表示されます。
Apple
C++キー方式
object.Keys( )パラメータ説明
- Object 、必須パラメーター。 これは、辞書オブジェクトの名前を表します。
例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim obj_datadict ' Create a variable.
Set obj_datadict = CreateObject("Scripting.Dictionary")
obj_datadict.Add "a", "Apple" ' Add some keys and items.
obj_datadict.Add "b", "Bluetooth"
obj_datadict.Add "c", "C++"
a = obj_datadict.Keys
msgbox a(0)
msgbox a(2)
</script>
</body>
</html>ファイルを.HTMLとして保存し、IEで上記のスクリプトを実行すると、メッセージボックスに次のメッセージが表示されます。
a
cメソッドを削除
object.Remove(key)パラメータ説明
- Object 、必須パラメーター。 これは、辞書オブジェクトの名前を表します。
- キー、必須パラメータ。 これは、辞書オブジェクトから削除する必要があるキーと値のペアを表します。
例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim obj_datadict ' Create a variable.
Set obj_datadict = CreateObject("Scripting.Dictionary")
obj_datadict.Add "a", "Apple" ' Add some keys and items.
obj_datadict.Add "b", "Bluetooth"
obj_datadict.Add "c", "C++"
a = obj_datadict.Keys
msgbox a(0)
msgbox a(2)
obj_datadict.remove("b") 'The key value pair of "b" is removed'
</script>
</body>
</html>ファイルを.HTMLとして保存し、IEで上記のスクリプトを実行すると、メッセージボックスに次のメッセージが表示されます。
a
cすべてのメソッドを削除
object.RemoveAll()パラメータ説明
- Object 、必須パラメーター。 これは、辞書オブジェクトの名前を表します。
例
<!DOCTYPE html>
<html>
<body>
<script language = "vbscript" type = "text/vbscript">
Dim obj_datadict ' Create a variable.
Set obj_datadict = CreateObject("Scripting.Dictionary")
obj_datadict.Add "a", "Apple" ' Add some keys and items.
obj_datadict.Add "b", "Bluetooth"
obj_datadict.Add "c", "C++"
a = obj_datadict.Keys
msgbox a(0)
msgbox a(2)
obj_datadict.removeall
</script>
</body>
</html>