09/06/2005, 07:41
|
| | Fecha de Ingreso: marzo-2005
Mensajes: 1.418
Antigüedad: 19 años, 7 meses Puntos: 9 | |
Función que sirve para ordenar un array, no me acuerdo de que página lo extraje ni quien es el autor, ya uqe hace tiempo que conseguí esta función en la red. Si alguien ha visto esta función en alguna página, que cite el autor y la página asi somos justos.
FUNCTION SortArray(varArray)
For i = UBound(varArray, 2) - 1 To 1 Step - 1
MaxVal = varArray(1, i)
MaxIndex = i
For j = 0 To i
If varArray(1, j) > MaxVal Then
MaxVal = varArray(1, j)
MaxIndex = j
End If
Next
If MaxIndex < i Then
varArray(1, MaxIndex) = varArray(1, i)
varArray(1, i) = MaxVal
End If
Next
END FUNCTION
Con esto se puede probar:
REDIM arrSORT(1, 8)
arrSORT(0,0)= 1
arrSORT(0,1)= 20
arrSORT(0,2)= 49
arrSORT(0,3)= 74
arrSORT(0,4)= 23
arrSORT(0,5)= 73
arrSORT(0,6)= 21
arrSORT(0,7)= 4
arrSORT(1,0)= "Argentina"
arrSORT(1,1)= "Mexico"
arrSORT(1,2)= "Brazil"
arrSORT(1,3)= "España"
arrSORT(1,4)= "Chile"
arrSORT(1,5)= "Guatemala"
arrSORT(1,6)= "Italia"
arrSORT(1,7)= "Groenlandia"
arrSORT(1,8)= "Nicaragua"
Response.write "<TABLE BORDER=1 WIDTH=100% ><TR><TD><B>UNSORTED</B></TD><TD><B>SORTED</B></TD></TR>"
Response.write "<TR><TD>"
FOR i = 0 TO UBOUND(arrSORT,2) - 1
Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(1, i) & "<BR>"
NEXT
Response.write "</TD><TD>"
SortArray arrSORT
FOR i = 0 TO UBOUND(arrSORT,2) - 1
Response.write "<B>arrSORT(" & i & ") value: </B>" & arrSORT(1, i) & "<BR>"
NEXT
Response.write "</TD></TR></TABLE>"
%> |