J'essaie d'écrire un fichier binaire en Fortran, et ensuite le lire en VB.Net 2.0.

Je débute avec le binaire, et fortran j'y connais pas grand chose.

Supposons le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    OPEN(unit=n_unit, file='C:\toto.txt', form='unformatted', access='direct', recl=8)
    WRITE(n_unit, rec=1) 3.43d0, 23.7D0
    CLOSE(n_unit)
Ca je n'ai aucun problème à récupérer mes deux nombres en vb.net (que ce soit en lisant les 2 nombres un après l'autre, ou bien par accès direct au 2e nombre)


Par contre, si je fait:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    OPEN(unit=n_unit, file='C:\toto.txt', form='unformatted', access='direct', recl=8)
    WRITE(n_unit, rec=1) 3.43d0
    WRITE(n_unit, rec=9) 23.7d0
    CLOSE(n_unit)
Je peux juste récupérer mon 3.43, mais à la place de 23.7, j'obtient 0.


voici le code j'utilise en vb.net pour récupérer:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
FileOpen(ff, "c:\toto.txt", OpenMode.Binary, OpenAccess.Read)
FileGet(ff, d1)
FileGet(ff, d2)
FileClose(ff)
Ou encore pour un accès direct à la 2e valeur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
FileOpen(ff, "c:\toto.txt", OpenMode.Binary, OpenAccess.Read)
FileGet(ff, d2, 9)
FileClose(ff)
Mes deux codes en vb fonctionne pour récupérer ce que j'ai écris en fortran de la première facon, mais ca ne fonctionne pas pour la deuxième méthode.

qq'un peut m'aider? Merci