Discussion :

[1981nasr]

Bonjour,
Prière m'aider afin de supprimer les lignes en doubles dans un fichier texte
Merci par avance

[vttman]

Bonjour,

Je suggère de charger le fichier texte dans excel ou libreoffice et de supprimer les doublons en fouillant dans les options
Sinon en chargeant le bon plugin dans notepad++

[Phil Rob]

Bonjour,

Combien de lignes y a-t-il dans ce fichier ?
De combien de caractères sont-elles faites ?
Sont-elles structurées, par exemple, toujours le même nombre de mots ayant les mêmes significations (nom, prénom, localité, ...) ?
Peux-tu envoyer un exemple de lignes du fichier (2 ou 3 lignes avec du contenu fictif) ?

J'aurai un peu de temps ce soir pour y réfléchir selon tes réponses.

...

[1981nasr]

La suppression a été réalisée via la fonction ci dessous

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
    Private Sub SupDoublon(ByVal file As String)
        Dim lines As New HashSet(Of String)()
        'Read to file
        Using sr As StreamReader = New StreamReader(file)
            Do While sr.Peek() >= 0
                lines.Add(sr.ReadLine())
            Loop
        End Using
 
        'Write to file
        Using sw As StreamWriter = New StreamWriter(file)
            For Each line As String In lines
                sw.WriteLine(line)
            Next
        End Using
    End Sub