Itemメソッド

Dictionaryオブジェクト内の指定されたキーのアイテムを設定または戻します。コレクションの場合、指定されたキーに基づいてアイテムを戻します。読取り/書込み。

構文

object.Item(key)[ = newitem]

引数:

• Object: 必須。常にコレクションまたはDictionaryオブジェクトの名前。

• Key: 必須。取得または追加するアイテムに関連付けられたキー。

• Newitem: オプション。Dictionaryオブジェクトにのみ使用されます。コレクションには適用されません。指定した場合、newitemは、指定されたキーに関連付けられた新しい値です。

備考

アイテムの変更時にキーが見つからない場合は、指定されたnewitemで新しいキーが作成されます。既存のアイテムを戻そうとしてキーが見つからない場合は、新しいキーが作成され、対応するアイテムは空のままになります。

次の例では、Itemプロパティの使用方法を示します。

例1:

Function GetItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "a", "Athens"
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"

    ' Get the item for key "c".
    GetItem = d.Item("c")
End Function

' Usage
Dim result
result = GetItem()
' Output: Cairo

例2:

Function SetExistingItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "x", "Xenon"
    d.Add "y", "Yttrium"
    d.Add "z", "Zirconium"

    ' Set a new item for key "y".
    d.Item("y") = "Yosemite"

    ' Get the item for key "y".
    SetExistingItem = d.Item("y")
End Function

' Usage
Dim result
result = SetExistingItem()
' Output: Yosemite

例3:

Function AddNewItem
    Dim d   ' Create some variables.
    Set d = CreateObject("Scripting.Dictionary")

    ' Add some keys and items.
    d.Add "m", "Moscow"
    d.Add "n", "New York"
    d.Add "t", "Tokyo"

    ' Attempt to get an item for a non-existing key and set a new item.
    d.Item("p") = "Paris"

    ' Get the item for the newly added key "p".
    AddNewItem = d.Item("p")
End Function

' Usage
Dim result
result = AddNewItem()
' Output: Paris