Deambulando

Una función que he desarrollado, supongo que muy útil, se le pasa una matriz, el campo por el que lo queremos ordenar, y el orden, et tachán!!!

uso: matriz=orderMatrixBy(matriz,1,”asc”)

function orderMatrixBy(matriz,campo,orden)’se pasa una matriz, el campoa ordenar, y el tipo de orden, y nos devuelve el array ordenado!!

if isarray(matriz)=true and isnumeric(campo)=true then
dim i,j,aux,total,totalCampos
total=ubound(matriz,2)-1′total registros a recorrer, el -1 es por que se evita a llegar hasta el ultimo
totalCampos=Ubound(matriz, 1)’total de campos
redim aux(totalCampos)’el vector auxiliar para guardar la posicion de la matriz
dim desordenado:desordenado=true

if cint(campo)<=totalCampos then’si el campo que se le pasa es menor que o igual al total de campos

while desordenado’mientras este desordenado….
desordenado=false’le decimos que se ha ordenado

for i= 0 to total’recorremos todo el array
if (orden=”asc” and matriz(campo,i)>matriz(campo,i+1)) or (orden=”desc” and matriz(campo,i)<matriz(campo,i +1)) then’si se tiene que ordenar
for J = 0 to totalCampos’movemos toda la posicion de la matriz a un vector auxilias
aux(j)=matriz(j,i)
next

for J = 0 to totalCampos’la posicion + 1 a la anterior
matriz(j,i)=matriz(j,i+1)
                       next

for J = 0 to totalCampos’la posicion anterior guardada en aux en la posicion mas 1
matriz(j,i+1)=aux(j)
next
desordenado=true’sigue desordenado
end if
next
wend

end if

redim aux(0)’no lo usaremos mas

end if

orderMatrixBy=matriz’devolvemos la matriz

end function