Taille d'un fichier texte

Version imprimable

Bonjour,
---
je cherche à trouver la taille d'un fichier texte.
---

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.BtnTailleFichierClick(Sender: TObject);
  var
    F                        : textfile;                                        // fichier à décoder
    Taille                   : int64;                                           // taille du fichier
  begin
      AssignFile(F, 'c:\texte.txt');
      reset(F);                                                                 // positionne le fichier en lecture
      taille:=FileSize(F);                                                      // récupère la taille totale du fichier
      BtnTailleFichier.Caption:=IntToStr(taille);                               // affiche la taille
  end;

---
la procédure fonctionne très bien en delphi 7
sous Lazarus, j'obtiens le message d'erreur: Error: call by var for arg no.1 has to match exactly: Got "Text" expected "File"
j'obtiens la même erreur en utilisant FilePos ...
---
merci pour le temps que vous passez à essayer de comprendre ce que nous essayons de faire.
bonne journée

Salut la réponse se trouve dans le message d'erreur. Voir FileSize

Citation:

Error: call by var for arg no.1 has to match exactly: Got "Text" expected "File"

Code:

1
2
3
4
5
6
7
8
9
10
procedure TForm1.BtnTailleFichierClick(Sender: TObject);
  var
    F                        : FILE;                                        // fichier à décoder
    Taille                   : int64;                                           // taille du fichier
  begin
      AssignFile(F, 'c:\texte.txt');
      reset(F);                                                                 // positionne le fichier en lecture
      taille:=FileSize(F);                                                      // récupère la taille totale du fichier
      BtnTailleFichier.Caption:=IntToStr(taille);                               // affiche la taille
  end;

Sinon plus simple dans l'unté "FileUtil" tu as la fonction function FileSize(const Filename: string): int64; ou dans l'unité "LazFileUtils"function FileSizeUtf8(const Filename: string): int64;

A+

Jérôme

01/09/2020, 21h20
Roland Chastain

Hello !

Petite précision pour compléter la réponse de Jérôme. Pour avoir le résultat attendu (en octets), il faut écrire Reset(F, 1); ; ou alors déclarer le fichier comme file of byte.

P.-S. Ou alors il faut multiplier le résultat par 128. :)

Citation:

Untyped files have a default record size of 128, if the second parameter to Reset isn't specified.

https://www.freepascal.org/docs-html...m/filepos.html

Longueur d'un fichier 'Texte'

Bonjour,
merci pour vos excellentes réponses.
l'idée est bonne, mais ...
---
j'essaye de traiter un fichier texte, ligne par ligne
et si je le déclare en 'File', je ne peux plus me servir de 'ReadLn'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.BtnTailleFichierClick(Sender: TObject);
  var
    F                        : textfile;                                        // fichier à décoder
    Taille                   : int64;                                           // taille du fichier
    tampon                   : string;                                       // lignes succesives chargées du fichier E3F
  begin
    AssignFile(F, 'c:\texte.txt');
    try
      reset(F);                                                                 // positionne le fichier en lecture
      taille:=FileSize(F);                                                     // récupère la taille totale du fichier
      BtnTailleFichier.Caption:=IntToStr(taille);                      // affiche la taille
      readln(F, tampon);                                                    // lis la 1ère ligne du fichier qui correspond au intitulé
      // traitement de la ligne
    Finally
      closeFile(F);                                                            // fermeture du fichier
    end;
 end;

Bonne journée

hello,
une autre façon de lire les lignes d'un fichier texte : le TStringList.

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject);
var textLines: TStringList;
     K: integer;
begin
  memo2.Append('taille du fichier : ' +  
                         inttoStr(FileSize('unit1.Pas')) + ' octets');   // FileSize dans unité FileUtil
  textLines := TStringList.Create;
  try
    textLines.LoadFromFile('unit1.pas');
    for K:=0 to pred(textLines.Count) do 
         // lecture ligne par ligne
         begin
            Memo2.Append(textLines[K]);
         end;
  finally
  textLines.free;
  end;
end;

Ami calmant, J.P

02/09/2020, 19h17
Roland Chastain

Citation:

Envoyé par neho88

et si je le déclare en 'File', je ne peux plus me servir de 'ReadLn'

Rien ne vous empêche de déclarer les deux. Il y a deux opérations distinctes : connaître la taille du fichier, et le lire ligne à ligne.
03/09/2020, 14h50
neho88

Taille d'un fichier texte

Bonjour,
merci pour la réponse.
ce serait une bonne solution si je n'avais pas besoin d'utiliser filepos(F) pour avertir la personne ou en est le décodage dans le fichier.
bonne journée
03/09/2020, 17h17
BeanzMaster

Citation:

Envoyé par neho88

Bonjour,
merci pour la réponse.
ce serait une bonne solution si je n'avais pas besoin d'utiliser filepos(F) pour avertir la personne ou en est le décodage dans le fichier.
bonne journée

Salut, je ne vois pas en quoi filepose(F) est obligatoire pour indiquer l'avancement de ton décodage. Si c'est octet par octet à la place de cette vieille méthode tu peux utiliser
les Stream comme avec TFileStream Voir aussi ce tuto qui est pour Delphi mais applicable à Lazarus par exemple.

A+

Jérôme