supprimer doublons streamreader

Question

Bonjour tout le monde.

Je voudrai savoir comment je pourrai supprimer des doublons dans un fichier txt (streamreader)

exemple fichier : 
a
b
c
d
a
a
b
e
d

et je voudrai:
a
b
c
d
e

Y-a t-il une fonction?

Merci pour vos réponses....

Alex

alosamoelle · Answer

bonjour,
si ton fichier n'est pas gros tu mets les lignes dans un listbox et avant de l'insérer tu vérifie si elle existe déja.
si le fichier est plus gros travaille tes lignes dans un tableau ex: ligne(1000) et vérifie de la même manière.

cs_christoni · Answer

Bonjour, une solution :
    '*** Récupération du chemin de l'application et des données enregistrées.
    '    Pour simplifier, "MonFichBrut.txt" comprenant l'exemple est dans bin-->Debug
    Public pathExe As String = My.Application.Info.DirectoryPath & ""

    '*** Un bouton sur le form pour tester :
    Private Sub btnSansDoublon_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnSansDoublon.Click
        Dim text As String
        text = CStr(LoadMonFichierSansDoublon(pathExe & "MonFichBrut.txt"))
        MessageBox.Show(text)
    End Sub

    Function LoadMonFichierSansDoublon(ByVal path As String) As String

        Dim valeur As String = ""
        Dim pattern As String
        Dim nouvValeur As String

        ' Create an instance of StreamReader to read from a file.
        Using sr As IO.StreamReader = New IO.StreamReader(path)
            '*** Chargement du premier caractère du fichier.
            '    Renseignement de la chaîne contenant les caractères 
            '    déjà présents. 
            valeur = Convert.ToChar(sr.Read())
            pattern = "[" & valeur & "]"

            Do While sr.Peek() >= 0
                '*** Chargement du caractère suivant.
                nouvValeur = Convert.ToChar(sr.Read())
                '*** Si ce nouveau caractère est different de pattern,
                '    on le conserve.
                '    Et l'on supprime les nouvelle ligne et retour chariot
                '    de la chaîne "pattern", pour conserver les sauts de lignes
                '    sinon on les réintègre pour ne pas avoir de lignes vides. 
                If nouvValeur <> System.Text.RegularExpressions.Regex. _
                Match(nouvValeur, pattern).Value Then
                    valeur = valeur & nouvValeur
                    pattern = System.Text.RegularExpressions.Regex. _
                           Replace(pattern, "[
]", "")
                Else
                    pattern = "[" & valeur & "
]"
                End If
            Loop
            sr.Close()
            Return valeur
        End Using

    End Function
bonne continuation.

Supprimer doublons streamreader

2 réponses

Votre réponse

Discussions similaires