[VB.NET] UTF8Encoding et TextBox

J'aimerais lire un fichier texte et l'afficher dans un TextBox mais les accents et autres caractères spéciaux ne s'affichent pas.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim fs As FileStream
        Dim path As String = "C:\MonChemin\journal.txt"
        fs = File.OpenRead(path)
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)
        Dim text As String
 
        Do While fs.Read(b, 0, b.Length) > 0
            text += temp.GetString(b)
        Loop
        fs.Close()
 
        txt_journal.Text = text

Une idée ? Merci

Re: [VB.NET] UTF8Encoding and TextBox

Citation:
Envoyé par Cyrilange
J'aimerais lire un fichier texte et l'afficher dans un TextBox mais les accents et autres caractères spéciaux ne s'affichent pas.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim fs As FileStream Dim path As String = "C:\MonChemin\journal.txt" fs = File.OpenRead(path) Dim b(1024) As Byte Dim temp As UTF8Encoding = New UTF8Encoding(True) Dim text As String Do While fs.Read(b, 0, b.Length) > 0 text += temp.GetString(b) Loop fs.Close() txt_journal.Text = text
Une idée ? Merci
je crois que les textbox ont un peu de mal avec les caractères ansi étendus
est-ce çà te fait pareil avec un richtextbox :?:

Citation:

je crois que les textbox ont un peu de mal avec les caractères ansi étendus
est-ce çà te fait pareil avec un richtextbox

Un RichTextBox dans un WebForm ??? Euh... j'ai pas ça dans la boîte à outils moi 8O

Citation:

Envoyé par Cyrilange

Citation:

je crois que les textbox ont un peu de mal avec les caractères ansi étendus
est-ce çà te fait pareil avec un richtextbox

Un RichTextBox dans un WebForm ??? Euh... j'ai pas ça dans la boîte à outils moi 8O

pardon milles pardons quel idiot je fait :oops:
bien sûr j'étais parti sur du windowsform quel béta :roll:
Bon alors autre proposition juste pour voir
si tu utilisait un streamreader pour récupérer le texte de ton fichier car il existe un constructeur avec une surcharge System.Text.Encoding
le seul plème c'est que dans ce cas il faut etre sûr que l'encodage de lecture soit le même qque l'encodage d'ecriture du fichier
Si çà marche pas alors faudra commencer à incriminer le textbox(ma première intuition) et donc là :?: :?: :?: .. ben on verra bien
allez bonne prog et excuses moi encore :oops:

Merci Neguib !!! :D

La solution est donc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim sr As StreamReader = New StreamReader("C:\MonChemin\journal.txt", System.Text.Encoding.Default) Dim line As String Dim text As String Do line = sr.ReadLine() text += line & vbCrLf Loop Until line Is Nothing sr.Close() txt_journal.Text = text
En faite, System.Text.Encoding.Default donne les codes ANSII du system et ça marche :)

Encore merci ! :D