Discussion :

[revlo]

Salut

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
23
24
25
26
27
28
29
30
31
32
program file1;
uses wincrt;
var
  f: Text;
  ch2,ch1,ch: string;
 c,i:integer;
begin
 
assign(f,'C:\code.txt');
appended(f)
while not (eof (f)) do
 
readln(f,ch);
 
for i:=1 to length(ch)
 
do begin
 
ch1:='';
 
c:=ord(ch[i]);
 
str(c,ch2);
 
ch1:=ch1+ch2+'*';
 
 
writeln(f,ch1);
end;
 
close(f);
end.

L'erreur d'exécution 104 105 : comment faire pour l'éviter, comment l'ouvrir avec reset ou append ? Merci

[Alcatîz]

Bonjour et bienvenue !

Tout d'abord, la FAQ traite de toutes les erreurs d'exécution :
http://pascal.developpez.com/faq/?pa...ntrees-sorties

Pour un fichier texte, Reset ouvre le fichier en lecture seule et Append en écriture. Si tu dois faire les deux opérations, soit tu les fais en deux fois (ce qui t'oblige à stocker le contenu du fichier en mémoire), soit tu crées un nouveau fichier qui remplace le fichier original à la fin du traitement.

Mais ton programme ne fait pas, je pense, ce que tu penses : tout d'abord, il lit l'entièreté du fichier puis il effecture un traitement sur la toute dernière chaîne lue. Si tu dois traiter toutes les chaînes du fichier, il va falloir inclure la boucle for dans la boucle while.

Dernière chose : il est bon de traiter les erreurs d'entrée/sortie, de manière à éviter des erreurs d'exécution brutales. Tu peux t'inspirer de ce cours : http://pascal.developpez.com/cours/c...Fichiers#LXV-E

[revlo]

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program file1;
uses wincrt;
var
  f: Text;
  ch2,ch1,ch: string;
 c,i:integer;
begin
 
assign(f,'C:\code.txt');
appended(f);
assign(g,'C:\e.txt');
rewrite(g);
 
while not (eof (f)) do
 
readln(f,ch);
 for k 1 to filesize(f) do begin
for i:=1 to length(ch)
 
do begin
 
ch1:='';
 
c:=ord(ch[i]);
 
str(c,ch2);
 
ch1:=ch1+ch2+'*';
 
 
writeln(g,ch1);
end;
end;
close(g); 
close(f);
end.

Bon il me dit "type de fichier invalide", comment connaître le nombre de lignes d'un fichier ?

[Alcatîz]

Ce code ne peut bien sûr pas compiler : le fichier g n'est pas déclaré et appended n'existe tout simplement pas. Pour ouvrir un fichier en lecture, c'est reset. Les autres remarques sont toujours d'application.