[VB]Problème caractères spéciaux [Resolu]

Marsh Posté le 24-06-2003 à 18:37:45

Voilà

Je veux écrire dans un fichier le caractère '¤'.
Seulement quand j'ouvre mon fichier j'obtiens 'Â¤'

Voilà le code que j'utilise

Code :

Dim oFS As FileStream
Dim oSR As StreamWriter
Dim chaine As String
oFS = New FileStream("toto.txt", FileMode.Append, FileAccess.Write)
oSR = New StreamWriter(oFS)
'chaine = Chr(164) & " TEXTE " & Chr(164)
chaine = ChrW(164) & " TEXTE " & ChrW(164)
oSR.Close()

Message édité par archangel le 24-06-2003 à 18:58:29

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye

Marsh Posté le 24-06-2003 à 18:37:45

Marsh Posté le 24-06-2003 à 18:51:59

Code :

'chaine = Chr(164) & " TEXTE " & Chr(164)

ça c'était OK

Code :

chaine = ChrW(164) & " TEXTE " & ChrW(164)

ça c'est pas OK -> c'est de l'unicode, tu as donc 2 bytes pour un caractère.

Maintenant, si tu ne vois pas ton caractère quand tu regardes le fichier via un viewer externe, ce peut être à cause du code de page qui n'est pas le même.

Message édité par drasche le 24-06-2003 à 18:52:18

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

Marsh Posté le 24-06-2003 à 18:57:43

En faite j'avais essayé les deux mais aucun ne marchait.

Bon maintenant j'ai la solution, le StreamWriter encode en unicode par défaut, il faut donc faire ce qui suit :

Dim oFS As FileStream
Dim oSR As StreamWriter
Dim chaine As String

oFS = New FileStream("toto.txt", FileMode.Append, FileAccess.Write)
oSR = New StreamWriter(oFS , System.Text.Encoding.Default)

chaine = Chr(164) & " TEXTE " & Chr(164)

oSR.Close()

Après par contre je sais pas comment il gère le Chr et ChrW [:spamafote]

Message édité par archangel le 24-06-2003 à 18:58:05

---------------
J'suis timide - Prêt à mourir, mais pas à vivre - Je suis vraiement très fatigué ... - more than meets the eye

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *