• 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 >> Items

    0        '##############################################
    0        ' Dictionary Object >> Items
    0        '##############################################
    0        Print "##############################################"
    0        Print " Dictionary Object >> Items"
    0        Print "##############################################"
    0        'Items
    0        Call DictItemsDemo()
    0        Print DictItemsDemo
    0        MsgBox DictItemsDemo()
    0        Function DictItemsDemo()
    0           Dim a, oDict, i, s   ' 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            a = oDict.Items   ' Get the items.
    0           For i = 0 To oDict.Count -1 ' Iterate the array.
    0              s = s & a(i) & vbNewLine ' Create return string.
    0           Next
    0           DictItemsDemo = s
    0        End Function
    Reactions:

    QTP @ Dictionary Object >> Items


    QTP @ Dictionary Object >> Items

    0        '##############################################
    0        ' Dictionary Object >> Items
    0        '##############################################
    0        Print "##############################################"
    0        Print " Dictionary Object >> Items"
    0        Print "##############################################"
    0        'Items
    0        Call DictItemsDemo()
    0        Print DictItemsDemo
    0        MsgBox DictItemsDemo()
    0        Function DictItemsDemo()
    0           Dim a, oDict, i, s   ' 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            a = oDict.Items   ' Get the items.
    0           For i = 0 To oDict.Count -1 ' Iterate the array.
    0              s = s & a(i) & vbNewLine ' Create return string.
    0           Next
    0           DictItemsDemo = s
    0        End Function