QTP Training
VB Script Objects
************************************************
Visit:
[Link]
for QTP Scripts and Other Info
************************************************
Dictionary Object
Dictionary Object that stores data key, item pairs.
A Dictionary object is the equivalent of a PERL associative array/Hash
Variable. Items can be any form of data, and are stored in the array.
Each item is associated with a unique key. The key is used to retrieve
an individual item and is usually an integer or a string, but can be
anything except an array.
Creating a Dictionary Object:
Set objDictionary = CreateObject("[Link]")
Dictionary Objects Methods:
Add Method
Adds a key and item pair to a Dictionary object
Exists Method
Returns true if a specified key exists in the Dictionary object, false if it
does not.
gcreddy 1
QTP Training
Items Method
Returns an array containing all the items in a Dictionary object.
Keys Method
Returns an array containing all existing keys in a Dictionary object.
Remove Method
Removes a key, item pair from a Dictionary object.
RemoveAll Method
The RemoveAll method removes all key, item pairs from a Dictionary
object.
Example:
Dim cities
Set cities = CreateObject("[Link]")
[Link] "h", "Hyderabad"
[Link] "b", "Bangalore"
[Link] "c", "Chennai"
Dictionary Objects Properties:
Count Property
Returns the number of items in a collection or Dictionary object. Read-
only.
CompareMode Property
Sets and returns the comparison mode for comparing string keys in a
Dictionary object.
Key Property
Sets a key in a Dictionary object.
Item Property
Sets or returns an item for a specified key in a Dictionary object. For
collections, returns an item based on the specified key. Read/write.
gcreddy 2
QTP Training
Examples:
1) add Elements AddDictionary
Set objDictionary = CreateObject("[Link]")
[Link] "Printer 1", "Printing"
[Link] "Printer 2", "Offline"
[Link] "Printer 3", "Printing"
2) Delete All Elements fromDictionary
Set objDictionary = CreateObject("[Link]")
[Link] "Printer 1", "Printing"
[Link] "Printer 2", "Offline"
[Link] "Printer 3", "Printing"
colKeys = [Link]
[Link] "First run: "
For Each strKey in colKeys
[Link] strKey
Next
[Link]
colKeys = [Link]
[Link] VbCrLf & "Second run: "
For Each strKey in colKeys
[Link] strKey
Next
3) Delete One Element from a Dictionary
Set objDictionary = CreateObject("[Link]")
[Link] "Printer 1", "Printing"
[Link] "Printer 2", "Offline"
[Link] "Printer 3", "Printing"
gcreddy 3
QTP Training
colKeys = [Link]
[Link] "First run: "
For Each strKey in colKeys
[Link] strKey
Next
[Link]("Printer 2")
colKeys = [Link]
[Link] VbCrLf & "Second run: "
For Each strKey in colKeys
[Link] strKey
Next
4) List the Number of Items in a Dictionary
Set objDictionary = CreateObject("[Link]")
[Link] "Printer 1", "Printing"
[Link] "Printer 2", "Offline"
[Link] "Printer 3", "Printing"
[Link] [Link]
5) Verify the Existence of a Dictionary Key
Set objDictionary = CreateObject("[Link]")
[Link] "Printer 1", "Printing"
[Link] "Printer 2", "Offline"
[Link] "Printer 3", "Printing"
If [Link]("Printer 4") Then
[Link] "Printer 4 is in the Dictionary."
Else
[Link] "Printer 4 is not in the Dictionary."
End If
gcreddy 4
