Discussion :

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

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

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

[neguib]

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 :

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

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 :

[Cyrilange]

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

[neguib]

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

pardon milles pardons quel idiot je fait
bien sûr j'étais parti sur du windowsform quel béta
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

[Cyrilange]

Merci Neguib !!!

La solution est donc :

Code :

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

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 !