Discussion :

[The Ditch]

Bonjour,

J'aimerais faire une recherche sur l'extension des fichiers.

J'ai un formulaire avec des checkbox, lorsque que je coche un case cela fonctionne. La où ça se corse c'est a partir de 2.

Il me met dans ma variable que la dernier case que j'ai coché.

Voici ce que j'ai fait:

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
if ChBxLog.Checked then extension := '\*.log';
if ChBxTMP.Checked then extension := '\*.tmp';
if ChBxBAK.Checked then extension := '\*.bak';
 
if EdtScan.Text = ' '
     then MessageDlg('Aucun type de fichier na été sélectionné',mtError,[mbOK],0)
     else
       begin
    fileattrs := $0000003F;
    with FResultatInventaire.StringGridResultatInventaire do
      begin
        ShowMessage(extension);
        RowCount := 0;
        if FindFirst(FInventaire.EdtScan.Text + extension, FileAttrs, sr) = 0  then
           repeat
             if (sr.Attr and FileAttrs) = sr.Attr then
             begin
               RowCount := RowCount + 1;
               Cells[0,RowCount-1] := sr.Name;
               Cells[1,RowCount-1] := IntToStr(sr.Size);
               dt := FileDateToDateTime(sr.time);
               Cells[2,RowCount-1] := datetimetostr(dt);
             end;
           until FindNext(sr) <> 0;
        FindClose(sr);
      end;
end;

De plus dans mon code, je n'ai pas encore pas mis la récursivité. Il ne recherche que dans le répertoire courant. Il y a bien une FAQ sur ce sujet, lais je n'ai pas bien compris Si une âme charitable pouvais m'expliquer ce sera super.

Merci pour votre aide

[ouiouioui]

[CODE]if ChBxLog.Checked then extension := '\*.log';
if ChBxTMP.Checked then extension := '\*.tmp';
if ChBxBAK.Checked then extension := '\*.bak';

Normal, a chaque test tu écrase la valeur précédente.
Moi je créerai un array et ajouterai dedans si checked, et en bas je boucle findfirst findclose pour tester les valeur de l'array

[The Ditch]

Bonjour merci pour ton aide.

Je dois encore avoir un soucis dans 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TFInventaire.BtnAnalyseClick(Sender: TObject);
var sr                 : TSearchRec ;
    fileattrs,i,j      : integer ;
    dt                 : tdatetime;
    extension          : string;
    TabExtensionFiles  : array [1..3] of string [7];
 
begin
 
   if ChBxLog.Checked then TabExtensionFiles[1]:= ('\*.log');
   if ChBxTMP.Checked then TabExtensionFiles[2]:= ('\*.tmp');
   if ChBxBAK.Checked then TabExtensionFiles[3]:= ('\*.bak');
 
if EdtScan.Text = ' '
     then MessageDlg('Aucun type de fichier na été sélectionner',mtError,[mbOK],0)
     else
       begin
          fileattrs := $0000003F;
          j := 1;
          with FResultatInventaire.StringGridResultatInventaire do
            begin
              while j < 22 do
                   begin
                      RowCount := 0;
                      if FindFirst(FInventaire.EdtScan.Text + TabExtensionFiles[i], FileAttrs, sr) = 0  then
                         repeat
                           if (sr.Attr and FileAttrs) = sr.Attr then
                           begin
                             RowCount := RowCount + 1;
                             Cells[0,RowCount-1] := sr.Name;
                             Cells[1,RowCount-1] := IntToStr(sr.Size);
                             dt := FileDateToDateTime(sr.time);
                             Cells[2,RowCount-1] := datetimetostr(dt);
                           end;
                         until FindNext(sr) <> 0;
                      FindClose(sr);
                      j := j+1;
                   end;
            end;
end;

Si vous pouviez m'aiguiller; ce sera sympa. Je n'ai pas encore acquis la logique ...

[ouiouioui]

un array dynamique, ou un tstringlist comme dans l'exemple

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Var
  sr:                TSearchRec;
  fileattrs, i, j:   integer;
  dt:                tdatetime;
  extension:         String;
  TabExtensionFiles: Array Of String[4];
 
  Procedure SetArray(bChecked: boolean; sExt: String);
  Var
    iSize: integer;
  Begin
    If bChecked Then
    Begin
      iSize := Length(TabExtensionFiles) + 1;
      SetLength(TabExtensionFiles, iSize);
      TabExtensionFiles[iSize - 1] := AnsiLowerCase(sExt);
    End;
  End;
 
  Function ArrayIndexOF(sText: String): integer;
  Var
    iPos: integer;
  Begin
    sText    := AnsiLowerCase(ExtractFileExt(sText));
    Result   := -1;
    For iPos := Low(TabExtensionFiles) To High(TabExtensionFiles) Do
    Begin
      If sText = TabExtensionFiles[iPos] Then
      Begin
        Result := iPos;
        Break;
      End;
    End;
  End;
 
Begin
  SetLength(TabExtensionFiles, 0);
  SetArray(ChBxLog.Checked, '.log');
  SetArray(ChBxTMP.Checked, '.tmp');
  SetArray(ChBxBAK.Checked, '.bak');
 
  If EdtScan.Text = ' ' Then
    MessageDlg('Aucun type de fichier na été sélectionner', mtError, [mbOK], 0)
  Else
  Begin
    fileattrs := $0000003F;
    j         := 1;
    With FResultatInventaire.StringGridResultatInventaire Do
    Begin
      RowCount := 0;
      If FindFirst(FInventaire.EdtScan.Text + '\*', fileattrs, sr) = 0 Then
        Repeat
          If ((sr.Attr And fileattrs) = sr.Attr) And (ArrayIndexOF(sr.Name) <> -1) Then
          Begin
            RowCount               := RowCount + 1;
            Cells[0, RowCount - 1] := sr.Name;
            Cells[1, RowCount - 1] := IntToStr(sr.Size);
            dt                     := FileDateToDateTime(sr.time);
            Cells[2, RowCount - 1] := datetimetostr(dt);
          End;
        Until FindNext(sr) <> 0;
      FindClose(sr);
    End;
  End;

[The Ditch]

Bonjour,



@ouiouioui
Merci , ça fonction , maintenant je dois bien comprendre ce que tu m'a donner

@Caribensila

Merci super le lien, il y a plein d'idée