Lecture/Ecriture en binaire

**benito9253** · 03/10/2009, 17h30

Bonjour,
je n'ai encore rien fait en binaire je me perd un peu dans tout ce que j'ai pu trouver sur internet...

Ce que je voudrais faire c'est écrire dans un fichier texte deja existant, sans remplacer son contenu, a partir du texte saisi dans un TextBox, et faire aussi l'inverse c'est à dire lire un fichier texte en binaire pour l'afficher dans un TextBox. Le tout écrit en Vb.Net.
Je voudrais aussi pouvoir afficher le code binaire directement dans un TextBox sans l'écrire sous forme de texte.

Quelqu'un sait il comment faire ?

merci d'avance

**Pol63** · 03/10/2009, 18h43

si c'est pour mettre dans un textbox, ca paraitrait logique de traiter le fichier en texte

m'enfin si tu veux juste voir binairement ce qu'il y a dedans ca reste faisable

il faut utiliser un System.IO.FileStream
tu peux lire un fichier, ou écrire un fichier (soit en mode rewrite soit en mode append)
et donc tu récupères ou écris des octets directement ...

**benito9253** · 03/10/2009, 21h25

j'ai essayé avec FileStream ca marche sans problème pour l'écriture. Par contre quand je veux lire le contenu du fichier ca m'affiche bien des valeurs dans le TextBox mais ce ne sont pas des valeurs binaires.

Ex: s'il y a le fichier contient le caractère "a", le TextBox va afficher: "970"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        pathFile = "C:\ecrireBinaire.txt"
        Dim TailleOctets As Long = GetFileLength(pathFile)
        If Not File.Exists(pathFile) Then
            File.Create(pathFile)
        End If
        Dim fs2 As FileStream = File.OpenRead(pathFile)
        For i = 0 To TailleOctets
            Try
                valByte = fs2.ReadByte()
                totalByte = totalByte & valByte
            Catch ex As Exception
            End Try
        Next
        fs2.Close()
        TextBox3.Text = totalByte
    End Sub
 
'cette fonction me sert juste a trouver la taille en octets du fichier
    Function GetFileLength(ByVal sPathFile As String) As Long
        Dim oFile As New System.IO.FileInfo(sPathFile)
        Dim lRet As Long
        If oFile.Exists Then lRet = oFile.Length Else lRet = -1
        oFile = Nothing
        Return lRet
    End Function
End Class

Est ce qu'il y a moyen d'afficher la valeur en binaire uniquement?

**Pol63** · 04/10/2009, 08h06

tu veux des 1 et des 0 ? des octets ? de l'hexadecimal ?

quels sont les types de valbyte et totalbyte dans ton code ? (string ?)

**benito9253** · 04/10/2009, 15h07

je voudrais obtenir des 0 et des 1
et j'ai déclaré valByte et totalByte en tant que string

**Pol63** · 04/10/2009, 18h24

readbyte te permet d'obtenir des octet, pas des bit

regarde la classe bitconverter si elle peut te donner les bit de l'octet, que tu pourras ensuite ajouter au string

nb : pour de la concaténation, la classe system.text.stringbuilder est beaucoup plus rapide qu'un string qui est obligé de réallouer de l'espace mémoire à chaque concaténation

**benito9253** · 05/10/2009, 19h02

Il semblerait que la classe BitConverter ne marche qu'avec les tableau de byte, mais je ne sais pas comment en faire un avec le code que j'ai utilisé.

Est ce qu'il n'existe pas de fonction pour lire bit par bit directement?

Sinon est ce que tu pourrais donner un exemple d'utilisation de la classe system.text.stringbuilder car je ne m'en suis jamais servit et je ne vois pas comment faire.

merci beaucoup pour les réponses

**Pol63** · 05/10/2009, 21h23

pour le stringbuilder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim sb as new system.text.Stringbuilder
sb.append(chaine)
sb.appendline(chaine) ' en plus ca rajoute un vbcrlf au bout
dim s as string = sb.tostring

sur le stringbuilder il y a aussi des méthodes replace et autres fonctions courantes sur les string ....

bitconverter doit en effet servir à convertir des données en octet et non en bit
et vu que tu as déjà des octets ...

après pour avoir les bit, il y a des tas de méthodes, on en trouve plein sur le net/google,
moi j'aurais pensé à des masques binaires (if octet and 255 = 255 ca veut dire que le bit 7 est à 1 sinon il est à 0)

**benito9253** · 06/10/2009, 20h18

ca marche!!!
merci beaucoup Pol63

Juste une dernière question:

je voudrais cette fois faire l'inverse, c'est a dire écrire dans un fichier texte en ne connaissant que la valeur de l'octet, sans convertir la lettre(par exemple pour "a" c'est 97).

J'ai essayé ce code mais le fichier reste vide...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim fs1 As FileStream =  File.OpenWrite(pathFile)
        Dim byte1(97) As Byte '97 correspond a la valeur de l'octet qui correspond à un "a" sans espace
        fs1.Write(byte1, 0, 1)
        fs1.Close()

**Pol63** · 06/10/2009, 22h03

chr et asc peuvent surement t'aider
chr(valeur as byte) retourne le caractère ascii du code
et asc c'est l'inverse, ca retourne le code ascii d'un caractère

**benito9253** · 07/10/2009, 21h03

Ce n'est pas ca le problème, c'est que quelque soit la valeur que j'utilise (et a priori pour a ce devrait bien etre "97") le fichier dans lequel je suis sensé écrire n'est même pas modifié.
Comment se fait il que cela ne marche pas?

**Pol63** · 07/10/2009, 21h29

File.OpenWrite n'ouvre pas le fichier en mode append, donc ca écrit pas à la suite du fichier
donc si tu vois toujours la meme chose dedans en écrivant toujours la meme chose dedans c'est normal
si c'est pas ton cas c'est plus embêtant ...

**benito9253** · 07/10/2009, 21h32

bin c'est justement parce que c'est embêtant que je demande si quelqu'un n'a pas une solution...

Parce que justement lorque mon fichier est vide et que j'execute le code (celui un peu plus haut) il reste vide...

**Pol63** · 07/10/2009, 21h37

alors essaye system.io.file.writeallbytes(fichier,octets())

**benito9253** · 08/10/2009, 20h15

J'ai enfin trouvé le problème...qui été du à une double erreur de ma part

Premièrement j'avais une partie de mon code sensé géré d'éventuelles erreurs qui me faisait sortir de la procédure qui contenait le code écrivant dans le fichier...

Ensuite j'ai fait une erreur pour l'assignation de la valeur des byte a ma variable. Il faut utiliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim fs1 As FileStream =  File.OpenWrite(pathFile)
        Dim byte1() As Byte = {97} 'et non pas comme j'avais mis: "Dim byte1(97) As Byte"
        fs1.Write(byte1, 0, byte1.Length)
        fs1.Close()

Voila les problèmes sont donc réglés

En tout cas merci beaucoup pour tes réponse Pol63, ca m'a énormément aidé!!!

**Pol63** · 09/10/2009, 00h35

et avant de dire qu'un code ne fait pas ce qu'il faut, il faut faire de l'execution pas à pas, ca aide à comprendre ce qu'il se passe ^^

Lecture/Ecriture en binaire

Windows Forms

Discussions similaires

Partager

Partager