Discussion :

[morvandelle]

Bonjour,

J'ai besoin de pouvoir lire les valeurs d'une matrice exportée en binaire sous QuickBasic 4.5 (une variante du BASIC).

La matrice C(i,j) (2x626) avait été exportée dans le fichier MATX de la manière suivante :

OPEN chemindufichier FOR BINARY AS #1 ',1400,8 1400 enregistrements de 8 octets
compteur = 1
FOR i = 1 TO 2
FOR j = 1 TO 700
PUT #1, compteur, C(i, j)
compteur = compteur + 4 '1 single = 4 octets
NEXT j
NEXT i
CLOSE #1

Je n'ai aucune idée de comment lire ce fichier, mais j'ai besoin de connaître les valeurs contenues dans cette matrice. Je pense que ça devrait être faisable avec VB et VBA, mais je n'ai aucune connaissance dans ce domaine...

Voici le fichier : j'ai ajouté l'extension en .xlsx pour qu'il soit déposable sur le forum, mais il n'avait pas d'extension.
MATX.xlsx

Pourriez-vous m'aider ?

Merci d'avance

morvandelle

[jurassic pork]

Hello,
voici une possibilité pour lire le fichier binaire :

Code :

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

1
2
3
4
5
6
7
8
Sub LireFicBin()
Dim byteArr() As Byte
Dim fileInt As Integer: fileInt = FreeFile
Open "D:\temp\Matx.bin" For Binary Access Read As #fileInt
ReDim byteArr(0 To LOF(fileInt) - 1)
Get #fileInt, , byteArr
Close #fileInt
End Sub

[EDIT] A essayer (pas sûr que cela donne le bon résultat ) :

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
Sub LireMatrice()
Dim i, j, x As Integer
Dim Matrice(1 To 2, 1 To 626) As Single
Dim byteArr() As Single
Dim fileInt As Integer: fileInt = FreeFile
Open "D:\temp\Matx.bin" For Binary Access Read As #fileInt
ReDim byteArr(0 To (LOF(fileInt) - 1) / 4)
Get #fileInt, , byteArr
x = 0
Close #fileInt
For i = 1 To 2
  For j = 1 To 266
    Matrice(i, j) = byteArr(x)
    x = x + 1
  Next j
Next i
End Sub

Ami calmant, J.P

[morvandelle]

Super, merci ! J'ai réussi à récupérer les valeurs stockées

Hello,
voici une possibilité pour lire le fichier binaire :

Code :

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

1
2
3
4
5
6
7
8
Sub LireFicBin()
Dim byteArr() As Byte
Dim fileInt As Integer: fileInt = FreeFile
Open "D:\temp\Matx.bin" For Binary Access Read As #fileInt
ReDim byteArr(0 To LOF(fileInt) - 1)
Get #fileInt, , byteArr
Close #fileInt
End Sub

[EDIT] A essayer (pas sûr que cela donne le bon résultat ) :

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
Sub LireMatrice()
Dim i, j, x As Integer
Dim Matrice(1 To 2, 1 To 626) As Single
Dim byteArr() As Single
Dim fileInt As Integer: fileInt = FreeFile
Open "D:\temp\Matx.bin" For Binary Access Read As #fileInt
ReDim byteArr(0 To (LOF(fileInt) - 1) / 4)
Get #fileInt, , byteArr
x = 0
Close #fileInt
For i = 1 To 2
  For j = 1 To 266
    Matrice(i, j) = byteArr(x)
    x = x + 1
  Next j
Next i
End Sub

Ami calmant, J.P