Discussion :

[Sba3Net]

Comment savoir la fin d'un fichier ouvert en stream pour qu'il soit lu en Binnaire! voici un petit morceau du 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
 
Dim br As BinaryReader
Dim bw As BinaryWriter
Dim fs As FileStream
Try
s = File.Open(Form1.OFD.FileName, FileMode.Open)
br = New BinaryReader(fs)
While fs.Position < fs.Length
Code.Text = Code.Text & (br.ReadInt32)
 
End While
        Finally
            'Fermeture Binaryreader
            If Not IsNothing(br) Then br.Close()
            'Fermeture Binarywriter
            If Not IsNothing(bw) Then bw.Close()
End Try

[mafyoso]

Bonjour

Tu peus essayer comme ça :

Code :

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

1
2
3
4
5
6
 
        Dim oStream As New IO.FileStream("C:\....",IO.FileMode.Open)
        Dim oBinaryReader As New IO.BinaryReader(oStream)
        While oBinaryReader.Read
            sStreamString &= oBinaryReader.PeekChar().ToString
        End While

Bon courage

[Sba3Net]

Merci pour le code mais tu peux m'expliquer un peu, j'ai rien compris avec les deux dernier lignes!

[mafyoso]

Bonsoir


oBinaryReader.Read : Cette méthode là fait avancer ton pointeur tant que tu n'est pas sur le EOF(End Of File).

oBinaryReader.PeekChar().ToString : Cette méthode récupère l'élément courant de ton stream, c'est dire la valeur de la zone sur laquelle pointe ton pointeur . Le toString() pour assurer le transtypage quoiqu'il arrive

Voilà.

Bon courage

[Sba3Net]

Merci ça va, mais j'ai décidé avec mes amis de le faire en binnaire, car on veux lire les données de n'importe quel fichier en 0 et 1, alors on a

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
 
Imports System.IO
 
Dim br As BinaryReader
Dim bw As BinaryWriter
Dim fs As FileStream
 
 
 
Try
 
 
fs = File.Open(Form1.OpenFileDialog1.FileName, FileMode.Open)
            br = New BinaryReader(fs)
            While fs.Position < fs.Length
 
                '###########################################
 
                If Form1.Choix.Text = "Code" Then
                    Form1.Code.Text = Form1.Code.Text & (br.ReadInt32)
                End If
 
End While
 
        Finally
 
            'Fermeture Binaryreader
            If Not IsNothing(br) Then br.Close()
            'Fermeture Binarywriter
            If Not IsNothing(bw) Then bw.Close()
 
 
        End Try

Sauf qu'il ya maintenat deux problèmes:

1. Le programme ne sais pas la fin du fichier, alors il plante!
2. Le code fournti n'est pas des 0 et 1, c'est entre 0 et 9 (Décimale je crois)

Alors Que Faire?!!