Code : Sélectionner tout - Visualiser dans une fenêtre à part If oFl.Size = 0 then 'Si le fichier est vide alors ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part If oFl.Size > 0 then 'si le fichier n'est pas vide alors ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part If oFl.Size = 0 then 'Si le fichier est vide alors ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part If oFl.Size > 0 then 'si le fichier n'est pas vide alors ...
Je me suis aperçu que mon fichier de départ a changé ce matin. Il y a désormais répétition des ID des deux fois dans le fichier.
Du coup, mon script me créé le fichier final avec mes ID en double.
Comment dois-je m'y prendre pour supprimer les doublons dans mon fichier final?
Merci
C'est bon j'ai trouvé. Je ne sais pas si c'est du propre mais ça me donne cela et ça marche :
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 'Suppression des doublons Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile ("\\monserveur\fichier2.txt", ForReading) Do Until objFile.AtEndOfStream strName = objFile.ReadLine If Not objDictionary.Exists(strName) Then objDictionary.Add strName, strName End If Loop objFile.Close Set objFile = objFSO.CreateTextFile ("\\monserveur\fichier3.txt", ForWriting) For Each strKey in objDictionary.Keys objFile.WriteLine strKey Next objFile.Close
Je tiens à remercier l'ensemble des personnes de cette discussion. Je tiens à préciser que l'ensemble des solutions a été apportées par ce forum et que j’incite toutes personnes ayant besoins d'aides sur différents langages de développement de venir sur developpez.com (je sais ça fait de la pub!!!).
Merci encore
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