QTP @ Dictionary Object >> Remove Method

QTP @ Dictionary Object >> Remove

0        '##############################################

0        ' Dictionary Object >> Remove

0        '##############################################

0        Print "##############################################"

0        Print " Dictionary Object >> Remove"

0        Print "##############################################"

0        'Remove

0        'Dim a, d   ' Create some variables.

0        Set oDict = CreateObject("Scripting.Dictionary")

0        oDict.Add "Subject", "QuickTestQTP"   ' Add some keys and items.

0        oDict.Add "Teacher", "GAReddy"

0        oDict.Add "Learner1", "SomeBody"

0        oDict.Add "Learner2", "SomeBodyElse"

0        oDict.Remove("Learner2")   ' Remove Learner2 pair.

0         

0        For each ditem in oDict

0                        Print oDict.Item(ditem)

0         Next