inverter ordem de uma matriz

[xanburzum 169]

A função invArray inverte a ordem de uma matriz, é retornado uma matriz.

 

code:

<%
Private Function invArray(byVal arrayinput)
	Dim i, ubnd
	Dim newarray()
	ubnd = UBound( arrayinput )
	Redim newarray(ubnd)
	For i = 0 to UBound( arrayinput )
		newarray( ubnd - i ) = arrayinput( i )
	Next
	invArray = newarray
End Function
%>

Para usar:

 

<%
dim itens
for each itens in invArray(  Array( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 )  )
	response.write itens & "<BR>"
next
 ' retorna :
 ' 15
 ' 14
 ' 13
 ' 12
 ' 11
 ' 10
 ' 9
 ' 8
 ' 7
 ' 6
 ' 5
 ' 4
 ' 3
 ' 2
 ' 1
%>

[desisto 0]

ou

 

For i = 2009 To 1980 Step - 1
  response.write i & "<br />"
Next

 

 

 

 

a dica é do jonathandj

[Patrique 0]

o bom da function do Xam é que da pra jogar valores sem ser em ordem diferentemente desta ae desisto, são funções com funcionamento diferentes.

 

[]'s

[desisto 0]

1 caso) 1,3,5,7,9...

 

2 caso) 1,2,3,4,5...

 

nao havia me ligado na sequencia

[xanburzum 169]

isso ae, galera, existem varias formas,,,

para variados porpósitos...

[jrcardozo 4]

mais uma, o processamento é mais rapido pois usa funções nativas diretas. A manipulação por matriz é mais lenta pois tem o ponteiro

listaArray = Array( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
For i = Ubound(listaArray) To Lbound(listaArray) Step - 1
	Response.Write listaArray(i) & "
"
Next