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

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

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