Discussion :

[arnolem]

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 :

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

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

[del-dongo]

Procède ainsi

Code :

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

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

[arnolem]

vais tenter de retranscrire en vb merci

Code :

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

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

[neguib]

vais tenter de retranscrire en vb merci

Code :

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

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)

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 comme faire un ToString() sur un String

[del-dongo]

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