topic Reverse Array (yarra?) in VBA Forum

Reverse Array (yarra?)

Anonymous — Wed, 14 Aug 2002 04:24:02 GMT

I have a quick question - In a VBA routine - I have an array of an undetermined amount, could be two items or twenty items. what I think I want to do is to reverse the order they are in. i.e. (1, 2, 3, 4) becomes (4, 3, 2, 1). Is there a SIMPLE way to do this?? The size of the array is based on the user pressing the "ADD" command button, which redimensions the array. Any help would be greatly appreciated.
Thanks
Dave. K

Re: Reverse Array (yarra?)

Anonymous — Wed, 14 Aug 2002 06:43:59 GMT

Here's a way I have done it, there may be something
more efficient out there?

Sub Test()
Dim sArray(5) As
String
Dim vTemp As Variant
Dim i As Integer

sArray(0) = "A"
sArray(1) = "B"
sArray(2) =
"C"
sArray(3) = "D"
sArray(4) = "E"
sArray(5) =
"F"

Do
    vTemp =
sArray(i)
    sArray(i) = sArray(UBound(sArray) -
i)
    sArray(UBound(sArray) - i) =
vTemp
    i = i + 1
Loop Until i = (UBound(sArray) +
(UBound(sArray) Mod 2)) / 2

For i = LBound(sArray) To
UBound(sArray)
Debug.Print sArray(i)

Next

End Sub

Regards,

Jacob Dinardi

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"KingCAD" <
href="mailto:dkingsley@schneiderequip.com">dkingsley@schneiderequip.com>
wrote in message
href="news:f102de4.-1@WebX.maYIadrTaRb">news:f102de4.-1@WebX.maYIadrTaRb...
I
have a quick question - In a VBA routine - I have an array of an undetermined
amount, could be two items or twenty items. what I think I want to do is to
reverse the order they are in. i.e. (1, 2, 3, 4) becomes (4, 3, 2, 1). Is
there a SIMPLE way to do this?? The size of the array is based on the user
pressing the "ADD" command button, which redimensions the array. Any help
would be greatly appreciated.
Thanks
Dave. K

Re:

Anonymous — Thu, 15 Aug 2002 03:53:05 GMT

Thanks, I'll give that a try. Looks like it will do the trick, But I sure wish there was something a little simpler. In LISP all I need do is "(reverse LIST)" Oh well I guess if it was easy everybody'd be writing programs!
SEEYA!

Dave. K

Re:

Anonymous — Thu, 15 Aug 2002 06:07:46 GMT

It would be nice to have a built in function, but
this is pretty simple, 6 lines of code to actually do the work... you can make
your own function and reuse it.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"KingCAD" <
href="mailto:dkingsley@schneiderequip.com">dkingsley@schneiderequip.com>
wrote in message
href="news:f102de4.1@WebX.maYIadrTaRb">news:f102de4.1@WebX.maYIadrTaRb...
Thanks,
I'll give that a try. Looks like it will do the trick, But I sure wish there
was something a little simpler. In LISP all I need do is "(reverse LIST)" Oh
well I guess if it was easy everybody'd be writing programs!
SEEYA!

Dave. K

Re: Reverse Array (yarra?)

Anonymous — Thu, 15 Aug 2002 13:30:07 GMT

Instead of reversing the array, just step thru it
backwards.

for i = ubound(myArray) to lbound(myArray)
-1

'do your stuff

next i
--
Bobby C. Jones

href="http://www.AcadX.com">www.AcadX.com

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"KingCAD" <
href="mailto:dkingsley@schneiderequip.com">dkingsley@schneiderequip.com>
wrote in message
href="news:f102de4.-1@WebX.maYIadrTaRb">news:f102de4.-1@WebX.maYIadrTaRb...
I
have a quick question - In a VBA routine - I have an array of an undetermined
amount, could be two items or twenty items. what I think I want to do is to
reverse the order they are in. i.e. (1, 2, 3, 4) becomes (4, 3, 2, 1). Is
there a SIMPLE way to do this?? The size of the array is based on the user
pressing the "ADD" command button, which redimensions the array. Any help
would be greatly appreciated.
Thanks
Dave. K

Re:

Anonymous — Thu, 15 Aug 2002 13:32:26 GMT

Oops, got a little quick on the draw, that's:

for i = ubound(myArray) to lbound(myArray) Step -1

"Bobby C. Jones" wrote in message
news:9B4D4013B2CB55C9153D43A78C6C6E0D@in.WebX.maYIadrTaRb...
Instead of reversing the array, just step thru it backwards.

for i = ubound(myArray) to lbound(myArray) -1
'do your stuff
next i
--
Bobby C. Jones
www.AcadX.com
"KingCAD" wrote in message
news:f102de4.-1@WebX.maYIadrTaRb...
I have a quick question - In a VBA routine - I have an array of an
undetermined amount, could be two items or twenty items. what I think I want
to do is to reverse the order they are in. i.e. (1, 2, 3, 4) becomes (4, 3,
2, 1). Is there a SIMPLE way to do this?? The size of the array is based on
the user pressing the "ADD" command button, which redimensions the array.
Any help would be greatly appreciated.
Thanks
Dave. K