Charger un fichier en VB 2008Résolu

Question

Je débute en VB 2008 et pour charger un fichier texte j'utilise ce code:
Private Sub Chargement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chargement.Click

Dim objstreamreader As System.IO.StreamReader

OnErrorResumeNext
With OpenFileDialog1.Filter "Text files (*.txt)|*.txt|All files (*.*)|*.*".FilterIndex 1
.Title " Ouvrir un fichier ".CheckFileExists 

False

EndWith 

OpenFileDialog1.ShowDialog() 

'Affiche la boite de dialogue Openobjstreamreader = System.IO.File.OpenText(OpenFileDialog1.FileName)

Text1.Text = objstreamreader.ReadToEnd()

objstreamreader.Close()

End Sub

Mon  fichier se charge bien, mais  surprise, les lettes accentuées sont remplacées par des signes curieux.
Par contre si je colle mon texte avec le menu du clic droit, les accents sont là.
J'ai tenté de changer de Police mais  c'est pareil.
Qui peut me dire ce qui ne va pas?
Merci d'avance.

Renfield · Accepted Answer

rien a voir a vec la  police, ni le composant utilisé pour l'afichage.

OpenText, comme le dit la doc, ne permet pas de spécifier l'encodage a utiliser, et utilises le UTF-8

utilises un TextReader plutot, avec, je pense un encodage ISO-8859-1

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

a voir l'encodage de ton fichier

Sechaud · Answer

Merci pour ta réponse Renfield, mais les fichiers testés sont des fichiers ultra classiques, écrits en arial ou en courrier avec wordpad ou word ou le bloc note. J'ai aussi essayé avec un RichTextBox et c'est pareil.

Charger un fichier en VB 2008

3 réponses

Votre réponse

Discussions similaires