Discussion :

[lucke]

Bonjour,

j'ai un petit probleme, je voudrais créer un prog qui liste tout les fichiers *.txt présent à un emplacement, qui écrit leur titre dans un fichier texte et qui ecrit en face le contenu du ce fichier mais je n'arrive pas à enregistrer le contenu, j'arrive très bien à enregidtrer le nom du fichier mais pas le contenu, j' arrive juste à enregistrer la premiere ligne du fichier.

(je trouve tout les *.txt grace a findfirst et findnext mais ensuite je n'arrive pas a enregistrer le contenu)

j'espère avoir été assé clair et que l'un d'entre vous va pouvoir m'aider
merci d'avance pour votre aide

[Eric Sigoillot]

Pour lire un fichier texte, il faut déclarer une variable de type Text, et le parcourir jusqu'à la fin, comme ceci :

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
 
var
  f: Text;  { variable liée au fichier }
  S: string;
 
begin
Assign(f, 'FICHIER.TXT'); { Liaison variable / fichier }
Reset(f); { Ouverture du fichier }
 
while not Eof(f) do { tant que la fin n'est pas atteinte...}
  begin
  ReadLn(f, S);  { Lecture d'une chaîne }
  WriteLn(S);
  end;
 
Close(f); { fermeture du fichier }
end.

A+

[kael kael]

Au risque de (encore ?) me tromper, si jamais une ligne de son fichier dépasse 255 caractères, elle sera coupée.

Alors, est ce qu'il ne faudrait pas utiliser

Code :

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

1
2
3
4
5
while not eoln(f) do 
begin
  read(f,c);
  write(c);
end;

en plus du

Code :

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

 while not eof(f)

:

[ALT]

Bonjour

Pour kael kael :
Oui, sans doute ce serait mieux de prévoir ce cas, mais je ne suis pas sûr que les fichiers texte du DOS aient des lignes aussi longues, car, à l'époque, les compilateurs & ... le DOS lui-même, ne permettaient pas d'écrire des lignes plus longues que 255 caractères.

À vérifier, tout de même.

Cordialement

[Eric Sigoillot]

L'utilisation de Read pose problème dans les fichiers textes, à ce que je me rapelle de ce j'avais lu il y a longtemps.

Je crois que la raison était que Read bloquait sur les fins de lignes. Bref, on ne pouvait lire qu'une seule ligne avec Read, et puis on restait coincé, ce qui n'arrive pas avec ReadLn.

Au pire, si on veut des lignes de plus de 255 caractères, alors on lit du PChar (65535 caractères, ça ira ?)

A+

[lucke]

merci a tous pour votre aide je vais essayer et je vous tien au courant

[kael kael]

Je crois que la raison était que Read bloquait sur les fins de lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
while not eof(f) do 
begin
  while not eoln(f) do
  begin
    read(f,c);
    write(f,c);
  end;
  readln(f);
  writeln;
end;

Il ne faut pas oublier de mettre un readln(f) après la deuxième boucle, ainsi on va à la ligne dans le fichier. Pour de nouveau lire une autre ligne...

Si on ne le met pas, on reste sur la fin de ligne et on est partie dans une jolie boucle infinie

[Eric Sigoillot]

Un peu tordu pour lire des fichiers texte avec une longeur de ligne plutôt exceptionnelle.

Mais bon, ça doit marcher, en effet. Et si l'on veut se prémunir contre tous les bugs possibles et (in?)imaginables, alors évidemment...

A+

[lucke]

En fait je parviens à ouvrir mes fichiers et à lire le contenu mais je ne sais lire que la premiere ligne, voici mon code:

while doserror = 0 do
begin

chemin:= 'd:\pascal\'+ s.name ;
assign (f1,chemin);
reset(f1);
readln(f1,s1);

assign (f,'d:\enregistrement.txt');
append (f);
writeln (f,s.name,' : ' ,s1);
close(f);

findnext(s);

end;

j'obtien donc bien mes enregistrement dans le fichiers enregistrement.txt mais je n'ai que la premiere ligne de chaque fichier en face de son nom et je ne parvien pas a avoir la suite, pouvez vous m'aider ???

Merci d'avance :

[Alcatîz]

HDD34 t'a déjà donné la solution : tu dois faire une boucle

Code :

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

1
2
while not eof(f1) do
... etc

Si tu ne boucles pas, forcément tu ne liras que la 1ère ligne.

Un autre petit détail : n'oublie pas de fermer ton fichier f1 après l'avoir lu.

Salut !

[lucke]

merci a tous ca marche super
bonne continuatio n