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
