lecture d'un fichier binaire en VB

Bonjour,

je sais, pour avoir fait des recherches sur le site, que le sujet a déjà été abordé mais je n'ai pas trouvé mon bonheur.

Je cherche à lire un fichier binaire ayant des valeurs significatives tantôt sur 1 octet, tantôt sur 2, tantôt sur 4.
J'ai cru comprendre, au travers de l'aide, que je pouvais lire 1 octet avec une variable de type byte, 2 octets avec une variable de type integer et 4 octets avec une variable de type long.

Lorsque je "lis" des bytes ou des integer, je retrouve bien les valeurs aux quelles je m'attends.
Par contre, dès que j'utilise une variable de type long, c'est la berezina!

Ma question est la suivante : Suis-je obligé de lire mon fichier en byte puis de faire des concaténations et des conversions pour obtenir mes valeurs sur 4 octets ou bien existe-t-il une solution plus simple.

donne s'il te plait de la chaine lue avec un long
nombre attendu
chaine lue

Sous éditeur hexa, je lis 00 00 00 0A donc j'attends 10 mais j'obtiens 167772160.

Pour info, la suite du ficher en hexa est 01 04 00 02

167772160 en décimal donne 0A 00 00 00 en Hexa.

Ca devrait te donner une piste...

Ce qui voudrait dire qu'il prend la chaîne à l'envers!?

J'avais déjà fait la conversion et j'arrivais au même résultat mais je croyais que je faisais quelque chose de travers.
Donc il ne me reste qu'à lire, au mieux, des integer puis les transformer en chaîne, les concaténer pour enfin les reconvertir en "long".
C'est pas top mais bon, je vais faire avec.

Merci de vous être penchés sur mon pb.

je mettrai le sujet en résolu dès que j'aurais écris le code. Je le mettrai à dispo.

ce n'est pas tant qu'il prenne la chaine à l'envers mais qu'il en lit le complément

Alors bon, voila le code que j'ai écrit.
Peut-être existe-t-il quelque chose de mieux, sûrement même, mais je n'ai pas trouvé.

Je défini donc un type

Code:

---

1 2 3 4 5 6

Type BL I1 as Byte I2 as Byte I3 as Byte I4 as Byte End Type

---

ainsi que la fonction suivante :

Code:

---

1 2 3 4 5

Public Function ConvLong (blX as BL) as long with blX ConvLong = CLng("&h" & format(hex(.I1),"00") & format(hex(.I2),"00") & format(hex(.I3),"00") & format(hex(.I4),"00")) end with End Function

---

L'idée est de constituer une chaîne de caractères avec les nombres hexa, de la faire précéder de &h pour ensuite avec la fonction CLng faire une conversion en décimal sur un long.
Je fais un hex(.In) car quand je lis un byte, il est tout de suite converti en décimal. Le format(...,"00") permet d'avoir le nombre hexa sur 2 positions.


Et j'ai le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

... dim blVar as BL ... Open "C:\toto" For Binary Access Read as #1   Get #1, ,blVar While Not EOF(1) Debbug.Print ConvLong(blVar) Wend Close #1 ...

---

Si ça peut servir...

A l'usage je me suis aperçu que ma fonction ConvLong ne fonctionne pas très bien :oops:.
En effet l'instruction

Code:

---

format(hex(12),"00")

---

ne rend pas 0C comme je le croyais mais C

Du coup, si j'ai lu en fichier la valeur 00 00 04 0C, ConLong me renvoir 76 (4C) au lieu de 1036 (40C).

Aussi, j'ai modifié ma fonction comme suit :

Code:

---

1 2 3 4 5

Public Function ConvLong (blX as BL) as long with blX ConvLong = CLng("&h" & right("0" & hex(.I1),2) & right("0" & hex(.I2),2) & right("0" & hex(.I3),2) & right("0" & hex(.I4),2)) end with End Function

---

Le fait de concaténer un "0" m'assure d'avoir 2 digit même si je recupère une valeur entre A et F et la fonction right(...,2) m'assure d'avoir 2 digit même si la concaténation renvoie une chaine de 3 caractères

Olivier