• 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 @ Creating a Dictionary Object

    0        '--- Creating a dictionary object
    0        Set oDict = CreateObject("Scripting.Dictionary")
    0        '--- Adding items to dictionary
    0        oDict.Add "Name", "GAReddy"
    0        oDict.Add "Address", "Hyderabad"
    0        oDict.Add "Phone", "0123456789"
    0        oDict.Add "Demo", "QTP"
    0        oDict.Add "Blog", "QuickTestQTP"
    0        oDict.Add "BlogURL", "Http://QuickTestQTP.BlogSpot.com/"
    0        '--- Looping the Collection
    0        For Each vKey In oDict
    0        sItem = oDict.Item(vKey)
    0        sMsg = sMsg & sItem & vbCrLf
    0        Next
    0        MsgBox sMsg

    Reactions:

    QTP @ Dictionary Object > Creating a Dictionary Object


    QTP @ Creating a Dictionary Object

    0        '--- Creating a dictionary object
    0        Set oDict = CreateObject("Scripting.Dictionary")
    0        '--- Adding items to dictionary
    0        oDict.Add "Name", "GAReddy"
    0        oDict.Add "Address", "Hyderabad"
    0        oDict.Add "Phone", "0123456789"
    0        oDict.Add "Demo", "QTP"
    0        oDict.Add "Blog", "QuickTestQTP"
    0        oDict.Add "BlogURL", "Http://QuickTestQTP.BlogSpot.com/"
    0        '--- Looping the Collection
    0        For Each vKey In oDict
    0        sItem = oDict.Item(vKey)
    0        sMsg = sMsg & sItem & vbCrLf
    0        Next
    0        MsgBox sMsg