Lire des nombres dans un fichier binaire

rolcos Messages postés 4 Date d'inscription mercredi 2 février 2005 Statut Membre Dernière intervention 19 février 2006 - 2 févr. 2006 à 12:17
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 2 févr. 2006 à 21:32
Bonjour à tous,

Avec VB6, comment faire pour afficher une donnée (exemple 414F) lue dans un fichier binaire.
414F ne sont pas les caractères A et O, mais le nombre 16719.

Je n'arrive pas à afficher 16719, j'obtiens AO ou une erreur Type incompatibles.

Merci d'avance.

3 réponses

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
2 févr. 2006 à 12:57
Salut,











Dim Str As String

Dim Nbr As Integer



Str = "414F"

Nbr = Val("&H" & Str)

MsgBox Nbr





pourquoi passer par une conversion, alors qu'il suffit de lire directement dans un Integer

si la donnée bien sur est dans le bon sens (little-endian)



Daniel
0
rolcos Messages postés 4 Date d'inscription mercredi 2 février 2005 Statut Membre Dernière intervention 19 février 2006
2 févr. 2006 à 20:17
Merci Daniel pour cette solution mais elle ne résoud pas vraiment mon pb.

Prenons par exemple un fichier dans lequel il y a 4 fois la lettre F.
Si je l'ouvre avec un éditeur hexa je lis : 46 46 46 46.
Ce qui m'intéresse c'est la valeur en décimal de 46464646, soit 1179010630.

Merci encore.
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
2 févr. 2006 à 21:32
la réponse est là pourtant:

MsgBox Val("&H" & "46464646")


Daniel
0
Rejoignez-nous