vb script for reverse of an array?

[dipashri]

How to write a vb script for reverse of an array(reversing an array)?

[supputuri]

below is the snippet which will give you the basic idea.

Code:

a = Array("a","b","c")

i = 0
For x = ubound(a) to 0 Step-1
    ReDim preserve b(i)
    b(i) = a(x)
    i= i+1
Next
msgbox "your array items" & join(a)
msgbox "Reservese items" &join(b)

did not following the coding standards... it's a raw code.

[pranikgarg]

Hi,

Here is one more method:

Code:

Sub Reverse( ByRef myArray )
    Dim i, ArrCount , HalfArrCount , strHolder
    ArrCount = UBound(a)
    HalfArrCount = Int(ArrCount/2)

    For i = 0 to HalfArrCount Step 1
        strHolder= a(i)
        a(i) = a(ArrCount-1)
        a(ArrCount-1) = strHolder
    Next
End Sub

Try this...