[vb.net][StreamReader] perte des accents

Bonjour, lorsque je lit un fichier, et que j'affiche le contenu dans une msgBox, je n'ai plus les caractère accentués.
Voici mon code

Code:

1
2
3
4
5
6
7
8
9
 
Try
            Dim line As String
            Dim sr As StreamReader = New StreamReader("c:\fichier.txt")
            Do : line = sr.ReadLine()
                    MsgBox(line.ToString)
            Loop Until line Is Nothing
        Catch
        End Try

:wink:

Procède ainsi

Code:

1
2
3
4
5
6
7
8
9
 
TextReader sr = new StreamReader( @"c:\toto.txt", Encoding.Default);
 
string text = String.Empty;
while (sr.Peek() >= 0)
{
	text += sr.ReadLine() + Environment.NewLine;
}
MessageBox.Show( text );

:wink:

vais tenter de retranscrire en vb :D merci

Code:

Dim sr As StreamReader = New StreamReader(FilePath_In, System.Text.Encoding.Default)

ça marche, par contre pour le reste, je ne vois pas se que ça apporte, remplacer le streamreader par un textreader

merci

Citation:

Envoyé par arnolem

vais tenter de retranscrire en vb :D merci

:lol:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim line As String = String.Empty Dim sr As StreamReader = Nothing Try sr = New StreamReader("c:\fichier.txt", System.Text.Encoding.Default) line = sr.ReadToEnd() Catch ex As Exception line = ex.ToString() Finally If Not(sr Is Nothing) Then sr.Close() End Try MsgBox(line)
Citation:

Envoyé par arnolem

par contre pour le reste, je ne vois pas se que ça apporte, remplacer le streamreader par un textreader

rien çà doit être une erreur de copier/coller :wink: comme faire un ToString() sur un String :)

exactement comme le dit neguib ca n'apporte rien, la seule modif est de spécifier l'encadage par défaut à l'instanciation du streamReader... :wink: