[VB.NET 2005] Fichier binaire et caractère en trop

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous !

Je rencontre un soucis ave la création d'un fichier binaire dans lequel j'inscris des instructions à destination d'une imprimante spéciale ; voici le code utilisé:

Code:

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
 
        Try
            If File.Exists(CheminFichier) Then
                File.Delete(CheminFichier)
            End If
            Fichier = New FileStream(CheminFichier, FileMode.Create, FileAccess.Write)
            BW = New BinaryWriter(Fichier)
            Texte = ChrW(10)
            Texte += "123456"
            Texte += ChrW(29) & "w" & ChrW(0) & ChrW(0)
            Texte += ChrW(29) & "P" & ChrW(1)
            Texte += ChrW(29) & "h" & ChrW(60)
            Texte += ChrW(29) & "H" & ChrW(0)
            Texte += ChrW(29) & "f" & ChrW(0)
            Texte += ChrW(29) & "k" & ChrW(4) & CodeBox.Text.Trim() & ChrW(0)
            Texte += ChrW(10)
            Texte += removeAccents("Libellé produit")
            Texte += ChrW(12)
            BW.Write(Texte)
            BW.Flush()
            Fichier.Flush()
        Catch Iex As Exception
            MsgBox(Iex.Message, MsgBoxStyle.Exclamation)
        Finally
            If Not BW Is Nothing Then
                BW.Close()
            End If
            If Not Fichier Is Nothing Then
                Fichier.Close()
            End If
            Fichier = Nothing
        End Try

Le contenu du fichier ainsi créé est visible sur la pièce jointe (je n'ai pas pu le mettre directement visible dans le message :aie:)

En l'occurrence j'ai toujours un "4" en début de fichier, et je ne l'inscrit nulle part. Qu'ai-je omis dans mon code ?

D'avance merci !

05/12/2011, 12h00
Pol63

essaye de gérer toi même les octets puis de faire write(byte())
et puis il y a des méthodes raccourcis genre system.io.File.writealltext / writeallbytes

ca évite d'écrire 15 lignes de code
08/12/2011, 11h57
joefou

Merci Pol63, je vais essayer de cette façon et voir ce que cela donne !
08/12/2011, 12h03
StringBuilder

Je trouve ça bizarre que tu écrives une string dans un fichier binaire.

=> La chaîne est encodée en UNICODE par défaut, on est loin des bytes que tu attends. J'imagine que le "4" en trop, c'est justement un entête qui indique l'encodage, comme on le trouve avec UTF-8.

Commence par créer un byte[] à partir d'un ANSI.Encoding() de ta string, puis d'envoyer le byte[] tel quel dans le fichier.
08/12/2011, 13h08
DonQuiche

Bonjour. :)

La chaîne est écrite via un BinaryWriter. Le premier caractère est donc la longueur de la chaîne, ici 52 (le code ASCII pour "4"). ;)
On aurait pu simplement utiliser un TextWriter à la place.
08/12/2011, 13h18
StringBuilder

Arf :ccool:

Merci à tous pour vos indications !

Alors j'ai finalement inhibé toutes les lignes en rapport avec le BinaryWriter, et j'ai utilisé le code suivant pour inscrire mes données:
Code:

1 2 3 4 5 Dim CA As Char() = Texte.ToCharArray() For I = 0 To CA.Length - 1 Fichier.WriteByte(AscW(CA(I))) Next I