Traiter un fichier en binaire
cs_pedro
Messages postés
38
Date d'inscription
vendredi 27 avril 2001
Statut
Membre
Dernière intervention
18 mars 2008
-
18 juin 2002 à 12:16
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 18 juin 2002 à 16:19
fredlynx Messages postés 662 Date d'inscription mercredi 16 janvier 2002 Statut Modérateur Dernière intervention 16 octobre 2010 - 18 juin 2002 à 16:19
3 réponses
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
18 juin 2002 à 12:49
18 juin 2002 à 12:49
La fonction put #1,Position,Octet$ peut te permettre de sauver octet par octet ... maintenant à toi de créer tes octets par rapport à tes bits ...
Le seul soucis c'est que tu ne pouras avoir que des taille de fichier * 8 Bits...
<center>http://www.lynx-asp.fr.st
WebMaster</center>
Le seul soucis c'est que tu ne pouras avoir que des taille de fichier * 8 Bits...
<center>http://www.lynx-asp.fr.st
WebMaster</center>
cs_pedro
Messages postés
38
Date d'inscription
vendredi 27 avril 2001
Statut
Membre
Dernière intervention
18 mars 2008
18 juin 2002 à 15:38
18 juin 2002 à 15:38
merci bcp ms en fait je sais pas comment faire un bout de code qui apartir des 1 et des 0 me genere un numero deciaml d'octet (de 0 a 255).
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
18 juin 2002 à 16:19
18 juin 2002 à 16:19
Fonction BinDEc
Result=BinDec("11111111")
= 255
Private Function BinDec(CodeBin As String) As Long
Dim CodeDec As Long
Dim Boucle As Integer
CodeDec = 0
For Boucle = 1 To Len(CodeBin) If Mid(CodeBin, Len(CodeBin) - Boucle + 1, 1) "1" Then CodeDec CodeDec + (2 ^ (Boucle - 1))
Next
BinDec = CodeDec
End Function
<center>http://www.lynx-asp.fr.st
WebMaster</center>
Result=BinDec("11111111")
= 255
Private Function BinDec(CodeBin As String) As Long
Dim CodeDec As Long
Dim Boucle As Integer
CodeDec = 0
For Boucle = 1 To Len(CodeBin) If Mid(CodeBin, Len(CodeBin) - Boucle + 1, 1) "1" Then CodeDec CodeDec + (2 ^ (Boucle - 1))
Next
BinDec = CodeDec
End Function
<center>http://www.lynx-asp.fr.st
WebMaster</center>