Discussion :

[m.nico]

bonjour
je voudrais lire un fichier text en commencant par la fin en arriere

quelqu un pouurai m aider ?
merci

[sjrd]

Il faut d'abord savoir ce que tu entends par la fin du fichier Est-ce le dernier caractère, la dernière ligne ?
Si c'est par ligne, je préconise de toute façon la lecture complète au moyen d'un TStrings et puis boucler de la fin au début :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with TStringList.Create do
try
  LoadFromFile(NomDuFichier);
  for I := Count-1 downto 0 do
  begin
    Ligne := Strings[I];
    // Traitement sur Ligne
  end;
finally
  Free;
end;

[edam]

si c'est un autre type de fichier (Fichier typé) alors voir : seek et FileSize dans l'aide de delphi

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
procedure TForm1.Button1Click(Sender: TObject);
var
   f: file of Byte;
   size: Longint;
   i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    {$i-}
    Reset(f);
    if ioresult<>0 then exit;
   {$i+}
    try
      size := FileSize(f);
      Seek(f, size-1);
      .....
    finally
      CloseFile(f);
    end;
  end;
end;

[m.nico]

Il faut d'abord savoir ce que tu entends par la fin du fichier Est-ce le dernier caractère, la dernière ligne ?
Si c'est par ligne, je préconise de toute façon la lecture complète au moyen d'un TStrings et puis boucler de la fin au début :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with TStringList.Create do
try
  LoadFromFile(NomDuFichier);
  for I := Count-1 downto 0 do
  begin
    Ligne := Strings[i];
    // Traitement sur Ligne
  end;
finally
  Free;
end;

clea marche bien

j usqu a quel taile de fichier le tstringlist marche correctement ?

[Abadianet]

Bonjour,

Pour la taille regarde l'aide sur TStringList.Capacity

Cordialement

[sjrd]

j usqu a quel taile de fichier le tstringlist marche correctement ?

Jusqu'à la taille de ta RAM

[m.nico]

merci pour les reponses