FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ASORT que respete el orden original
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
ASORT que respete el orden original
Posted: Fri Oct 29, 2010 04:43 PM

La idea es que ordene un arreglo de acuerdo a uno de los elementos, pero que si todos ellos tienen el mismo valor, los deje en el mismo orden original. Ejemplo:

aDatos:={{"Juan",10},{"Antonio",10},{"Carlos",10}}
ASORT(aDatos,,,{|A,B|A[2]>B[2]}) //Para que los ordene segun el numero

al hacer esto me regresa:

Carlos 10
Antonio 10
Juan 10

o sea, al tener todos el mismo valor, invierte el orden en que los agregue, como hacer para que en este caso quede como estaba originalmente?

'chas gracias

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com

Continue the discussion