QTP @ Dictionary Object > Creating a Dictionary Object

QTP @ Dictionary Object > Creating a Dictionary Object

QTP @ Creating a Dictionary Object

0        '--- Creating a dictionary object

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

0        '--- Adding items to dictionary

0        oDict.Add "Name", "GAReddy"

0        oDict.Add "Address", "Hyderabad"

0        oDict.Add "Phone", "0123456789"

0        oDict.Add "Demo", "QTP"

0        oDict.Add "Blog", "QuickTestQTP"

0        oDict.Add "BlogURL", "Http://QuickTestQTP.BlogSpot.com/"

0        '--- Looping the Collection

0        For Each vKey In oDict

0        sItem = oDict.Item(vKey)

0        sMsg = sMsg & sItem & vbCrLf

0        Next

0        MsgBox sMsg

Posted in: QTP - Dictionary Object - Creating a Dictionary Object