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


    '*******************************************************
    '*********** ARRAY RELATED LIBRARY FUNCTIONS ***********'
    '*******************************************************
    Print "========================================="
    Print "========================================="
    Dim ArrayToSort(4)
    ArrayToSort(0)="1234"
    ArrayToSort(1) ="4567"
    ArrayToSort(2)="3"
    ArrayToSort(3)="1"
    ArrayToSort(4)="55"

    Print "========================================="
    Print "Before Sorting out -->Array Values are: "
    Print "========================================="
    For k=0 to UBound(ArrayToSort)
    Print  ArrayToSort(k)
    Next
    Print "========================================="
    Print " Sort Order Function Called to sort Array Values : "
    Print " Sort Order Mode is : dsc (DSCENDING order)"
    Print "========================================="
    Call SortODArray(ArrayToSort,"dsc")

    Print "========================================="
    Print "After Sorting out --> Array Values are  : "
    Print "========================================="
    For k=0 to UBound(ArrayToSort)
    Print  ArrayToSort(k)
    Next

    '********************************************************
    ' Author    : G A Reddy
    ' Function  : SortODArray
    ' To sort One Dimensional Array in ascending OR dscending order
    ' PARAMETERS : ArrayToSort (Array to be passed)
    ' SortMode asc (ASCENDING) OR des(FOR DESCENDING)
    '********************************************************

    Function SortODArray(ArrayToSort,SortMode)
      On Error Resume Next   ' Error Handling
      
        Dim iResult, i,j
        Dim iUbound
        Dim sTemp
                    Dim  SortedArray()
      
        SortMode = UCase(SortMode)

        iUbound = UBound(ArrayToSort)
        Redim SortedArray(iUbound)

        For i = 0 To iUbound - 1
          For j = 0 To (iUbound - i-1)
          If Instr(SortMode, "ASC") > 0 then
          If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) < 0 Then
                        sTemp = ArrayToSort(j)
                        ArrayToSort(j) = ArrayToSort(j + 1)
                        ArrayToSort(j + 1) = sTemp
                    End If
                Else
           If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) > 0 Then
                        sTemp = ArrayToSort(j)
                        ArrayToSort(j) = ArrayToSort(j + 1)
                        ArrayToSort(j + 1) = sTemp
                    End If
                End If
            Next
        Next

                    SortODArray = ArrayToSort   
                    ' ArrayToSort - Values are sorted now "

                 If Err.Number > 0 then
                msgbox CStr(err.number) & " " &  Err.Description
         End If

    End Function
    '******************************************************
    '******************************************************
    ' Author      :  G A Reddy
    ' Function   :  CompareArrayValues
    ' Note : Array can have DATA TYPES - DATE, NUMERIC OR TEXT/STRING
    ' So we find out data type in array and compare values to sortout
    ' Return Values : Returns "-1" if val1 < val2, returns "1" if val1 > val2
    '   RETURN "0" if val1 = val2
    '*******************************************************
    Function CompareArrayValues(Val1, Val2)
       On Error Resume Next
      
        Dim FVal,SVal, RVal
        ' FVal= First Value ; SVal=Second Value ; RVal = Return Value
                   
        if (isNumeric(Trim(Val1)) AND isNumeric(Trim(Val2))) then
            FVal = CDbl(Trim(Val1))
            SVal = CDbl(Trim(Val2))
        else
            if (isDate(Trim(Val1)) AND isDate(Trim(Val2))) then
                FVal = CDate(Trim(Val1))
                SVal = CDate(Trim(Val2))
            else
                FVal =  Trim(CSTR(Val1))
                SVal = Trim(CSTR(Val2))
            end if
        end if
       
        RVal=0
            If FVal < SVal then
                RVal = -1
            else
                if FVal > SVal then
                    RVal = 1
                end if
            end if
    CompareArrayValues = RVal

                  If Err.Number > 0 then
                  Msgbox CStr(err.number) & " " &  Err.Description
          End If

    End Function

    '******************************************************
    '******************************************************

    Reactions:

    QTP & ARRAY LIBRARY FUNCTIONS


    '*******************************************************
    '*********** ARRAY RELATED LIBRARY FUNCTIONS ***********'
    '*******************************************************
    Print "========================================="
    Print "========================================="
    Dim ArrayToSort(4)
    ArrayToSort(0)="1234"
    ArrayToSort(1) ="4567"
    ArrayToSort(2)="3"
    ArrayToSort(3)="1"
    ArrayToSort(4)="55"

    Print "========================================="
    Print "Before Sorting out -->Array Values are: "
    Print "========================================="
    For k=0 to UBound(ArrayToSort)
    Print  ArrayToSort(k)
    Next
    Print "========================================="
    Print " Sort Order Function Called to sort Array Values : "
    Print " Sort Order Mode is : dsc (DSCENDING order)"
    Print "========================================="
    Call SortODArray(ArrayToSort,"dsc")

    Print "========================================="
    Print "After Sorting out --> Array Values are  : "
    Print "========================================="
    For k=0 to UBound(ArrayToSort)
    Print  ArrayToSort(k)
    Next

    '********************************************************
    ' Author    : G A Reddy
    ' Function  : SortODArray
    ' To sort One Dimensional Array in ascending OR dscending order
    ' PARAMETERS : ArrayToSort (Array to be passed)
    ' SortMode asc (ASCENDING) OR des(FOR DESCENDING)
    '********************************************************

    Function SortODArray(ArrayToSort,SortMode)
      On Error Resume Next   ' Error Handling
      
        Dim iResult, i,j
        Dim iUbound
        Dim sTemp
                    Dim  SortedArray()
      
        SortMode = UCase(SortMode)

        iUbound = UBound(ArrayToSort)
        Redim SortedArray(iUbound)

        For i = 0 To iUbound - 1
          For j = 0 To (iUbound - i-1)
          If Instr(SortMode, "ASC") > 0 then
          If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) < 0 Then
                        sTemp = ArrayToSort(j)
                        ArrayToSort(j) = ArrayToSort(j + 1)
                        ArrayToSort(j + 1) = sTemp
                    End If
                Else
           If CompareArrayValues(ArrayToSort(j + 1), ArrayToSort(j)) > 0 Then
                        sTemp = ArrayToSort(j)
                        ArrayToSort(j) = ArrayToSort(j + 1)
                        ArrayToSort(j + 1) = sTemp
                    End If
                End If
            Next
        Next

                    SortODArray = ArrayToSort   
                    ' ArrayToSort - Values are sorted now "

                 If Err.Number > 0 then
                msgbox CStr(err.number) & " " &  Err.Description
         End If

    End Function
    '******************************************************
    '******************************************************
    ' Author      :  G A Reddy
    ' Function   :  CompareArrayValues
    ' Note : Array can have DATA TYPES - DATE, NUMERIC OR TEXT/STRING
    ' So we find out data type in array and compare values to sortout
    ' Return Values : Returns "-1" if val1 < val2, returns "1" if val1 > val2
    '   RETURN "0" if val1 = val2
    '*******************************************************
    Function CompareArrayValues(Val1, Val2)
       On Error Resume Next
      
        Dim FVal,SVal, RVal
        ' FVal= First Value ; SVal=Second Value ; RVal = Return Value
                   
        if (isNumeric(Trim(Val1)) AND isNumeric(Trim(Val2))) then
            FVal = CDbl(Trim(Val1))
            SVal = CDbl(Trim(Val2))
        else
            if (isDate(Trim(Val1)) AND isDate(Trim(Val2))) then
                FVal = CDate(Trim(Val1))
                SVal = CDate(Trim(Val2))
            else
                FVal =  Trim(CSTR(Val1))
                SVal = Trim(CSTR(Val2))
            end if
        end if
       
        RVal=0
            If FVal < SVal then
                RVal = -1
            else
                if FVal > SVal then
                    RVal = 1
                end if
            end if
    CompareArrayValues = RVal

                  If Err.Number > 0 then
                  Msgbox CStr(err.number) & " " &  Err.Description
          End If

    End Function

    '******************************************************
    '******************************************************