Discussion :

[olivier]]

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.

[random]

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

[olivier]]

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

[AlainTech]

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

Ca devrait te donner une piste...

[olivier]]

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.

[random]

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

[olivier]]

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 :

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

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 :

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

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 :

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

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...

[olivier]]

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

Code :

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

 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 :

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

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