how to find the ascending order and descending order in array using vbscript

[vijay kanaparthi]

Hi,

how to find the ascending order and  descending order in array using vbscript

--
Thanks & Regards,
  Vijay
   9916686756

[lalit aggarwal]

Hi Vijay,

Do you want to sort an array in ascending or descending order or just check the array whether is it in ascending or descending order?

if you want to sort an array you can write a small code for it like

for ascending order.

For  I = 0 to ubound (array) -1

                For j = I + 1 to ubound (array)

                                If array(i) > array(j) then

                                Temp  = array(i)

                                Array(i) = array(j)

                                Array(j) = temp

                Next

Next

I hope I clears you doubt up to some extend

Regards,

Lalit Aggarwal

9900329906

--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to Mercu...@googlegroups.com
To unsubscribe from this group, send email to
MercuryQTP+...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
 
---
You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mercuryqtp+...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
 
 

[fakruddin baba]

Hi, To check whether the function is in ascending or descending order. you can use below function directly.

Function fn_ValidateArrayOrder(arrInput, strOrderType)
    Dim blnFlag
    blnFlag = False
    Select Case UCase(strOrdertype)
        Case "ASCENDING"
            For i = 0 to Ubound(arrCRAAcntNos)-1
                If StrComp(arrInput(i), arrInput(i+1), 1) = -1 Then
                    blnFlag = True
                End If
            Next
        Case "DESCEDING"
            For i = 0 to Ubound(arrCRAAcntNos)-1
                If StrComp(arrInput(i), arrInput(i+1), 1) = 1 Then
                    blnFlag = True
                End If
            Next
    End Select
    If blnFlag Then
        fn_ValidateArrayOrder = blnFlag
    End If
End Function

Regards,
baba

[fakruddin baba]

Function fn_ValidateArrayOrder(arrInput, strOrderType)
    Dim blnFlag, i