Extraire les données d'un fichier en BINAIRE ?
nostromo2022
Messages postés
16
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
18 mars 2004
-
11 juil. 2002 à 17:52
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 13 juil. 2002 à 03:15
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 13 juil. 2002 à 03:15
A voir également:
- Extraire des données d'un fichier excel avec python
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Copier des données d'une feuille excel à une autre vba ✓ - Forum Visual Basic
- Python arrondi supérieur ✓ - Forum Flash
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Exporter données excel vers word vba - Forum Visual Basic
1 réponse
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
13 juil. 2002 à 03:15
13 juil. 2002 à 03:15
'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"
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"
