Erreur d'exécution 104 105

Version imprimable

Salut
Code:

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 :ccool:

28/12/2009, 17h33
Alcatîz

Bonjour et bienvenue !

Tout d'abord, la FAQ traite de toutes les erreurs d'exécution :
:fleche: 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

;)

Code:

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 ?

28/12/2009, 18h59
Alcatîz

:koi: 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.