vb script for reverse of an array?

vb script for reverse of an array? - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: vb script for reverse of an array? (/Thread-vb-script-for-reverse-of-an-array)

vb script for reverse of an array? - dipashri - 01-24-2014

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

RE: vb script for reverse of an array? - supputuri - 01-26-2014

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.

RE: vb script for reverse of an array? - pranikgarg - 01-27-2014

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