QTP @ Dictionary Object >> Items
QTP @ Dictionary Object >> Items
0 '##############################################
0 ' Dictionary Object >> Items
0 '##############################################
0 Print "##############################################"
0 Print " Dictionary Object >> Items"
0 Print "##############################################"
0 'Items
0 Call DictItemsDemo()
0 Print DictItemsDemo
0 MsgBox DictItemsDemo()
0 Function DictItemsDemo()
0 Dim a, oDict, i, s ' 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 a = oDict.Items ' Get the items.
0 For i = 0 To oDict.Count -1 ' Iterate the array.
0 s = s & a(i) & vbNewLine ' Create return string.
0 Next
0 DictItemsDemo = s
0 End Function
