Discussion :

[souaddemaroc]

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

[Zyth]

En supposant que chaque email dans le fichier est sur une ligne différente, tu n'aurais qu'à faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Reader As New IO.StreamReader("C:\Fichier.txt")
Dim Courriel As String
While(Not Reader.EndOfStream)
     Courriel = Reader.ReadLine()
     If Not Courriel.Contains("à") AND Not Courriel.Contains("é") Then 'etc...
           Me.txtfiltre.Text &= Courriel
     End If
End While
Reader.Close

[DarkMolo]

Salut,
Je reprend le code de Zyth, juste pour faire plus simple et éviter les .Contains("à") AndAlso .Contains("é")...

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
Dim Reader As New IO.StreamReader("C:\Fichier.txt")
Dim Courriel As String
Dim CaractèreABanir As Char() = "ùàéè".ToCharArray()  '...
While(Not Reader.EndOfStream)
     Courriel = Reader.ReadLine()
     If CodeConsult.IndexOfAny(CaractèreABanir) < 0 Then
           Me.txtfiltre.Text &= Courriel
     End If
End While
Reader.Close

[souaddemaroc]

Salut les amis je vais essai ce code mnt merçi

[souaddemaroc]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim Reader As New IO.StreamReader("C:\fichier.txt")
        Dim Courriel As String
        Dim CaractèreABanir As Char() = "ùàéè".ToCharArray()  '...
        While (Not Reader.EndOfStream)            Courriel = Reader.ReadLine()
            If Courriel.IndexOfAny(CaractèreABanir) < 0 Then
                Me.txtfiltre.Text &= Courriel
            End If
        End While
        Reader.Close()

J'ai un probléme dans cette ligne
Alors quoi faire ?????

[DarkMolo]

Salut,
Ce n'est fonctionnel que sous le Framework 2, si tu travailles encore avec le Framework 1 (probablement VS2003), eh bien la classe StreamReader ne contient pas encore de membre EndOfStream.
Je crois que t'aurais pu faire un petit effort pour trouver seule non:

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Reader As New IO.StreamReader("C:\fichier.txt")
Dim Courriel As String
Dim CaractèreABanir As Char() = "ùàéè".ToCharArray()  '...
Courriel= Reader.ReadLine()
        While (Not Courriel Is Nothing)
            If Courriel.IndexOfAny(CaractèreABanir) < 0 Then
                Me.txtfiltre.Text &= Courriel
            End If
            Courriel= Reader.ReadLine()
        End While
Reader.Close()

[souaddemaroc]

Salut
J'ai une erreur dans cette ligne je sais pas pourquoi, en effet j'ai pas bien compris cette ligne

Code :

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

1
2
 
If Courriel.IndexOfAny(CaractèreABanir) < 0 Then

[DarkMolo]

Salut,

souaddemaroc dit:
J'ai une erreur dans cette ligne je sais pas pourquoi, en effet j'ai pas bien compris cette ligne

Code VB.NET :

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

If Courriel.IndexOfAny(CaractèreABanir) < 0 Then

Bizarre, y'a rien qui pourrait pausait problème à ce niveau, cette ligne est précédé par un While (Not Courriel Is Nothing), donc Courriel contient bien une valeur... T'aurais pu nous donné le message d'erreur!!

Pour l'explication avec un petit F1, t'aurais pu trouver:

MSDN dit:
Signale l'index de la première occurrence dans cette instance de tout caractère dans un tableau de caractères Unicode spécifié.

Donc Courriel.IndexOfAny(CaractèreABanir) va renvoyer l'index de la première occurrence de l'un de ces char "éàùè...", ça serait entre 0 et Courriel.Length-1, sinon pour simplifier l'MSDN dit que si IndexOfAny ne trouve aucun des char il renvoie -1.

[souaddemaroc]

Salut Dark Molo
Le message d'erreur est :
La réference d'objet n'est pas défini à une instance d'objet

[DarkMolo]

D'après ce que tu dis, le Not Courriel IS Nothing n'est pas le bon test, essayes avec ce code:

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
Dim Reader As New IO.StreamReader("C:\fichier.txt")
Dim Courriel As String
Dim CaractereABanir As Char() = "ùàéè".ToCharArray()  '...
While Reader.Peek() >= 0
   Courriel= Reader.ReadLine()
   If Courriel.IndexOfAny(CaractereABanir) < 0 Then
      Me.txtfiltre.Text &= Courriel
   End If
End While
Reader.Close()

[souaddemaroc]

Salut Darkmolo
Aprés importer la liste des emails dans le Richtextbox, je veux filtrer à partir de cette richtextbox

[souaddemaroc]

Salut
Le code que tu m'a donné Darkmolo fonctionne assez trés bien, mnt je veux enlever les doublons avez vous une idée. à ce propos

[DarkMolo]

Ce n'est pas la meilleure méthode, le RichBoxText comporte une méthode qui référencie un tableau de string(Les lignes contenues dans ce RichBoxText), rassure moi, tes adresses Emails sont séparés par des retour à la ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ListDesMail As New Collections.Specialized.StringCollection
For Each AdresseMail As String In txtfiltre.Lines
    If ListDesMail.IndexOf(AdresseMail) = -1 Then
       ListDesMail.Add(AdresseMail)
    End If
Next AdresseMail
txtfiltre.Text = ""
For i As Integer = 0 To ListDesMail.Count - 1
    txtfiltre.Text &= ListDesMail(i) & Environment.NewLine
Next i
ListDesMail.Clear()

[souaddemaroc]

Salut
C'est vrai mes emails sont séparées par un retour à la ligne
Je vais essai ce code mnt

[souaddemaroc]

Salut Darkmolo
Premièrement j'ai pas bien compris le code situé en haut
Deuxièment j'ai essai ce code dans le bouton filtrer mais rien ne s'afficher dans le txtfiltre

[souaddemaroc]

Alors comment faire pour éliminer les doublons à partir de mon richtextbox ????