Salut
L'application que je développe consiste à lire un fichier texte(qui contient des emails) et d'exporter les emails vers un ritchtextbox on cliquant sur le bouton parcourir
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
 
Private Sub btnparcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnparcourir.Click
        'creation de l'objet  boite de dialogue ouvrir
        Dim InstOpenFile As New OpenFileDialog
        '***Parametrage boite de dialgoque ouvrir****'
        'Le path de l'ouverture de la boite de dialogue
        InstOpenFile.InitialDirectory = "c:\"
        'le filtre pour les fichiers
        InstOpenFile.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        InstOpenFile.FilterIndex = 1
        'restauration du répertoire inial apres la fermeture de la boite de dialogue
        InstOpenFile.RestoreDirectory = True
        '****Affiche la boite de dialogue****'
        If InstOpenFile.ShowDialog() = DialogResult.OK Then
            TcheminFichier.Text = InstOpenFile.FileName
             f = File.OpenRead(TcheminFichier.Text)
            enreg = New StreamReader(f, System.Text.Encoding.Default)
            enreg.BaseStream.Seek(0, SeekOrigin.Begin)
            '.peek defini le caractere suivant, si =-1 c'est qu'il n'y a plus de caractere
            'donc la fin du fichier est atteinte
            compteur = 0
            While enreg.Peek() > -1
                'Dim rep As String = enreg.Peek
                TResFichier.Text = TResFichier.Text + enreg.ReadLine() + vbNewLine
                compteur = compteur + 1
            End While
            'affiche les infos du fichier
              Else
            TcheminFichier.Text = "Veuillez choisir un fichier   --->"
        End If
        Me.nbrenreg.Text = "Nombre d'enregistrements :" & compteur
    End Sub
Dans le ritchtextebox,des emails peuvent comporter des lettres accentués (é,à,â ...) alors ce que je veux c'est d'enlever les emails qui contient ces lettres en cliquant sur le bouton filtrer
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
 
 f = File.OpenRead(TcheminFichier.Text)
        enreg = New StreamReader(f, System.Text.Encoding.Default)
        enreg.BaseStream.Seek(0, SeekOrigin.Begin)
        While enreg.Peek >= 0
            CaractereLu = enreg.ReadLine
            Dim tab(CaractereLu.Length) As String
            For i = 1 To CaractereLu.Length
                tab(i) = Mid(CaractereLu, i, 1)
            Next
            For i = 1 To CaractereLu.Length
                If tab(i) = "é" Or tab(i) = "è" Or tab(i) = "à" Or tab(i) = "ç" Or tab(i) = "ê" Or tab(i) = "â" Or tab(i) = "ù" Then
                    i = i + 1
                    Me.txtfiltre.Text &= tab(i)
                Else
                    Me.txtfiltre.Text &= tab(i)
                End If
            Next i
        End While
        enreg.Close()
    End Sub
Mais le problème, c'est que juste les lettres accentués qui disparait c'est à dire à la place d'enlever toute la ligne c'est juste le caractére accentué qui disparait