Discussion :

[benito9253]

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]

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]

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]

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]

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

[Pol63]

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]

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