VBScriptでDictionaryを活用する方法 – 基本から応用まで解説

Dictionaryとは？

Dictionaryは、VBScriptにおけるデータの格納とアクセスを効率化するためのオブジェクトです。

Dictionaryは「キー」と「値」のペアを保存し、キーを使って値を迅速に検索することができます。

これは、データベースのように大量のデータを扱う場合や、重複を避けつつデータを効率的に管理する場合に非常に有用です。

Dictionaryオブジェクトの基本操作

VBScriptでDictionaryを使うには、まずDictionaryオブジェクトを作成する必要があります。次に、キーと値のペアを追加し、操作します。以下に基本的な操作方法を示します。

Dictionaryの作成

まずは、Dictionaryオブジェクトを作成します。これはCreateObject関数を使用して行います。

Dim dict
Set dict = CreateObject("Scripting.Dictionary")

このコードは、新しいDictionaryオブジェクトを作成し、それを変数dictに割り当てます。

キーと値の追加

Dictionaryにキーと値のペアを追加するには、Addメソッドを使用します。

dict.Add "Key1", "Value1"
dict.Add "Key2", "Value2"

上記のコードでは、”Key1″というキーに”Value1″という値が、”Key2″には”Value2″が格納されます。

値の取得

キーを使って値を取得するには、以下のようにします。

Dim val
val = dict("Key1")
WScript.Echo val  ' 出力: Value1

このように、キーを指定することで対応する値を簡単に取得できます。

キーと値の存在確認

Dictionaryに特定のキーや値が存在するかを確認するには、Existsメソッドを使用します。

If dict.Exists("Key1") Then
    WScript.Echo "Key1は存在します"
Else
    WScript.Echo "Key1は存在しません"
End If

Existsメソッドは、指定されたキーが存在する場合にTrueを返し、存在しない場合はFalseを返します。

キーや値の削除

Dictionaryからキーとその対応する値を削除するには、Removeメソッドを使用します。

dict.Remove("Key1")

このコードは、”Key1″とその対応する値をDictionaryから削除します。

すべてのキーと値のクリア

Dictionary内のすべてのキーと値をクリアするには、RemoveAllメソッドを使います。

dict.RemoveAll

このメソッドを使うと、Dictionaryが空になります。

Dictionaryのキーと値をループで取得

Dictionaryに格納されているすべてのキーや値を取得したい場合、For Eachループを使うと便利です。

Dim key

For Each key In dict.Keys
    WScript.Echo "Key: " & key & ", Value: " & dict(key)
Next

このコードは、Dictionary内のすべてのキーと対応する値を出力します。

Dictionaryの応用

Dictionaryは、キーと値のペアを効率的に管理できるため、実際のシナリオで非常に役立ちます。

例えば、ユーザーの情報を管理する際に、ユーザーIDをキーとして名前やメールアドレスを値として格納することができます。

また、ログ解析などでIPアドレスごとのアクセス数を集計する際にも便利です。

実践例：商品リストの管理

ここで、Dictionaryを使った実践的な例を見てみましょう。商品名とその価格を管理する簡単なスクリプトです。

Dim products
Set products = CreateObject("Scripting.Dictionary")

products.Add "Apple", 120
products.Add "Banana", 60
products.Add "Orange", 80

WScript.Echo "商品リスト:"
For Each product In products.Keys
    WScript.Echo product & ": " & products(product) & "円"
Next

' 商品の価格を更新する
products("Apple") = 130
WScript.Echo "Appleの新価格: " & products("Apple") & "円"

このスクリプトでは、3つの商品とその価格をDictionaryに追加し、それをループで出力しています。また、特定の商品（ここでは”Apple”）の価格を更新する例も示しています。

演習問題

学んだ内容を基に、以下の演習問題を解いてみましょう。

演習1：Dictionaryを使った会員管理システム

以下の条件に基づいて、会員の名前とIDを管理するスクリプトを作成してください。

• キーとして会員ID（整数）を使用し、値として会員名（文字列）を格納します。
• 3名の会員情報を追加してください。
• 追加した会員情報をすべて表示してください。
• 会員ID “2” の会員名を “山田太郎” に変更してください。
• 変更後の会員情報を再度表示してください。

Dim members
Set members = CreateObject("Scripting.Dictionary")

members.Add 1, "佐藤花子"
members.Add 2, "田中一郎"
members.Add 3, "鈴木二郎"

WScript.Echo "会員リスト:"
For Each id In members.Keys
    WScript.Echo "ID: " & id & ", 名前: " & members(id)
Next

' ID 2 の会員名を変更する
members(2) = "山田太郎"

WScript.Echo "変更後の会員リスト:"
For Each id In members.Keys
    WScript.Echo "ID: " & id & ", 名前: " & members(id)
Next

演習2：商品の在庫管理

以下の条件に基づいて、商品の名前と在庫数を管理するスクリプトを作成してください。

• キーとして商品名（文字列）を使用し、値として在庫数（整数）を格納します。
• 5種類の商品を追加し、それぞれの在庫数を設定してください。
• 商品名が “Pencil” の在庫数を 0 に設定してください。
• 在庫が 0 の商品をリストから削除してください。
• 最後に、残った商品の在庫数をすべて表示してください。

Dim inventory
Set inventory = CreateObject("Scripting.Dictionary")

inventory.Add "Pen", 20
inventory.Add "Notebook", 50
inventory.Add "Eraser", 15
inventory.Add "Pencil", 10
inventory.Add "Marker", 5

' "Pencil" の在庫を 0 に設定
inventory("Pencil") = 0

' 在庫が 0 の商品を削除
For Each item In inventory.Keys
    If inventory(item) = 0 Then
        inventory.Remove(item)
    End If
Next

WScript.Echo "在庫がある商品のリスト:"
For Each item In inventory.Keys
    WScript.Echo item & ": " & inventory(item) & "個"
Next

まとめ

この記事では、VBScriptのDictionaryオブジェクトの基本的な操作方法と、それを活用した実践的な例を紹介しました。

Dictionaryを使うことで、データの管理や操作が非常に効率的に行えるようになります。この記事で学んだ内容を元に、さまざまなシナリオでDictionaryを活用してみてください。

これで、VBScriptでのDictionaryの利用についての基本的な知識が身についたはずです。演習問題を通じて、実際のスクリプト作成にも挑戦してみましょう。