Traiter un fichier en binaire

Signaler
Messages postés
38
Date d'inscription
vendredi 27 avril 2001
Statut
Membre
Dernière intervention
18 mars 2008
-
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
-
J'aimerais ecrire un fichier en mode binaire, en rentrant des 0 et des 1. Si il n'existe pas de moyen d'y arriver directement est ce que qqun pourrait me filer un bout de code qui me le permettrait merci d'avance.

3 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

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>
0
Messages postés
38
Date d'inscription
vendredi 27 avril 2001
Statut
Membre
Dernière intervention
18 mars 2008

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).
0
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

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