Discussion :

[steveleg]

Je dois trier l'arborescence suivante :
test
2005
12
13
1
2
2006
6
1
3
...

J'aimerais avoir
Test
2005
1
2
12
13
2006
1
3
6

J'ai créer une fontion qui retrace tous les fichiers et dossiers de cette arborescence mais comment puis-je faire pour trier numériquement les dossiers. En renommant les dossiers 1, 2, 3 en 01, 02 et 03 ça règle mon problème. Comment faire autrement.

Voici ma procédure :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.ListerTousFichier(const Chemin, Fichier,
  RacineWeb: string; const InDir: boolean; var listFichier: TStrings);
var
  Rec  : TSearchRec;
  Path, strNouvPath : string;
begin
  Path := IncludeTrailingBackslash(Chemin);
  //Cherche tous les fichiers seulement
  if FindFirst(Path + Fichier, faAnyFile - faDirectory, Rec) = 0 then
    try
      repeat
       //listFichier.Add({Path} + Rec.Name);
       //Enlève le chemin local et le "\" final
       //Remplace les "\" par des "/" pour le protocole HTTP
       strNouvPath := StringReplace(Copy(Path,Length(chemin)+2,Length(Path)),'\','/',[rfReplaceAll]);
       listFichier.Add('_____'+Rec.Name);
      until FindNext(Rec) <> 0;
    finally
      FindClose(Rec);
    end;
 
  //Si n'est pas dans un fichier
  If not InDir then Exit;
 
  //Cherche le prochain dossier
  if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
    try
      repeat
        if (Rec.Attr = faDirectory) and (Rec.Name<>'.') and (Rec.Name<>'..') then
        begin
          listFichier.Add('#'+Rec.Name);
          ListerTousFichier(Path + Rec.Name, Fichier, RacineWeb,True,listFichier);
        end;
       until FindNext(Rec) <> 0;
    finally
      FindClose(Rec);
    end;
end;

Merci de votre aide,
Steve

[slimjoe]

Je dois trier l'arborescence suivante :
test
2005
12
13
1
2
2006
6
1
3
...

J'aimerais avoir
Test
2005
1
2
12
13
2006
1
3
6

J'ai créer une fontion qui retrace tous les fichiers et dossiers de cette arborescence mais comment puis-je faire pour trier numériquement les dossiers. En renommant les dossiers 1, 2, 3 en 01, 02 et 03 ça règle mon problème. Comment faire autrement.

Voici ma procédure :

procedure TForm1.ListerTousFichier(const Chemin, Fichier,
RacineWeb: string; const InDir: boolean; var listFichier: TStrings);
var
Rec : TSearchRec;
Path, strNouvPath : string;
begin
Path := IncludeTrailingBackslash(Chemin);
//Cherche tous les fichiers seulement
if FindFirst(Path + Fichier, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
//listFichier.Add({Path} + Rec.Name);
//Enlève le chemin local et le "\" final
//Remplace les "\" par des "/" pour le protocole HTTP
strNouvPath := StringReplace(Copy(Path,Length(chemin)+2,Length(Path)),'\','/',[rfReplaceAll]);
listFichier.Add('_____'+Rec.Name);
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;

//Si n'est pas dans un fichier
If not InDir then Exit;

//Cherche le prochain dossier
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if (Rec.Attr = faDirectory) and (Rec.Name<>'.') and (Rec.Name<>'..') then
begin
listFichier.Add('#'+Rec.Name);
ListerTousFichier(Path + Rec.Name, Fichier, RacineWeb,True,listFichier);
end;
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
end;

Merci de votre aide,
Steve

Bonjour Steve,

Au lieu d'utiliser un objet TStrings peut-être pourrais-tu utiliser un objet TStringList qui te permettrait d'utiliser la méthode CustomSort. En utilisant CustomSort, il t'est possible de comparer les valeurs comme tu les veux (en les convertissant en Integer au moment de la comparaison par exemple) à l'aide de la méthode callback passé en paramêtre à CustomSort.

Je t'invite à consulter l'aide de Delphi à ce propos.

Bon dev!

-Slimjoe

P.S.
Pour aider les utilisateurs de ce forum à bien comprendre tes questions, je t'invite également à utiliser les balises code et à bien indenter ton code. Ça augmente considérablement la lisibilité .

[steveleg]

Merci de votre réponse rapide. Je vérifie les possibilité aujourd'hui.