Fichiers textes

Avant de commencer

Un fichier de notes (real) est en binaire et donc illisible avec un éditeur. Comment stocker des données dans un fichier lisible (visible avec Notepad, Vim…) ?

1. Qu'est-ce qu'un fichier texte ?

Ali 14.5
Sara 16.0
Karim 11.2

2. Déclaration

T.D.O
─────────────────────────────────
FT : variable Texte
─────────────────────────────────

T.D.O
─────────────────────────────────
FT : variable Texte
─────────────────────────────────

VAR
  FT : Text;

Pas de T.D.N.T à faire : Text est un type prédéfini en Pascal.

3. Différences avec les fichiers typés

4. Lire un fichier texte

PROGRAM LireTexte;
VAR
  FT : Text;
  ligne : string;
BEGIN
  Assign(FT, 'notes.txt');
  Reset(FT);
  WHILE NOT Eof(FT) DO
  BEGIN
    Readln(FT, ligne);
    Writeln(ligne);
  END;
  Close(FT);
END.

Readln(FT, ligne) lit jusqu'au saut de ligne et le consomme.

5. Écrire dans un fichier texte

Assign(FT, 'sortie.txt');
Rewrite(FT);
Writeln(FT, 'Première ligne');
Writeln(FT, 'Deuxième ligne');
Writeln(FT, 'x = ', 42, ' y = ', 3.14:5:2);
Close(FT);

Writeln écrit puis ajoute un saut de ligne. Write écrit sans saut.

6. Ajouter en fin de fichier : Append

Rewrite écraserait tout. Pour ajouter sans perdre l'existant :

Assign(FT, 'log.txt');
Append(FT);            { ouvre en ajout — fichier doit exister }
Writeln(FT, 'Nouvelle entrée');
Close(FT);

7. Fonctions Eoln et Eof

8. Exercices

PROGRAM Copier;
VAR F1, F2 : Text; ligne : string;
BEGIN
  Assign(F1, 'source.txt'); Reset(F1);
  Assign(F2, 'copie.txt');  Rewrite(F2);
  WHILE NOT Eof(F1) DO
  BEGIN
    Readln(F1, ligne);
    Writeln(F2, ligne);
  END;
  Close(F1); Close(F2);
END.

FUNCTION NbLignes(nom : string) : integer;
VAR F : Text; ligne : string; n : integer;
BEGIN
  Assign(F, nom);
  Reset(F);
  n := 0;
  WHILE NOT Eof(F) DO
  BEGIN
    Readln(F, ligne);
    n := n + 1;
  END;
  Close(F);
  NbLignes := n;
END;

PROGRAM Filtrer;
VAR F, Fp, Fi : Text;
  ligne : string;
  n : integer;
BEGIN
  Assign(F, 'source.txt');   Reset(F);
  Assign(Fp, 'pairs.txt');   Rewrite(Fp);
  Assign(Fi, 'impairs.txt'); Rewrite(Fi);
  n := 0;
  WHILE NOT Eof(F) DO
  BEGIN
    n := n + 1;
    Readln(F, ligne);
    IF n MOD 2 = 0 THEN
      Writeln(Fp, ligne)
    ELSE
      Writeln(Fi, ligne);
  END;
  Close(F); Close(Fp); Close(Fi);
END.

9. Erreurs fréquentes au bac

• Utiliser Seek ou FileSize sur un texte : interdit.
• Ouvrir avec Rewrite un fichier qu'on voulait juste lire : on l'écrase !
• Confondre Read et Readln : Read ne consomme pas le saut de ligne.

10. Quiz