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:
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)
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)
Par contre, si je fait:
Je peux juste récupérer mon 3.43, mais à la place de 23.7, j'obtient 0.
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)
voici le code j'utilise en vb.net pour récupérer:
Ou encore pour un accès direct à la 2e valeur:
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)
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.
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)
qq'un peut m'aider? Merci
Partager