Read et write un fichier avec Fortran

Version imprimable

Bonjour,
j'ai un exercice à faire, et ca fait plusieurs jours que je m'y colle sans vrais résultats ...
Alors voila mon énoncé

(A file homework_6.dat contains book records: Name (up to 25 characters), publish year (4 digit integer), price (6 digit real), ISBN (13 digit integer). Write a program to read the file (homework_6.dat) and print out (on screen or into another file) the details in the following format:

Code:

1
2
3
4
5
6
7
8
9
 
                                  Publish   
           Name                          Year      ($)        ISBN
       -------------------------      ----   ------     -------------
       Principles of Combustion       2005    107.61     9780471046899
       An Introduction to Comb        2011    193.99     9780073380193 
       Guide to Fortran               2009     71.95     9781848825420
       Modern Fortran Explain         2011    100.00     9780199601417
       Introduction to Program        2012    200.00     9780857292322)

Donc, j'ai un fichier .dat qui ce qu'il y a juste au dessus ( name, publish year ..) exactement sous cette forme.

Voila le programme que j'ai écrit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program dat
    implicit none
    character (len=25) :: Name
    integer :: i, publish_year, ISBN
    real :: price 
    open(unit=7, file="homework_6.dat", status="old", action="readwrite")
    open(unit=8, file="output_hw6.dat")
    !Comment: these below 3 lines are for skipping 3 heading your input                 
    read(7,*)
    read(7,*)
    read(7,*)
    do i=1, 10
    read (7,*) Name, publish_year, price, ISBN
    write (8,1) Name, publish_year, price, ISBN
    1 format(a25,2x,i4,2x,f3.2,2x,i13)
    end do
    close(unit=7)
    end program dat

Mais j'ai une erreur apres avoir fait 'compile' à la ligne 13.

Je ne sais pas comment faire pour résoudre mon exercice :?

Merci de votre aide

06/01/2013, 15h29
Sylvain Bergeron

Citation:

Envoyé par jill_

Mais j'ai une erreur apres avoir fait 'compile' à la ligne 13.

C'est une erreur à la compilation ou à l'exécution ?

Si c'est à l'exécution, c'est possiblement dans le fait que tu utilises un format libre (*). Le format libre interprète les espaces comme des séparateurs. Il va donc séparer les éléments de la ligne à lire en mots et tenter d'assigner "Principles" à Name, "of" à publish_year, ... Tu devrais utiliser un format explicite si tes données sont toutes tabulées de la même façon.
06/01/2013, 16h45
FR119492
Salut!
J'ajouterais deux remarques à celles de Silvain:
1. Ton programme lit (lignes 9 à 11) 3 lignes sans intérêt alors que ton fichier de données en comporte 4 (lignes 1 à 4).
2. Il est dangereux d'attribuer aux fichiers les numéros 7 et 8, parce que, pour des raisons historiques, certains compilateurs peuvent leur donner une signification particulière. Utilise plutôt 10 et 11.
Jean-Marc Blanc
07/01/2013, 02h23
Sylvain Bergeron

Je n'avais pas vu du premier coup, mais autre source de problème : ISBN (13 digit integer).

Un entier de 13 digits, ça excède un integer 4 (32 bits). Ce dernier est limité à 2 147 xxx xxx (2^31 -1), soit 9 digits. Tu pourrais utiliser un integer 8, mais ce n'est pas toujours disponible. De toute façon, comme il est illogique de faire des opérations sur des numéros ISBN (ISBN1 +-*/ ISBN2), tu n'as aucun besoin qu'ils soient numériques. Je te conseille donc de les déclarer character (13).
07/01/2013, 16h16
jill_

- C'est une erreur à l'execution
Je comprends le probleme avec les espaces entre les mots, je dois remplacé * par quoi dans ce cas ?

- Pour les 3 lignes, je pensais qu'il fallait sauter les lignes de l'énoncé, (avec Name, publish year, et les pointillées) mais je préfererai que tout soit copier, et réecris dans le fichier 8, mais je ne savais pas comment faire, c'est pour cela que j'ai décider de les sauter ... si vous avez une solution pour que je puisse tout lire ? je veux bien :zoubi:)

- Je vais remplacer le 7 et 8 par 10 et 11, merci :)

- et je vais mettre ISBN dans les characteres :)

Voici finalement à quoi ressemble mon programme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 program dat implicit none character (len=25) :: Name character (len=13) :: ISBN integer :: i, publish_year real :: price open(unit=10, file="homework_6.dat", status="old", action="readwrite") open(unit=11, file="output_hw6.dat") !Comment: these below 3 lines are for skipping 3 heading your input read(10,*) read(10,*) read(10,*) do i=1, 10 read (10,'(7x,a25,6x,i4,3x,f6.2,5x,a13)') Name, publish_year, price, ISBN write (11,'(7x,a25,6x,i4,3x,f6.2,5x,a13)') Name, publish_year, price, ISBN 1 format(a25,i4,2x,f6.2,a13) end do close(unit=10) end program dat
Malheureusement, une nouvelle erreur apparait, à la meme ligne 14
"Error 57, attempt to read past end-of-file"

Je ne sais plus quoi faire :(

EDIT
On m'a indiqué d'ou venait l'erreur = dans la do loop !
ce n'est pas i=1, 10 mais i=1, 5 !
maintenant ca roule, j'obtiens bien le fichier avec tous ce qu'il y a d'écrit
Merci beaucoup pour votre aide ! :ccool:

07/01/2013, 18h28
Sylvain Bergeron

Tu fais do i=1, 10, puis read. Est-ce qu'il y a bien 10 lignes de données à lire ?

En général, on utilise plutôt une boucle indéfinie, mais on teste la fin de fichier à la lecture par une clause end= ou iostat=
07/01/2013, 18h34
jill_

Tu es plus rapide :zoubi:

Oui c'est exactement ça ! Et ca a résolu mon probleme :)

Encore merci !