Discussion :

[nurks]

Bonsoir,

J'essaye de lire un chaine de charactere formatée dans un fichier : " PARAMETER (NE_M=10,NL_M=12)"
pour finalement replacer le '12' par '11'.

J'ai essayé comme ça (entre autre ) , sans succès :

Code :

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

1
2
3
4
5
integer :: i
character(len=30) :: text
10 format(6x,24a,2i) text,i
read(text_data,10) text, i
write(6,10) text, 11

[__dardanos__]

Salut,
Le format ne correspond pas à la chaîne. Voici 2 exemples :

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
program main
    implicit none
    integer, parameter :: LSTR = 30
    integer :: i1, i2
    character(len=LSTR) :: text = " PARAMETER (NE_M=10,NL_M=12)"
    character(len=LSTR) :: tmp, tmp1, tmp2, tmp3
 
10  format(a17, i2, a6, i2, a1)
    read(text, 10) tmp1, i1, tmp2, i2, tmp3
    write(tmp, 10) tmp1, i1, tmp2, 66, tmp3
    print '(2(i2,x),a)', i1, i2, trim(tmp)
 
11  format(" PARAMETER (NE_M=", i2, ",NL_M=", i2, ")")
    read(text(18:19), '(i2)') i1
    read(text(26:27), '(i2)') i2
    write(tmp, 11) i1, 66
    print '(2(i2,x),a)', i1, i2, trim(tmp)
 
end program main

[nurks]

Génial, encore merci pour ta réponse, ça m'aide beaucoup !