Dim Nom As String = "Une" ' Dim leNom() As Byte = "U", "n", "e" Dim leNom() As Byte = 'U', 'n', 'e' Dim leNom() As Byte = 'Une' Dim leNom() As Byte = "Une" Dim leNom() As Byte = {"U", "n", "e"} Dim leNom() As Byte = {'U', 'n', 'e'} Dim leNom() As Byte = {U, n, e} Dim leNom() As Byte = {Nom} Dim leNom() As Byte = Nom Dim leNom() As Byte = "Nom" Dim leNom As Byte = "U", "n", "e" Dim leNom As Byte = 'U', 'n', 'e' Dim leNom As Byte = 'Une' Dim leNom As Byte = "Une" Dim leNom As Byte = {"U", "n", "e"} Dim leNom As Byte = {U, n, e} Dim leNom As Byte = {'U', 'n', 'e'} Dim leNom As Byte = {Nom} Dim leNom As Byte = Nom Dim leNom As Byte = "Nom" Dim lenom() As Byte = New Byte(3) {"U", "n", "e"} Dim lenom() As Byte = New Byte(3) {'U', 'n', 'e'} Dim lenom() As Byte = New Byte(3) 'U', 'n', 'e' Dim lenom() As Byte = New Byte(3) {U, n, e} Dim leNom As new Byte = {"U", "n", "e"}
' la variable doit faire la taille de la réception dim alpha as string * 1 Put pf, n°_octet, alpha ' = 1er octet Put pf, , Taill_variable_ecriture (écrit depuis début) Get pf, n°_octet, variable_receptrice
ecriture.Write(maVariableChaine)
Dim octet As String * 1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On ' binaire form1 fichier binaire Public Class Form1 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim lecture As System.IO.BinaryReader = Nothing Dim ecriture As System.IO.BinaryWriter = Nothing Dim leflux As System.IO.FileStream = Nothing Dim i As Integer = 0 Dim NomFichier As String = My.Application.Info.DirectoryPath & "\binaire.bin" Dim motDePasse As String = "01234567890" ' maxi 10 entiers ' Dim leNom As String = "Dupont " Dim octet(10) As Byte For i = 1 To 10 octet(i) = Asc(Mid(leNom, i, 1)) ' ACCEPTE Next i ' Try If Not System.IO.File.Exists(NomFichier) Then ' création ecriture = New System.IO.BinaryWriter(System.IO.File.Create(NomFichier)) ecriture.Write(CInt(motDePasse)) For i = 1 To 10 ecriture.Write(octet(i)) Next i ecriture.Close() End If leflux = System.IO.File.Open(NomFichier, System.IO.FileMode.Open) ' lecture lecture = New System.IO.BinaryReader(leflux) While leflux.Position < leflux.Length TextBox1.Text = TextBox1.Text & lecture.ReadInt32() For i = 1 To 10 TextBox1.Text = TextBox1.Text & lecture.ReadChar Next i End While Finally ' fermeture If Not IsNothing(lecture) Then lecture.Close() If Not IsNothing(ecriture) Then ecriture.Close() End Try End Sub End Class