Bonjour,

j'ai trouvé quelques posts sur la méthode StreamReader pour lire un fichier.

je l'utilise, mais j'ai un problème avec les accents. je ne les retrouve pas de mon fichier original.

ce que je fais:

j'ouvre un fichier, je lis toutes les lignes et je regarde si je trouve un string dedans. si oui, j'ajoute la ligne trouvée dans un listbox.

problème: mon listbox n'a aucun accent (le caractère accentué dans le fichier ne se retrouve pas dans ma listbox).

que faire ?

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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBt.Click
        Dim FileToOpen, StrSearch
        Dim Pos, NbLine
 
        Dim objStreamReader As StreamReader
        Dim strLine As String
 
        FileToOpen = ROBIPERFile.Text
        StrSearch = SearchStr.Text
        Result.Items.Clear()
        NbLine = 0
 
        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader(FileToOpen.ToString)
 
        'Read the first line of text.
        strLine = objStreamReader.ReadLine
 
        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing
 
            NbLine += 1
            If ((NbLine \ 200) = (NbLine / 200)) Then
                LineCpt.Text = "Lines parsed: " & NbLine
                Application.DoEvents()
            End If
            Pos = InStr(1, strLine, StrSearch)
            If (Pos > 0) Then
                Result.Items.Add(strLine)
                Application.DoEvents()
            End If
            strLine = objStreamReader.ReadLine
        Loop
 
        'Close the file.
        objStreamReader.Close()
        LineCpt.Text = "Lines parsed: " & NbLine
 
    End Sub

merci