• RSS
  • Facebook
  • Twitter

One Center for all the Testing Need. OneTestingCenter is for all, for all QA, for all Automation. Automation is easy, fun and enriching experience. Happy Learning and Happy Testing!

  • Access to All QA

    At OneTestingCenter, you find lots of books,articles,blogs and detailed guides. Everyone has access to QA. Happy Learning, Happy Testing.

  • Global Trainings

    All the QA/Auotmation trainings are available at OneTestingCenter. QA, Automation, QTP/UFT, Selenium, LoadRunner, QC/ALM, Appium...

  • Automation Learning Fun

    Technology is always evolving. Automation is always challenging. To be frank, Automation is fun, enthusiastic and enrching experience.


    QTP @ Dictionary Object >> KeyExists

    0        '##############################################
    0        ' Dictionary Object >> KeyExistsDemo
    0        '##############################################
    0        Print "##############################################"
    0        Print " Dictionary Object >> KeyExistsDemo"
    0        Print "##############################################"
    0        Function KeyExistsDemo()
    0        '   Dim oDict, msg   ' 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           If oDict.Exists(" Learner2 ") Then
    0              msg = "Specified key exists."
    0           Else
    0              msg = "Specified key doesn't exist."
    0           End If
    0           KeyExistsDemo = msg
    0        End Function

    Reactions:

    QTP @ Dictionary Object >> KeyExists


    QTP @ Dictionary Object >> KeyExists

    0        '##############################################
    0        ' Dictionary Object >> KeyExistsDemo
    0        '##############################################
    0        Print "##############################################"
    0        Print " Dictionary Object >> KeyExistsDemo"
    0        Print "##############################################"
    0        Function KeyExistsDemo()
    0        '   Dim oDict, msg   ' 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           If oDict.Exists(" Learner2 ") Then
    0              msg = "Specified key exists."
    0           Else
    0              msg = "Specified key doesn't exist."
    0           End If
    0           KeyExistsDemo = msg
    0        End Function