Scribd
Upload
174 views4 pages

VB Script Objects

VB Script Objects; It describes Dictionary object ant Its Methods & Properties with examples. It is useful for QTP Testes as well as web developers.

Uploaded by

G.C.Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
174 views4 pages

VB Script Objects

VB Script Objects; It describes Dictionary object ant Its Methods & Properties with examples. It is useful for QTP Testes as well as web developers.

Uploaded by

G.C.Reddy
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 4

QTP Training

VB Script Objects 
************************************************
Visit:

www.gcreddy.com
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("Scripting.Dictionary") 

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("Scripting.Dictionary")
cities.Add "h", "Hyderabad"
cities.Add "b", "Bangalore"
cities.Add "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("Scripting.Dictionary")

objDictionary.Add "Printer 1", "Printing"   
objDictionary.Add "Printer 2", "Offline"
objDictionary.Add "Printer 3", "Printing"

 2) Delete All Elements fromDictionary

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "Printer 1", "Printing"   
objDictionary.Add "Printer 2", "Offline"
objDictionary.Add "Printer 3", "Printing"
colKeys = objDictionary.Keys

Wscript.Echo "First run: "
For Each strKey in colKeys
    Wscript.Echo strKey
Next

objDictionary.RemoveAll
colKeys = objDictionary.Keys

Wscript.Echo VbCrLf & "Second run: "
For Each strKey in colKeys
    Wscript.Echo strKey
Next

3) Delete One Element from a Dictionary

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "Printer 1", "Printing"  


objDictionary.Add "Printer 2", "Offline"
objDictionary.Add "Printer 3", "Printing"

gcreddy 3
QTP Training

colKeys = objDictionary.Keys

Wscript.Echo "First run: "


For Each strKey in colKeys
    Wscript.Echo strKey
Next

objDictionary.Remove("Printer 2")
colKeys = objDictionary.Keys

Wscript.Echo VbCrLf & "Second run: "


For Each strKey in colKeys
    Wscript.Echo strKey
Next

4) List the Number of Items in a Dictionary

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "Printer 1", "Printing"   
objDictionary.Add "Printer 2", "Offline"
objDictionary.Add "Printer 3", "Printing"
Wscript.Echo objDictionary.Count

5) Verify the Existence of a Dictionary Key

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "Printer 1", "Printing"  


objDictionary.Add "Printer 2", "Offline"
objDictionary.Add "Printer 3", "Printing"

If objDictionary.Exists("Printer 4") Then


    Wscript.Echo "Printer 4 is in the Dictionary."
Else
    Wscript.Echo "Printer 4 is not in the Dictionary."
End If

gcreddy 4

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy