Discussion :

[joefou]

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 :

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
 
        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 )

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 !

[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

[joefou]

Merci Pol63, je vais essayer de cette façon et voir ce que cela donne !

[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.

[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.

[StringBuilder]

Arf

[joefou]

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 :

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

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