bitRésolu

Question

Salut je voudrait ecrire un bit dans un fichier(1 ou 0),comment je peut faire svp?

Gobillot · Accepted Answer

faut faire une conversion, chaine qui repr&#233;sente une valeur binaire, longueur maxi de 8, en une valeur type Byte de 0 &#224; 255.

MsgBox String2Byte ("10010010")

Private Function String2Byte(octet As String) As Byte
    Dim i As Integer
    Dim R As Byte
    For i = 1 To Len(octet)
        R = R * 2 + Mid$(octet, i, 1)
       Next
    String2Byte = R
    End Function

Daniel

Gobillot · Answer

le mininum pour &#233;crire dans un fichier c'est un octet.
tu ouvres ton fichier, tu lis ton octet &#224; la position voulu, tu modifie le bit en question avec un masque (And pour cacher, Or pour ajouter), tu r&#233;&#233;cris ton octet &#224; la m&#234;me position.
open en binaire, Get pour lire, Put pour &#233;crire...

Daniel

niketou · Answer

Non ce que je veut c'est ecrire un bit,pas un octet.
merci.

Gobillot · Answer

le mininum pour &#233;crire dans un fichier c'est un octet

Daniel

econs · Answer

Ecris donc un octet, et ne consid&#232;re qu'un bit de cet octet.

Mais quoi que tu fasses, tu &#233;criras toujours un octet.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

niketou · Answer

Ok,donc je regoupe mes valeur par 8.
b="10010010"
Comment mettre c'ette valeur en 1 octet dans le fichier svp.

niketou · Answer

Ok merci.
Au passage, en c++ je peu pas non plus ecrire un bit dans un fichier?.
Merci a vous.

Bit

7 réponses

Discussions similaires