Discussion :

[Ehjoe]

Bonjour,

Je suis en train de patauger dans le fichier binaire en vbnet10, j'ai beau lire, c'est plus ou moins complet, ça change de méthode, en fait je connais bien en txt la méthode avec stream (le flux), bref...

Alors, si quelqu'un veut bien avoir l'amabilité de prendre 5 minutes pour me faire une séquence de fichier binaire "qui fonctionne", je l'en remercie, voici la maquette de principe :

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
 
Option Explicit On
Public Class Form1 
 Sub Form1_Load(By Val sender As System.Object, ByVal e As  System.EventArgs)  Handles MyBase.Load
   Dim p As String = CStr(My.Application.Info.DirectoryPath & "\f.bin") ' pointeur
   Dim v8 As String ' de 8 octets = "duchemin"
   Dim v6 As String ' de 6 octets = "123456"
   Try
    '  ouverture lecture p
    ' lit ficher f avec p variable v8
    ' lit fichier f avec p variable v6
   Catch ex As Exception	' inexistant
    If Err.Number = 53 Then
     ' création fichier avec p
     ' écrit p variable v8
     ' écrit p variable v6
    End If
    If Err.Number <> 53 Then MsgBox("l'erreur")
   Finally
    'Close f avec p
   End Try
   MsgBox(v8 & vbLf & v6)
  End Sub
End Class

Cordialement.

[Masmeta]

Je ne comprend pas ta demande.
Si c'est de créer un fichier binaire utilise la sérialisation binaire.
Il y a le tutoriel fait par olivier Delmotte qui est bien réaliser. Il explique comment créer un fichier binaire, avec un filestream

[Ehjoe]

Je ne comprend pas ta demande.
Si c'est de créer un fichier binaire utilise la sérialisation binaire.
Il y a le tutoriel fait par olivier Delmotte qui est bien réaliser. Il explique comment créer un fichier binaire, avec un filestream

Bonjour,

Merci de tes explications que me sont d'un grand secours, alors je suis allé sur le site d'Olivier Delmotte, ici :
http://odelmotte.developpez.com/tests/

Hélas, je ne vois pas où se trouve le tutoriel évoquant les fichiers binaires, aurais-tu un hyperlien ?

Merci.
.

[Pol63]

pour coder plus simplement, on peut mettre les octets dans une collection (ou un bon vieux tableau si tu préfères ^^) et utiliser
system.io.file.writeallbytes

[Ehjoe]

pour coder plus simplement, on peut mettre les octets dans une collection (ou un bon vieux tableau si tu préfères ^^) et utiliser
system.io.file.writeallbytes

Oh j'ai du mal, je ne comprends pas exactement ce qui se passe dans le machin, ni ce que produisent exactement les directives, j'ai copié et arrangé un truc qui marche, mais il n'accepte que les chiffres ...

En fait je voudrais m'en servir pour ranger des noms et mots de passe, comme suit :
NomMdpNomMdp
Le tout attaché et formaté, disons chacun sur 16 octets de saisie dans les variables :

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
 
dim Nom as string
dim Mdp as string
'chargement
Nom = "dupont"
Mdp = "0123456789"
écrit Nom ' sur 16 octets texte collé à gauche
écrit Mdp ' sur 16 octets texte collé à gauche
Nom = "Durand"
Mdp = "98765"
écrit Nom ' sur 16 octets texte collé à gauche
écrit Mdp ' sur 16 octets texte collé à gauche
'
lit recompose Nom+Mdp position deux 
=
"Durand          98765            "

Voici mon code :

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
28
29
30
31
32
33
 
Option 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"
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))
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()
End While
Finally	' fermeture
If Not IsNothing(lecture) Then lecture.Close()
If Not IsNothing(ecriture) Then ecriture.Close()
End Try
End Sub
End Class
 
Peux-tu me montrer en lecture écriture byte par byte (octet ?), avec ls variantes, en création, en ajout au début, en ajout à une position X (lecture et écriture) ?
 
Merci.
.

[Ehjoe]

Bonjour,

Voici comment faire un fichier binaire et le gérer :

Je me réponds à moi-même, ça peut servir à d'autres puisque personne ne sait faire un fichier binaire en vbNet, il faut dire à décharge que c'est plus compliqué qu'en vb.6, voici le code (testé), copier/coller, rajouter les objets (textbox1 "multilines" + button1) et ça tourne

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Option 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 oc(10) As Byte
  For i = 1 To 10	' seule acceptée conversion byte = asc(alpha)
   oc(i) = Asc(Mid(leNom, i, 1))
  Next i
  Dim octet(10) As Integer
  For i = 1 To 10	' pour en integer rendre illisible fichier
   octet(i) = CInt(oc(i)) * 10	' tranforme en nombre int32
  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() ' si octet =  lecture.ReadChar
     For i = 1 To 10	' réduit nombre * 10 = chr(nombre / 10)
      TextBox1.Text = TextBox1.Text & Chr(lecture.ReadInt32() / 10)
     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