Format en F77

Version imprimable

22/07/2009, 12h04
Pelagos

Format en F77

Bonjour,

J'ai un probleme assez con et je voudrais savoir si quelqu'un a une solution...
Je viens de creer un programme qui necessite des inputs en .txt de coordonnees X/Y en colonnes.

Le probleme, c'est que mon programme ne lit que les formats du style

4.25866,8.95566
48755,144552

Donc ou X et Y sont separées par des virgules...

Ma commande est un basique

Code:

read(19,file=nomdufichier,status='old')x,y

Ya t'il un moyen de spécifier un format pour que mon programme lise les valeurs séparés par des espaces ? (comme si dessous)

4.25866 8.95566
48755 144552

Merci d'avance !
22/07/2009, 13h36
mipicard
Normalement l'espace comme séparateur est le cas le plus standard à lire
Code:

1 2 3 OPEN(UNIT=19,NAME='nomfichier.txt',STATUS='OLD') READ(19,*) X,Y
Pour traiter les deux situations : séparateur virgule et séparateur espace, il faut lire toute la ligne dans une chaine de caractères , changer les virgules en espace puis faire une lecture interne.
22/07/2009, 14h12
Pelagos

Malheureusement non.
J'ai vu un collegue le faire sur mac, mais Force2 sous windows Vista ne reconnait malheureusement pas la disposition
J'ai le message d'erreur "unreadable file"

Une autre solution?
22/07/2009, 16h57
Sylvain Bergeron

Unreadable file ?

Le problème vient à mon avis du fait que ton read n'a pas de format et que ton fichier n'est pas unformatted. D'ailleurs, il est bizarre ton read. Les clauses NAME et STATUS sont des clauses d'un OPEN, pas d'un read.

As-tu essayé la proposition de mipicard ?
23/07/2009, 11h00
Pelagos
Yes. Et malheureusement ça marche pas.
Oui, mon read est bizzare je me suis tromper en recopiant mon code... Sorry !
Je corrige :
Code:

1 2 Open(19,file='nameofthefile',status='old') read(19,*) x,y
Donc le meme que Mipicard !
Desolé encore...
Mais ça pourrai pas venir de l'encodage du fichier TXT ?

Peux tu lire le fichier de données avec notepad (ou un autre éditeur de texte) ? Si la réponse est Oui alors cela dépasse mes connaissances :roll:!

Sinon voici le code qui lit le ligne dans une chaine de caractères, la modifie, puis la décode (si cela peut t'aider)

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
37
38
39
40
! lecture dans un string puis décodage
 
      REAL(8)     X,Y           ! données à lire
      INTEGER(4)  IOERR         ! error number during file opening or writing (system)
      INTEGER(4)  ERREUR        ! erreur number given by application
 
      INTEGER(4)  DAT           ! data file logical number
      INTEGER(4)  STDERR        ! error stream logical number
      CHARACTER*255  DAT_FNAME  ! data file name (input)
      CHARACTER*132  LIGNE      ! dummy string
      INTEGER(4)  NLEN          ! line length
 
      PARAMETER (DAT=19, STDERR=6)
 
      DAT_FNAME = 'nomfichier.txt'    ! Default file name
 
      OPEN(UNIT=DAT,NAME=DAT_FNAME,STATUS='OLD',IOSTAT=IOERR)
      IF (IOERR.GT.0) THEN
          WRITE(STDERR,'(A10,I3,A32,A)') CHAR(09)//'ERROR n°:',IOERR," DURING OPENING "//DAT_FNAME(1:LNBLNK(DAT_FNAME))
      ENDIF
 
      READ(DAT,'(A)',END=999) LIGNE
! on peut mettre un print ici pour voir la ligne lue
! write(stderr,*) LIGNE
 
      NLEN = LEN_TRIM(LIGNE)
      DO I=1,NLEN
        IF (LIGNE(I:I) == ',') LIGNE(I:I) = ' '  ! virgule -> espace
      ENDDO
 
! on peut mettre un print ici pour voir la ligne modifiée
! write(stderr,*) LIGNE
      READ(LIGNE,*) X,Y         ! décodage ligne
 
! ici un return ou goto pour ne pas passer par exception
 
C               Exceptions
 999  ERREUR = 10
      WRITE(IMP,'(A13,I3)') CHAR(09)//'WARNING: n° ',ERREUR,
      WRITE(IMP,'(A)') CHAR(09)//'End of file during read'

23/07/2009, 15h26
Pelagos

oui oui, je peux le lire...
Merci beaucoup quand même...

Je prends ton code en prime il va m'etre utile...
Apres bon tant pis virgule partout...