Discussion :

[fred1599]

Bonjour,

J'en suis à mon deuxième jour de Fortran, et je cherche à lire ligne par ligne un fichier. Ça semble faire le boulot, mais je n'arrive pas à comprendre pourquoi j'ai des sauts de lignes lors de la lecture des lignes du fichier ouvert.

Au lieu d'avoir comme dans mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
a
a
a

J'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
a
 
 
a
 
 
a

Voici mon code,

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
PROGRAM f
 
    IMPLICIT NONE
    INTEGER :: i=0, ierr
    CHARACTER(len=500) :: ligne
 
    open(11, file="serv.py", action="read", iostat=ierr)
    DO
        read(11, ("(a)"), iostat=ierr) ligne
        IF (ierr == 0) THEN
            IF (ligne /= "") THEN
                print*, ligne
            END IF
        ELSE
            CLOSE(11)
            EXIT
        END IF
    END DO
 
 
 
END PROGRAM f

Merci par avance,

PS : Si vous avez des astuces sur ce langage, c'est avec plaisir que je prends, encore merci...

[fred1599]

Bon eh bien je m'auto répond, la solution est la fonction TRIM,

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
PROGRAM f
 
    IMPLICIT NONE
    INTEGER :: i=0, ierr
    CHARACTER(len=500) :: ligne
 
    open(11, file="serv.py", action="read", iostat=ierr)
    DO
        read(11, ("(a)"), iostat=ierr) ligne
        IF (ierr == 0) THEN
            IF (ligne /= "") THEN
                print*, TRIM(ligne)
            END IF
        ELSE
            CLOSE(11)
            EXIT
        END IF
    END DO
 
 
 
END PROGRAM f

[Hédhili Jaïdane]

Bonjour.

Et donc quelle serait l'origine du problème si la fonction TRIM est arrivée à le résoudre ?

[fred1599]

Et donc quelle serait l'origine du problème si la fonction TRIM est arrivée à le résoudre ?

Les caractères vides à supprimer

[Hédhili Jaïdane]

Bonjour.

D'accord, donc ce ne sont pas des sauts de lignes mais la suite vide des lignes imprimées ou affichées.

[Sylvain Bergeron]

Précision : Ce ne sont pas des vides, mais des espaces. En Fortran, les chaînes sont automatiquement complétées par des espaces lors de l'affectation avec une chaîne plus courte.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
character (10) :: S
S = 'ABC' ! S contient 'ABC       '
S = ''! S contient '          ', il n'est pas possible de "vider" S

[Hédhili Jaïdane]

Précision : Ce ne sont pas des vides, mais des espaces. En Fortran, les chaînes sont automatiquement complétées par des espaces lors de l'affectation avec une chaîne plus courte.

Bien entendu, au temps pour moi pour cet abus de langage.