Dios,…. este hombre tiene el mejor directo de la historia….
jeje los de Magic son unos jachondos, y hasta en magic sale la censura, con la famosa edición unglued
|
|
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
Vía GranAngular (cada día me gusta mas este blog, gran trabajo)
Lo que son para mi las verdades Geeks, esas que son irrefutables ;)
- Los passwords son como la ropa interior. No debes dejarlos por ahí tirados donde puedan verlos. Debes cambiarlos con regularidad. Y jamás debes prestárselos a desconocidos.
- El ordenador te permite producir errores más rápidamente que cualquier otra invención humana – con la única excepción de las pistolas y el tequila.
- Hoy en día programar es una carrera entre los ingenieros intentando hacer software mejor y más a prueba de errores idiotas, y del Universo intentando producir idiotas mejores y más a prueba de todo. Por el momento, el Universo gana.
- Windows es multitarea: te jode, te putea, y te ataca los nervios.
- Me gustaría cambiar el mundo, pero no me dieron el código fuente.
- Las chicas son como los dominios de Internet: las que me gustan ya están cogidas.
- ¿ Quién es ese tal General Failure y por qué está leyendo mi disco ?
- Mentira número 1 de la informática: “Nunca llenarás ese disco duro.”
- Los nerds no son perdedores. Simplemente no son ganadores.
Un nuevo grupo que no suena nada mal, que os parece?
