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>
「https://www.finddevguides.com/index.php?title=Vbscript-dictionary-objects&oldid=33085」から取得
Powered by MediaWiki