Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec une procédure, j'affiche dans un Tmemo, la liste de mes fichiers par ordre du jour 01, 02, 03, etc.… :

01/10/2019 14:47:50
02/09/2019 07:29:35
02/10/2019 14:50:43
02/10/2019 14:50:44
03/09/2019 13:15:46

Cette méthode fait que les fichiers sont classé par le jour et non par le mois donc le fichier du 03/09/2019 se situe après ceux du 02/10/2019.

Ma demande consiste à obtenir la liste de mes fichiers sur le mois.

Voici mon code :

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
 
var
FL: TStringList;
 
fichier, chemin : string;
 
begin
chemin := 'C:\Test' ;
fichier := opd1.filename;
if opd1.Execute then begin
FL := TStringList.Create;
FL.Sorted := True;
GetFileList( FL, chemin, '*' );
Memo1.Lines.Assign(FL);
FL.Free;
 
end;
 
end;

Si c'est possible, merci d'une aide éventuelle.

@+,

cincap

[Cirec]

Bonjour,

je suppose que les informations de base sont toutes de type string
et qu'elles ne contiennent que des Dates:

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
 
function CompareDate(Date1, Date2: TDateTime): Integer;
begin
  Result := -1;
  if Date1 = Date2 then Result := 0
  else
    if Date1 > Date2 then Result := 1;
end;
 
function MyCompareFunc(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareDate(StrToDateTime(List[Index1]),  StrToDateTime(List[Index2]));
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('Dates.txt');
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
    SL.CustomSort(@MyCompareFunc);
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
  finally
    SL.Free;
  end;
end;

Cordialement,

@+

[cincap]

@ Cirec, tu passes aussi le dimanche décidément tu mérites un autre statut !

J'ai testé mais j'obtiens une erreur, alors je précise l'objet.

Dans mon dossier Data j'ai une liste de fichier photos .jpg.

Avec mon premier code j'obtiens un résultat mais par ordre basé sur le jour.

Avec ton code, j'ai peut être fait une erreur de transcription ?

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
 
var
  SL: TStringList;
  chemin, fichier : string;
begin
chemin := 'C:\Data\';
fichier := opd1.filename;
if opd1.Execute then begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(chemin);
 
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
    SL.CustomSort(@MyCompareFunc);
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
  finally
    SL.Free;
end;
end;

Je cherche aussi de mon côté.

@+,

cincap

[tourlourou]

Bonjour,
Il manque au minimum un appel à la fonction Sort, non ?
Et la liste ne me semble pas peuplée...

[Cirec]

Bonjour,
Il manque au minimum un appel à la fonction Sort, non ?
Et la liste ne me semble pas peuplée...

non le fait d'affecter une valeur à CustmSort déclenche le tri

et le code fonctionne parfaitement testé sous D6 pour être certain

si le code plante c'est à cause du format des items
j'ai bien précisé en début de message:

je suppose que les informations de base sont toutes de type string
et qu'elles ne contiennent que des Dates:

ce qui veut dire que le StringList contient ceci(par ex.):

Code :

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

1
2
3
4
5
6
7
01/10/2019 14:47:50
02/09/2019 07:29:35
02/10/2019 14:50:43
02/10/2019 14:50:44
03/09/2019 13:15:46 
02/01/2016 14:50:44
22/06/2018 14:50:44

et le code donne:

Code :

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

1
2
3
4
5
6
7
02/01/2016 14:50:44
22/06/2018 14:50:44
02/09/2019 07:29:35
03/09/2019 13:15:46 
01/10/2019 14:47:50
02/10/2019 14:50:43
02/10/2019 14:50:44

le code correspond aux infos données.
@Cincap
donne moi 2 ou 3 lignes contenues dans ton SL avant tri
que je vois pourquoi
si tu as le chemin et le nom du fichier devant c'est normal que ça ne fonctionne pas

Cordialement,

@+

[cincap]

@ Cirec, merci de ta réponse.

Dans le libellé du topic, j'indiquais qu'il y avait des fichiers dans un dossier et que j'aimerai les afficher par le mois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
FL: TStringList;
 
fichier, chemin : string;
 
begin
chemin := 'C:\Test' ; //mon dossier de test
fichier := opd1.filename;
if opd1.Execute then begin //je choisis Photo_1.jpg
…..

Voici ce que contient mon dossier "Data" dans mon Tmemo avec le 1er code du topic et après avoir choisi la 1ère photo :

Les photos sont bien classées par l'ordre mais des jours !

01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Photo_2.jpg
01/10/2019 14:47:50 Photo_3.jpg
01/10/2019 14:47:50 Photo_4.jpg
02/09/2019 07:29:35 Photo_5.jpg
02/10/2019 14:50:43 Photo_6.jpg
02/10/2019 14:50:44 Photo_7.jpg
03/09/2019 13:15:46 Photo_8.jpg
03/09/2019 13:15:47 Photo_9.jpg
04/10/2019 05:39:11 Photo_10.jpg

Cette solution j'envisage de l'adapter au code du topic concernant les vignettes représentant les photos du dossier.

Si je me rend dans ce dossier, je pourrai faire avec le click droit et choisir "Trier par date".

@+,

cincap

[Cirec]

dans ce cas tu utilises cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
function MyCompareFunc2(List: TStringList; Index1, Index2: Integer): Integer;
var
  S1, S2: string;
begin
  S1 := Copy(List[Index1], 1, 19);
  S2 := Copy(List[Index2], 1, 19);
  Result := CompareDate(StrToDateTime(S1),  StrToDateTime(S2));
  if Result = 0 then
    Result := CompareStr(List[Index1], List[Index2]);
end;

Mais il serait plus "souple" de réutilisation de procéder autrement.

Il faudrait, lors de la création du stringlist, ajouter un objet qui contient les données du SearchRec du fichier.
partant de là on peut alors trier la liste sous les différents critères contenu dans le SearchRec (Date de creation , date d'écriture, taille, nom ...)
avec simplicité.

Ici le code ne fonctionnera que si les données correspondent au format attendu (Date Time FileName)!

Cordialement,

@+

[cincap]

Bonjour à toutes et à tous,

@ Cirec, merci de tes propositions mais avec la fonction telle quelle, cela ne fonctionne pas.

De plus dans mon ListBox ou Memo, j'aimerai que les items s'affichent avec la dernière date du moment et qui dénomme le dernier fichier présent dans le dossier, c'est aussi difficile d'avoir le résultat à cause de la date avant le nom du fichier:

01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Eaaghjtyu.jpg
01/10/2019 14:47:50 Photo_3.jpg

Maintenant je pourrai faire en sorte que dans un 2ième Tedit j'afficherai uniquement le nom du fichier avec "LastDelimiter".

Je laisse ce topic pour l'instant car je testerai avant les ordres croissant ou décroissant.

@+,

cincap

[Cirec]

Bon,
je ne sais pas ce que tu fais exactement mais
avec "MyCompareFunc2" en partant de:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Photo_2.jpg
01/10/2019 14:47:50 Photo_3.jpg
01/10/2019 14:47:50 Photo_4.jpg
02/09/2019 07:29:35 Photo_5.jpg
02/10/2019 14:50:43 Photo_6.jpg
02/10/2019 14:50:44 Photo_7.jpg
03/09/2019 13:15:46 Photo_8.jpg
03/09/2019 13:15:47 Photo_9.jpg
04/10/2019 05:39:11 Photo_10.jpg 
01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Eaaghjtyu.jpg
01/10/2019 14:47:50 Photo_3.jpg

j'obtiens

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
01/09/2019 11:30:41 Eaaghjtyu.jpg
01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Photo_1.jpg
01/09/2019 11:30:41 Photo_2.jpg
02/09/2019 07:29:35 Photo_5.jpg
03/09/2019 13:15:46 Photo_8.jpg
03/09/2019 13:15:47 Photo_9.jpg
01/10/2019 14:47:50 Photo_3.jpg
01/10/2019 14:47:50 Photo_3.jpg 
01/10/2019 14:47:50 Photo_4.jpg
02/10/2019 14:50:43 Photo_6.jpg
02/10/2019 14:50:44 Photo_7.jpg
04/10/2019 05:39:11 Photo_10.jpg

ce qui est juste !!!

pour le tri Croissant Décroissant

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
var
  FSortAscending: Boolean = False;
function MyCompareFunc2(List: TStringList; Index1, Index2: Integer): Integer;
var
  S1, S2: string;
  Idx1, Idx2   : Integer;
begin
  if FSortAscending then
  begin
    Idx1 := Index1;
    Idx2 := Index2;
  end
  else
  begin
    Idx1 := Index2;
    Idx2 := Index1;
  end;
  S1 := Copy(List[Idx1], 1, 19);
  S2 := Copy(List[Idx2], 1, 19);
  Result := CompareDate(StrToDateTime(S1),  StrToDateTime(S2));
  if Result = 0 then
    Result := CompareStr(List[Idx1], List[Idx2]);
end;

Cordialement,

@+

[cincap]

@ Cirec, merci de ta réponse,

Voici ma commande :

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
 
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    if opd1.Execute then begin
    SL.LoadFromFile(opd1.filename);
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
    SL.CustomSort(@MyCompareFunc2);
    Memo1.Lines.AddStrings(SL);
    Memo1.Lines.Add('');
    end
  finally
    SL.Free;
  end;

J'obtiens naturellement dans le mémo des caractères farfelus.

J'ai l'intention d'utiliser un TlistBox car au niveau de l'item sélectionné c'est plus facile d'afficher le nom complet du fichier .jpg dans le Tedit.

Je vais voir avec le tri croissant/décroissant.

@+,

cincap

[Cirec]

Bon il y a vraiment quelque chose que je n'ai pas compris ou que tu ne m'as pas dit

sur quoi pointe opd1.filename ?
que contient le SL après SL.LoadFromFile(opd1.filename); ?
parce que les codes que j'ai donnés fonctionnent tous à condition de respecter la trame d'entrée (cf. messages précédents)
Le tout a été fait et compilé avec D6 !!!

Cordialement,

@+

[cincap]

@ Cirec voici :

sur quoi pointe opd1.filename ?

sur des photos .jpg contenues dans le dossier "C:\Data\"

que contient le SL après SL.LoadFromFile(opd1.filename); ?

ceci :

ÿØÿà

ÿØÿà

Forcément, je ne sais pas tester le Tri croissant/Décroissant.

Je continue mes tests ouf…

@+,

cincap

[tourlourou]

Ça sent le marqueur jpeg FFD8 !

Pour lister les fichiers d'un répertoire, comme l'évoquait Cirec, rien ne vaut un FindFirst/FindNext (après un SelectDirectory, ou un ExtactFilePath sur OpenFileDialog.FileName) et l'exploitation des données de taille, de date, etc.

Du coup, il faut stocker les différentes données dans un Record, utiliser une Liste de Records et faire un CustomSort dessus sur le seul champ pertinent du Record.

On peut utiliser un TStringList pour loger le FileName dans Strings[] et le Record des autres champs dans Objects[].

[cincap]

@ Tourlourou, merci de ta suggestion, je vais tester cela avec un TListBox car plus facile à manier comme je dois aussi afficher l'item sélectionné dans un TImage.

Je placerai un TChekBox pour le choix du fichier photo.jpg avec date ou pas avant le tri.

Après on verra pour le tri croissant/décroissant.

@+,

cincap

[cincap]

@ tous, avec la suggestion de Tourlourou c'est ok, j'utilise un TListBox, avec choix de l'affichage de la date (propriété du fichier .jpg) et tri croissant/décroissant (TSearchRecObj).

Encore une petite amélioration de ma fonction à mon retour pour l'affichage de la photo suivant le click sur l'item.

Je serai absent pendant 8 jours à partir de demain matin.

Merci à ceux qui ont donné des solutions.

@+,

cincap