Discussion :

[michel71]

bonjour,

j'ai un problème avec un tri de fichier ci-dessous le morceau de procédure concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
       pro:='xxxx9999';
       for i:=1 to nb_lig do
       begin
            seek(fichier,i); read(fichier,enregcollec);
            tab_base[i,2]:= Trim(enregcollec.num);
       end;
 
       lig:=0;
       for i:=1 to nb_lig do
       begin
          for j:=1 to nb_lig do
          begin
           test:=tab_base[j,2];
          if test<pro then
                 begin
                  pro:=test;
                  lig:=j;
                 end;
          end;
          tab_base[lig,2]:='xxxx9999';
          seek(fichier,lig);read(fichier,enregcollec);
          tab_resu[i]:=enregcollec; pro:='xxxx9999';lig:=0;
       end;

Les éléments à trier sont comme ceci
BF100
BF12
BF10
BF08
BF09
BF11
BF101

et voici le résultat

BF08
BF09
BF10
BF100
BF101
BF11
BF12

Apparemment le tri se fait sur le premier chiffre mais je souhaite avoir ceci comme résultat

BF08
BF09
BF10
BF11
BF12
BF100
BF101

Merci de votre aide

[evarisnea]

j'ai vu un topic similaire récemment sur ce même forum.
en fait le tri que tu effectue actuellemnt est alphanumérique et le résultat que tu obtient est bien normal.
je constate aussi que le préfixe de tes chaine est constant (2 lettres BF). à toi donc de créer un algorithme qui te permettra d'extraire la partie numérique de la chaine, convertir la chaine en nombre et puis effectuer les comparaisons.
ca ne devrait pas être trop difficile

[michel71]

Merci, j'y avais pensé, mais j'espérai qu'il y avait une solution plus simple !! car le problème c'est la variable alphanumérique n'est pas constante dans sa forme.http://www.developpez.net/forums/ima...s/icon_sad.gif

[Pergos]

Si tous tes caractères alpha sont en début de variable, tu peux y aller par dichotomie (je crois qu'on appelle ça comme ça, le fait d'un aller pas à pas...), genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure convert_var(aVar:string;var prefix:string;var suffix:integer);
var
  lsortboucle : boolean ;
  i :integer ;
begin
  lsortboucle := false ;
  i := -1;
  while not lsortboucle and (i<=Length(aVar)) do
    try
      i:=i+1;
      prefix := copy(aVar,1,i);
      suffix := StrToInt(copy(aVar,i+1,length(aVar)));
      lsortboucle := true ;      
    except
    end;
end

en gros, le but, c'est d'essayer de convertir tous les derniers caractères en un entier.
Tu commences avec tous les caractères c'est à dire du premier au dernier, puis du deuxième au dernier, puis du troisième au dernier, etc... jusqu'à ce que la conversion ne lève plus d'erreur et que donc l'instruction lsortboucle:=true passe, et que tu sorte donc de la boucle...

Un peu violent, mais généralement efficace...

(c'est un peu pondu à chaud, donc nécessitera sans doute des corrections...)