Bonjour,
Je vous propose un nouvel élément à utiliser : Supprimer les lignes en double dans un fichier texte
Supprimer les lignes en double dans un fichier texte
Qu'en pensez-vous ?
Bonjour,
Je vous propose un nouvel élément à utiliser : Supprimer les lignes en double dans un fichier texte
Supprimer les lignes en double dans un fichier texte
Qu'en pensez-vous ?
Salut...
Rien à redire, parfait. avec une petite modif en VB en supprimant les "Set"
Merci
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 Option Explicit On Const ForReading = 1 Const ForWriting = 2 Sub SupprimetTexteEndouble() Dim oDict As Scripting.Dictionary Dim oFSO As Scripting.FileSystemObject Dim oFile As Scripting.TextStream Dim maCle As String Dim strName As String, Fichier As String Fichier = "C:\Test_Doublon.txt" oDict = CreateObject("Scripting.Dictionary") oFSO = CreateObject("Scripting.FileSystemObject") oFile = oFSO.OpenTextFile(Fichier, ForReading) Do Until oFile.AtEndOfStream strName = oFile.ReadLine If Not oDict.Exists(strName) Then oDict.Add(strName, strName) Loop oFile.Close() oFile = oFSO.OpenTextFile(Fichier, ForWriting) For Each maCle In oDict.Keys oFile.WriteLine(maCle) Next oFile.Close() End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager