Sign in Join
Wiki copytemporary

Basic Pascal Tutorial/Chapter 2/Files/fr: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Basic Pascal Tutorial/Chapter 2/Files/fr

OldNewLine
1+[[Basic Pascal Tutorial/fr|Tutoriel de Pascal Objet]] : Entrée/sortie / **Fichiers**
2+
3+Lire depuis un fichier au lieu de la console peut être fait ainsi :
4+
5+``` pascal
6+read (file_variable, argument_list);
7+write (file_variable, argument_list);
8+```
9+
10+De manière identique à `readln` et `writeln`, *file_variable* est déclarée comme suit :
11+
12+``` pascal
13+var
14+ ...
15+ filein, fileout : text;
16+```
17+
18+Le type de donnée `text` indique le fichier est juste du texte brut.
19+
20+Après la déclaration de la variable pour le fichier et avant de lire ou écrire dedans, nous avons besoin d'associer la variable avec le nom de fichier sur le disque et d'ouvrir le fichier. Cela peut être fait de deux manières. Typiquement :
21+
22+``` pascal
23+reset (file_variable, 'filename.extension');
24+rewrite (file_variable, 'filename.extension');
25+```
26+
27+`reset` ouvre un fichier pour lire son contenu et `rewrite` ouvre un fichier pour y écrire. Un fichier ouvert avec `reset` peut uniquement être utilisé avec `read` et `readln`. Un fichier ouvert avec `rewrite` peut uniquement être utilisé avec `write` et `writeln`.
28+
29+Turbo Pascal a introduit la notation `assign`. En premier, vous assignez un nom de fichier à une variable, puis vous appelez `reset` ou `rewrite` en utilisant seulement la variable.
30+
31+``` pascal
32+assign (file_variable, 'filename.extension');
33+reset (file_variable);
34+```
35+
36+La méthode pour représenter un chemin d'accès diffère selon votre système d'exploitation. Windows utilise les barres obliques inverses (antislashs : \\) et les lettres de lecteurs dues à son héritage du DOS, alors que Mac OS X et Linux utilisent des barres obliques (slashs : /) dues à leur héritage d'Unix.
37+
38+Une fois que vous en avez fini avec un fichier, vous pouvez le fermer avec :
39+
40+``` pascal
41+close (File_Identifier);
42+```
43+
44+Ceci le rendra accessible à une autre ressource. Si vous ne fermez pas votre fichier, son accès ne sera libéré qu'une fois votre programme arrêté.
45+
46+Voici un exemple d'un programme qui emploie des fichiers. Il a été écrit pour Turbo Pascal et DOS et créera `file2.txt` avec le premier caractère de `file1.txt` :
47+
48+``` pascal
49+program CopyOneByteFile;
50+
51+var
52+ mychar : char;
53+ filein, fileout : text;
54+
55+begin
56+ assign (filein, 'c:\file1.txt');
57+ reset (filein);
58+ assign (fileout, 'c:\file2.txt');
59+ rewrite (fileout);
60+ read (filein, mychar);
61+ write (fileout, mychar);
62+ close (filein);
63+ close (fileout)
64+end.
65+```
66+
67+---
68+*From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 2/Files/fr", as it stood on 2022-08-20 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history