[LG]probleme lecture fichier
Voilà j'ai un fichier texte du genre :
REMARK ASPIRIN
ATOM 1 C 1 -1.920 -1.004 -1.604 1.00 -1.00
ATOM 2 C 1 -1.388 -2.184 -1.008 1.00 -1.00
ATOM 3 C 1 -0.076 -2.184 -0.476 1.00 0.00
… etc…
ATOM 20 H 1 -1.020 2.392 1.312 1.00 0.00
ATOM 21 H 1 0.352 1.460 2.092 1.00 0.00
TER 22 1
END
Je dois récupérer les informations dans des vecteurs jusqu'à la valeur "TER". On me donne comme aide le bout de code suivant :
Code:
1
2
3
4
5
6
7
| Var f :text ;
s : char ; { caractère destiné à recevoir le symbole chimique }
x, y, z : real ; { coordonnées cartésiennes de l’atome }
ch1 : packed array [1..13] of char ; { 13 caractères précédent le symnole chimique }
ch2 : packed array [1..18] of char ; {18 caractères suivant le symnole chimique et précédent les coordonnées}
readln(f, ch1,s,ch2,x,y,z) ; |
Il suffira de tester ch1[1] pour détecter la valeur sentinelle.
Lors de la compilation de mon programme, il ressort l'erreur que les variables ch1 et ch2 ne peuvent lue ou ecrite dans un fichiers. coment puis-je faire autrement pour passer au-dessus des espaces entre les dnnées intéressantes?
