Extraire les données d'un fichier en BINAIRE ?

Signaler
Messages postés
16
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
18 mars 2004
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
lut, voilà j'aimerai savoir s'il est possible d'extraire directement le code binaire d'un fichier.
J'arrive à extraire les données octet par octet mais VB convertit automatiquement l'octet en numérique : bref je me retrouve avec une variable qui contient 7 par exemple alors que je voudrais 0000 0111

Merci par avance !

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
'Il faut convertir chaque octet en binaire
Private Function OctetToBin(Octet As Integer)
Dim Binaire As String * 8, Compteur As Integer, Reste As Integer
For Compteur = 0 To 7
Reste = Octet Mod 2
Octet = Octet \ 2
Mid(Binaire, 8 - Compteur, 1) = Trim(Str(Reste))
Next Compteur
OctetToBin = Left(Binaire, 4) & " " & Mid(Binaire, 5)
End Function

'et on appelle la fonction pour chaque octet :
Dim Truc as String*9
Truc = OctetToBin(7) ' 7 dans ton exemple
'Renvoie la chaîne "0000 0111"
0