VB Script Objects

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 objectExists MethodReturns true if a specified key exists in the Dictionary object, false if it does not.Items MethodReturns an array containing all the items in a Dictionary object.Keys MethodReturns an array containing all existing keys in a Dictionary object.Remove MethodRemoves a key, item pair from a Dictionary object. RemoveAll MethodThe RemoveAll method removes all key, item pairs from a Dictionary object. Example:Dim citiesSet cities = CreateObject("Scripting.Dictionary")cities.Add "h", "Hyderabad"cities.Add "b", "Bangalore"cities.Add "c", "Chennai"Dictionary Objects Properties:Count PropertyReturns the number of items in a collection or Dictionary object. Read-only. CompareMode PropertySets and returns the comparison mode for comparing string keys in a Dictionary object.Key PropertySets a key in a Dictionary object.Item PropertySets or returns an item for a specified key in a Dictionary object. For collections, returns an item based on the specified key. Read/write.  Examples:1) add ElementsAddDictionary SetobjDictionary=CreateObject("Scripting.Dictionary")objDictionary.Add"Printer1","Printing"objDictionary.Add"Printer2","Offline"objDictionary.Add"Printer3","Printing" 2) Delete All Elements fromDictionarySetobjDictionary=CreateObject("Scripting.Dictionary")objDictionary.Add"Printer1","Printing"objDictionary.Add"Printer2","Offline"objDictionary.Add"Printer3","Printing"colKeys=objDictionary.KeysWscript.Echo"Firstrun:"ForEachstrKeyincolKeysWscript.EchostrKeyNextobjDictionary.RemoveAllcolKeys=objDictionary.KeysWscript.EchoVbCrLf&"Secondrun:"ForEachstrKeyincolKeysWscript.EchostrKeyNext 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" 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 DictionarySetobjDictionary=CreateObject("Scripting.Dictionary")objDictionary.Add"Printer1","Printing"objDictionary.Add"Printer2","Offline"objDictionary.Add"Printer3","Printing"Wscript.EchoobjDictionary.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 QTP Training 4 gcreddy