Tri numérique sur ListBoxRésolu

Question

Existe t'il une possibilité de tri numérique automatique sur une ListBox dont tous les items commencent par des chiffres ?
La fonction sorted ne marche pas car elle classe d'abord tous les chiffres qui commencent par 1 puis tous les chiffres qui commencent par 2 etc. Pas réellement ce que je cherche Hi !
Merci pour l'aide
Gabriel

Cirec · Answer

Salut,

pour que le trie fonctionne il faut ajouter des zéros devant les chiffres

001
002
011

 
@+
Cirec

<hr siz="" />

cs_MAURICIO · Answer

Tiré de ma fonction, partie oú je traite des doubles/Integers:

Lista étant une TStrings

var i, j, small : Integer;

      for i := 0 to Lista.Count - 2 do        
      begin
          small := i;

          smallVal := StrToFloat(Lista[i]);

          for j := i + 1 to Lista.Count - 1 do  
              if StrToFloat(Lista[j]) < smallVal
              then begin
                small := j;
                smallVal := StrToFloat(Lista[j]);
              end;

        if small <> i                           // Permuter 
        then begin
          Str := Lista[i];
          Lista[i] := Lista[small];
          Lista[small] := Str;
        end;

Tu dois juste remplacer StrToFloat() par une fonction qui te renvoie l' integer de l'item!!!
A+

cs_MAURICIO · Answer

Une autre façon serait de trier avant de passer les items dans ta liste. 
Pour cela, tu peux passer par un Record et un Array: 

type
  monRecord=Record
    Valeur: Integer;  // Valeur qui permettra de trouver le plus petit
    MaString; // String qui sera passée dans ta listBox
    Passé: Boolean;  // permet de savoir si on l' a déjá passé dans le listbox 
  end;

Tu déclares un aArray comm suit: 
Array_Items: Array of monRecord;

Ensuite tu remplies Array_Items avec les différents Items. (N' oublie pas le SetLength de l' array). 
"Passé" devra être initialisé à false bien sûr ...

Enfin, tu cherches dans l' array le plus petit (oú Passé = "false") et tu le passes dans ta ListBox. 
N' oublie pas de mettre "Passé" à True. 

A+

Cirec · Answer

@Mauricio:

Ta méthode ne fonctionne que si les Items sont que des chiffres !!!!

Si ses Items contiennent aussi des lettres ... dans ce cas ça plante

Il dit bien "tous les items commencent par des chiffres"
ce qui sous-entend qu'ils contiennent aussi des lettres

Du coup il est plus facile de rajouter des zéros devant 

ps : toutes les méthodes de tries réagissent de la même manière ...
donc pour obtenir un résultat correcte il faut ajouter des zéros 

 
@+
Cirec

<hr siz="" />

cs_MAURICIO · Answer

Dans ma derniere phrase de mon 1er commentaire j' ai écrit: 
"Tu dois juste remplacer StrToFloat() par une fonction qui te renvoie l' integer de l'item!!!"

Mon 2eme commentaire fonctionnerait aussi très bien ...

A+

Cirec · Answer

Pourquoi faire simple quand on peut faire compliqué 

J'avais bien lu ton message 
et j'ai même fait les testes qui s'imposent 

StrToInt (par exemple) te renvoie une belle exception si la chaine contient des lettres !

ce qui implique qu'il faudrait créer une fonction qui récupère que les chiffres ... mais le trie ne sera pas juste puisque les lettres ne seront pas prise en compte !!!!

Alors que le simple fait d'ajouter des zéros en début permet d'utiliser la méthode de trie interne et sans code supplémentaire avec un résultat trier correctement jusqu'au dernier caractère 

 
@+
Cirec

<hr siz="" />

cs_cantador · Answer

çà me fait penser au coup du gars qui veut se faire un diaporama avec ses photos de vacances avec un logiciel tout fait..(photo1, photo2..photo12 etc etc)
et surprise lorsqu'il le lance tout est mélangé !
Alors que si bien sur il se dit tiens j'en ai 999 (il en raté une..) et il nomme ses fichiers :
photo001, photo002, photo047..photo238...photo999.
et là ca va nettement mieux..

cantador

Caribensila · Answer

Salut,

« Qu'il y ait des gens beaucoup plus savants que d'autres n'est pas très intriguant. Ce qui est extraordinaire, et diablement instructif, c'est à quel point deux personnes ayant des connaissances proches peuvent diverger dans la façon dont elles les interprètent. »

C'est vachement enrichissant les gars !  ;)

japee · Answer

Quelle que soit la manière dont on va traiter le problème, dans tous les cas, il va bien falloir une routine pour récupérer le nombre qui se trouve en début d'item et qui détermine le classement de la liste.

Cirec · Answer

@Caribensila:
Le problème n'est pas là ... peut importe de quel manière on interprète la chose ... ce que je soulignai c'est qu'il n'est pas utile de réécrire ce qui existe déjà !!! (la fonction de trie)

@Japee:
Pas forcément ... on peut le prévoir à l'avance 

Soit c'est l'utilisateur qui les rentre dans ce cas on utilise un MaskEdit

Soit c'est le programmeur qui les rentre dans ce cas c'est à lui de les mettre

Il ne reste plus que la machine c'est le seul cas ou il faudrait écrire du code 

ça ne fait que 1 cas sur 3  

Et en plus dans méthode de ce type (ou l'on extrait que les chiffres pour le trie) le résultat risque de ne pas être correcte

01 dca
01 cda
01 acd 

Penses tu que le résultat sera correcte 

Avec la méthode interne on obtiendrait :
01 acd 

01 cda

01 dca

sans réécrire la procédure de trie 

 
@+
Cirec

<hr siz="" />

cs_MAURICIO · Answer

Salut Cirec, 
ta méthode est bonne puisque le chiffre est en début de string. 
Par contre s' il était à la fin,il y aurait un chtit problème...

C' est pour cela qu' en utilisant un Array de type Record on peut ordonner de la manière que l' on veut, même sans montrer les chiffres dans la listBox. 

C' est vrai que c' est plus complexe mais serait 100% réutilisable et cela permet aussi d' ordonner avec d' autres critères que du plus petit au plus grand...

A+

Cirec · Answer

Salut Mauricio: il faut que je regarde ça de plus près ... ou j'ai loupé un truc ou j'y ai rien compris. Mais jusqu'à preuve du contraire une chaine '123 abc' avec n'importe quel StrTo... provoque une erreur de conversion ... non ? et c'est là que je ne comprend pas ta logique : Puisque même si tu arrives à extraire les chiffres le trie ne se fera que sur les chiffres et non sur l'ensemble des caractères En attendant que je teste le code je vous offre une fonction qui ajoute les zéros manquants (uniquement devant) Uses StrUtils; Function LeadingZero(Const S : String; Const Len : Integer = 3): String ; Var PbS : PByte; Cnt : Integer; Begin PbS : = PByte(S); SetLength(Result, Length(S)); Result := S; Cnt := 0; While (PbS^ > 47) And (PbS^ < 58) Do Begin Inc(PbS); Inc(Cnt); End; If (Cnt > 0) And (Cnt < Len) Then Begin Cnt : = ABS(Len - Cnt); SetLength(Result, Length(S) + Cnt); Result := DupeString('0', Cnt) + S; End ; End; Highlighted with Pas2HTML Utilisation : S : String = '12 String'; LeagingZero(S) renvoie '012 String' LeagingZero(S, 5) renvoie '00012 String' LeagingZero(S, 2) renvoie '12 String' @+ Cirec

Cirec · Answer

C'est bien ce que je disais ton code ne fonctionne que si les données sont uniques ... { Voici le contenu de la ListBox 1 zdhr 2 acabd 1 dbdgh 1 abc 11 aabccd 2 aabccd 111 dkfjgu } Procedure SortList(Lista : TStrings); Var i, j, small, smallVal : Integer; Str : String; {Function que j'ai ajouté pour récupérer l'integer} Function MyStrToInt(S : String): Integer; Var PbC : PChar; TmpStr : String; Begin PbC := PChar(S); TmpStr := ''; While (PbC^ In #48..#57) And (PbC^ <> #0) Do Begin TmpStr : = TmpStr + PbC^; Inc(PbC); End; Result := StrToInt(TmpStr); End ; Begin For i : = 0To Lista.Count - 2Do Begin small := i; smallVal := MyStrToInt(Lista[i]); For j : = i + 1To Lista.Count - 1Do If MyStrToInt(Lista[j]) < smallVal Then Begin small := j; smallVal := MyStrToInt(Lista[j]); End ; If small <> i // Permuter Then Begin Str : = Lista[i]; Lista[i] := Lista[small]; Lista[small] := Str; End ; End; End; Procedure TFprincipe.Button7Click(Sender: TObject); Begin SortList(ListBox1.Items); End; Qui donne un résultat incorrecte : 1 zdhr 1 dbdgh 1 abc 2 acabd 2 aabccd 11 aabccd 111 dkfjgu Voici ma solution Procedure TFprincipe.Button8Click(Sender: TObject); Var I : Integer; Begin For I : = 0To ListBox1.Items.Count - 1Do ListBox1.Items[I] := LeadingZero(ListBox1.Items[I], 4); ListBox1.Sorted := True; End ; Court simple et éfficace !!!! Highlighted with Pas2HTML Qui donne un résultat correcte: 001 abc 001 dbdgh 001 zdhr 002 aabccd 002 acabd 011 aabccd 111 dkfjgu Voilà et si tu veux tester avec ton code Change ceci: ARRAY_ADD_ITEM(35, ' Mon item de valeur 35'); ARRAY_ADD_ITEM(18, ' Mon item de valeur 18'); ARRAY_ADD_ITEM(25, ' Mon item de valeur 25'); ARRAY_ADD_ITEM(3, ' Mon item de valeur 3'); ARRAY_ADD_ITEM(999, ' Mon 2 item de valeur 999'); ARRAY_ADD_ITEM(999, ' Mon 1 item de valeur 999'); ARRAY_ADD_ITEM(-6, ' Mon item de valeur -6'); @+ Cirec

cs_MAURICIO · Answer

"C'est bien ce que je disais 
ton code ne fonctionne que si les données sont uniques ...

{ Voici le contenu de la ListBox 
1 zdhr 
2 acabd 
1 dbdgh 
1 abc 
11 aabccd 
2 aabccd 
111 dkfjgu 
}"

Désolé Cirec, mais si tu testes ma source avec ces éléments lá, mes 2 méthodes fonctionnent très bien (c' est la 3ème fois que je te dis que ça marche) ...

A+

cs_MAURICIO · Answer

Tu utilises mal la fonction :
  ARRAY_ADD_ITEM(999, ' Mon 

2



 item de valeur 999');
  ARRAY_ADD_ITEM(999, ' Mon 

1 



item de valeur 999');

Doit être écrit: 
  ARRAY_ADD_ITEM(2, ' Mon item de valeur 2');
  ARRAY_ADD_ITEM(1, ' Mon item de valeur 1');

ou même : 
  ARRAY_ADD_ITEM(2, ' Mon item de valeur deux');
  ARRAY_ADD_ITEM(1, ' Mon item de valeur un');

Cirec · Answer

Je ne vois pas ce qu'il y a de juste la dedans !!!!!!!


En rouge c'est le résultat que tu devrais obtenir 


Alors ... ou ça marche !!!!!


Et non j'utilise pas mal ta fonction 

C'est justement là ou je voulais en venir 
Si j'ai mis 1 et 2 dans le texte avec 999 pour les deux c'est que justement la méthode de trie devrait en tenir compte (ce qu'elle ne fait pas)


Si tes chiffres sont unique alors oui ta méthode fonctionne

Mais si il y a des doublons dans les chiffres ... c'est la pagaille
 
@+
Cirec

<hr siz="" />

Cirec · Answer

Vois plus loin que juste les chiffres du début

un trie se fait sur l'ensemble des données si les premières sont identiques

 
@+
Cirec

<hr siz="" />

cs_f6dqm1 · Answer

Bjr à tous.
Ne vous battez pas pour si peu !
J'avais bien trouvé la méthode de Cirec consistant à mettre tous le nombres au même format à 3 chiffres mais celà devenait contraignant pour les utilisateurs qui saisissent le contenu des items dans une boite de dialogue.
Chaque item est composé de plusieurs champs séparés par des tabulations, le premier champ étant un nombre de longueur quelconque.
WORD possède une possibilité de tri numérique sur ce type de texte en "tableau" et je m'imaginais qu'il y avait peut-être la même possibilité de tri numérique en Delphi sur une ListBox constituée de la même façon.
Je vais prendre mon courage à deux mains.
Bonne journée à tous 
gabriel

cs_MAURICIO · Answer

Bem c' est sûr que ça marche pas, il faut reparamétrer la fonction pour tenir compte d' un autre paramètre qui est le texte (qui pourrait être du texte ou un autre integer d' ailleurs dans ma fonction), elle tient compte que de l'integer dans l' exemple. 

Il faut juste adapter ici:
        else  // *** Ici on compare des integers, mais on peut comparer tout ce que l' on veut *** //
          if Array_Items[i].Value < Array_Items[RESULT].Value
          then RESULT := i;            // Nouveau item plus petit trouvé !!!

Je vois que tu veux à tout prix avoir raison alors que ta fonction ne fonctionne pas si les chiffres sont à la fin et ainsi, tu imposes le visuel de chaque élément. 
A+

Cirec · Answer

Pas de soucis ... on ne se bat pas

Mais c'est toujours difficile de se faire comprendre 
"J'avais bien trouvé la méthode de Cirec consistant à mettre tous le
nombres au même format à 3 chiffres mais celà devenait contraignant
pour les utilisateurs qui saisissent le contenu des items dans une
boite de dialogue.
"

Il n'y a rien de contraignant la dedans !

Il suffit de formater. Ex.

I : Integer = 21;

  Format('%.4d', [I]); Renvoie 0021

 
@+
Cirec

<hr siz="" />

Cirec · Answer

"Je vois que tu veux à tout prix avoir raison alors que ta fonction ne
fonctionne pas si les chiffres sont à la fin et ainsi, tu imposes le
visuel de chaque élément."

La tu deviens ridicule 

On est parti d'une question donnée 
Avec comme élément des chaines à trier qui commencent par des chiffres.
 
J'ai fourni une solution simple et fonctionnel (pour ce cas de figure) 
ce qui n'est pas le cas de la tienne. Il m'a fallut plusieurs messages pour que tu remarques ou ça cloche et maintenant tu m'agresses !!!!

Je pourrai en dire de même sur toi dans ce cas ...
Une fois que l'on ta prouvé que ta méthode n'est pas fiable tu t'en prends a la personne ... mais si tu avais été moins dur de la feuille tu l'aurais remarqué dès le début (c'est ce que je te disais dès mon deuxième message et sans tester) et j'ai quand même fait les testes, sur ton code, pour être sur de ce que j'avançais.

Et c'est toi qui me dit que je veux à tout prix avoir raison  ... 

Je te rappel que c'est toi qui me relançais à chaque fois pour me dire que ton code donne de bon résultat ... il a fallut un exemple visuel pour te convaincre. 

 
@+
Cirec

<hr siz="" />

japee · Answer

Salut les copains,

Hé ben, on dira qu'il y a de la passion dans les échanges... 

Voici la mienne, de routine. Je pense qu'elle répond à la question initialement posée.

Elle répond à ces critères :
- le nombre se trouve au début de la chaîne,
- si plusieurs nombres identiques, classement dans l'ordre alphabétique,
- simplicité d'utilisation, puisque trie directement toute liste descendant de
TStrings, donc utilisable avec TListBox, TComboBox, TMemo, STringList...

Elle ne plante pas sur les chaînes vides et chaînes sans nombre initial.
Je voulais la poster dans les snippets, mais je ne l'ai pas testée à fond et il y a peut-être une faille qui m'aurait échappé.

Vous pouvez vous acharner dessus pour essayer de lui faire cracher ses tripes. 

procedure SortByNumber(const List: TStrings);
const
  NumWidth = 6; // 0..999 999 items
var
  TmpList: TStringList;
  i, j: Integer;
  Tmp, Num: string;
begin
  TmpList := TStringList.Create;
  with TmpList do
  try
    Assign(List);
    for i := 0 to Count - 1 do
    begin
      Tmp := Strings[i];
      Num := '';
      j := 1;
      while (j <= Length(Tmp)) and (Tmp[j] in ['0'..'9']) do
      begin
        Num := Num + Tmp[j];
        Inc(j);
      end;
      Num := Format('%.*d', [NumWidth, StrToIntDef(Num, 0)]);
      Strings[i] := Num + Strings[i];
    end;
    Sorted := True;
    Sorted := False;
    for i := 0 to Count - 1 do
    begin
      Strings[i] := Copy(Strings[i], NumWidth + 1, Length(Strings[i]) - NumWidth);
    end;
    List.Assign(TmpList);
  finally
    Free;
  end;
end;

Qu'on peut utiliser ainsi :

procedure TForm1.btnSortClick(Sender: TObject);
begin
  SortByNumber(ListBox1.Items);
end;

Bonne prog'

cs_MAURICIO · Answer

Ok, tu as raison s' il y a des doublons d' entiers combinés avec du texte différent, pas de souci. 

D' ailleurs, j' utilise très souvent ta méthode combiné avec l' evenement OnDrawItem pour formater la visualisation. Je voulais apporter quelques chose de nouveau qui n' ai pas la contrainte de formater les items de la listBox. 

Par contre, la source que je donne est tout à fait valable, même s' il faut rajouter quelques lignes pour tenir compte du texte dans ce cas de figure ici. Comme tu as pu le voir, elle permet carrément (dans la méthode 2) de dispenser dans la listBox de montrer les chiffres. 

A+

cs_MAURICIO · Answer

Salut japee, 
j' aime bien cette solution. 

Une petite remarque:
while (j <= Length(Tmp)) and (Tmp[j] in ['0'..'9']) do
Les items du genre "123 fdgfdg5fg4fd5fdg4fdg" vont être mal traités car il y a des chiffres un peu partout:

Il suffirait de contrôler si on a détecter une coupure de chiffres ...
A+

japee · Answer

Salut Mauricio.

"Les items du genre "123 fdgfdg5fg4fd5fdg4fdg" vont être mal traités car il y a des chiffres un peu partout"

Pas du tout ! La string va se retrouver en position indiquée par le chiffre de début qui est 123, conformément au cahier des charges.
Donc après une éventuelle string commençant par 122, avant une éventuelle string commençant par 124, et s'il y a d'autres string commençant par 123, elles seront classées dans l'ordre alphabétique par rapport aux caractères qui suivent le nombre initial.

A +

cs_MAURICIO · Answer

Haa oui, tu as raison : 
      while (j <= Length(Tmp)) and (Tmp[j] in ['0'..'9']) do

Désolé, je dois être fatigué   lol
A+

Caribensila · Answer

@Japee
T'as du courage de venir mettre ton grain de sel ici.
T'as pas peur de te chopper un bourre-pif au passage?  mdrrrr

Bon, j'ai torturé ta procedure comme tu nous l'as imprudemment demandé...

Conclusion :
- Très utile pour trier une liste codée de missiles russes.
- Cependant, un petit défaut(?) :
elle classe  .99  avant  0.11 , et ça peut être lourd de conséquence avec des missiles...  

Bref, sinon ça marche impec pour des entiers.

japee · Answer

Salut Cari,

Oui, j'ai fait l'impasse sur les flottants.
En plus, c'est lent à partir d'un certain nombre d'items.
Utile pour gérer un genre de "playlist", pas plus.
Faudrait pas qu'y ait trop de missiles russes, quoi.
Mais les 3/4 sont rouillés parait-il...

A +

P-S: j'avais mis un casque intégral avant de me risquer.

Cirec · Answer

Une dernière version qui règle le problème des missiles balistiques Russe En fait la précédente version le faisait correctement mais pour ne pas changer les données d'origine (Zéros en plus) cette version (tout comme celle de Japee) restitue fidèlement les données Je vous remet la fonction LeadingZero mais c'est la même qu'avant ! Function LeadingZero(Const S : String; Const Len : Integer = 3): String ; Var PbS : PByte; Cnt : Integer; Begin PbS : = PByte(S); SetLength(Result, Length(S)); Result := S; Cnt := 0; While (PbS^ > 47) And (PbS^ < 58) Do Begin Inc(PbS); Inc(Cnt); End; If (Cnt > 0) And (Cnt < Len) Then Begin Cnt : = ABS(Len - Cnt); SetLength(Result, Length(S) + Cnt); Result := DupeString('0', Cnt) + S; End ; End; Procedure SortByNumber2(List: TStrings); Const NumWidth = 6; // 0..999 999 items Var TmpList, FinalList: TStringList; I: Integer; Begin TmpList : = TStringList.Create; With TmpList Do Try BeginUpdate; For I : = 0To List.Count - 1Do AddObject(LeadingZero(List.Strings[I]), TObject(I)); Sorted := True; EndUpdate; FinalList := TStringList.Create; With FinalList Do Try BeginUpdate; For I : = 0To List.Count - 1Do Add(List.Strings[Integer(TmpList.Objects[I])]); EndUpdate; Finally List.Assign(FinalList); Free; End; Finally Free; End; End; Procedure TFprincipe.Button10Click(Sender: TObject); Begin SortByNumber2(ListBox1.Items); End; Highlighted with Pas2HTML @+ Cirec

japee · Answer

Salut Cirec,

Perso, je n'ai pas trouvé que BeginUpdate et EndUpdate faisaient gagner du temps, alors je les ai virés.
D'après un test rapide, nos routines sont sensiblement équivalentes au niveau du temps de traitement. Et elles commencent à ramer à partir de plusieurs dizaines de milliers d'items.
Mais là ça commence à faire du monde dans une ListBox, hein ?

A +

japee · Answer

"Perso, je n'ai pas trouvé que BeginUpdate et EndUpdate faisaient gagner du temps, alors je les ai virés."

Enfin, dans ma routine, je voulais dire... je me suis pas permis pour la tienne 
(mais ça doit être pareil, sans doute, je vais vérifier...)

japee · Answer

Je viens de vérifier sur une liste de 9999 items, la différence n'est pas significative.
D'autant que le temps de traitement est assez variable de toute manière, selon le degré de mélange des items certainement.

Cirec · Answer

Oui c'est vrai que Begin/End Update n'y change rien

J'irais même plus loin en affirmant que ma procédure est ~ 1 seconde plus lente sur 10 000 requêtes que la tienne. 
tout le temps que je gagne avec ma fonction LeadingZero je le perd en utilisant une StringList supplémentaire 

 
@+
Cirec

<hr siz="" />

Tri numérique sur ListBox

33 réponses

Votre réponse

Discussions similaires