Page 1 sur 1

Moteur tri de tableau ?

Publié : dim. 26/août/2012 13:26
par Robrock55
Bonjour à tous !

Pour un programme que je vais prochainement développer, je serais amener à trier des arrays selon un nombre ou par ordre alphabétique si ce dernier contient des chaines de caractères.
Alors finalement, je me suis dis que j'allais faire 4 procédures, une pour les types natifs numériques, une pour les char, une pour les string et une pour les structures.

Seulement voilà, si jamais un tel "moteur" existe déjà, je pense que je m'abstiendrais de perdre du temps et j'apprendrais beaucoup de chose je pense :)
J'ai recherché bien évidemment, mais je n'ai pas trouvé. Je n'ai peut-être pas utilisé le bon terme et sur le forum anglais j'ai peur que mes traductions soit à moitié foireuse x)

Donc si vous pouviez m'indiquez si ça existe déjà, je vous serez fort reconnaissant :)

Cordialement

Robrock

Re: Moteur tri de tableau ?

Publié : dim. 26/août/2012 13:50
par falsam
Exemple avec SortStructuredArray()

Code : Tout sélectionner

;Tri / Sort structure
Structure Potager
    Cle.s
    Nom.s
    Famille.s
EndStructure

Dim MonPanier.Potager(4)

MonPanier(0)\Cle="010910"
MonPanier(0)\Nom="Pomme"
MonPanier(0)\Famille="Fruit"

MonPanier(1)\Cle="090801"
MonPanier(1)\Nom="Concombre"
MonPanier(1)\Famille="Legume"

MonPanier(2)\Cle="010909"
MonPanier(2)\Nom="Peche"
MonPanier(2)\Famille="Fruit"

MonPanier(3)\Cle="021010"
MonPanier(3)\Nom="Tomate"
MonPanier(3)\Famille="Legume"

MonPanier(4)\Cle="010710"
MonPanier(4)\Nom="Abricot"
MonPanier(4)\Famille="Fuit"

;Tri / Sort Structure
SortStructuredArray(MonPanier(), #PB_Sort_Ascending|#PB_Sort_NoCase, OffsetOf(Potager\Cle), #PB_Sort_String)

;Test
For i=0 To 4
  Debug Monpanier(i)\Cle
Next  

Re: Moteur tri de tableau ?

Publié : lun. 27/août/2012 12:12
par Robrock55
Impeccable ! Merci pour l'info ;)