Projet de création d'une liste à partir d'un fichier txt

Code:

---

If oFl.Size = 0 then 'Si le fichier est vide alors ...

---

Code:

---

If oFl.Size > 0 then 'si le fichier n'est pas vide alors ...

---

Citation:

---

Envoyé par Cachlab

Code:

---

If oFl.Size = 0 then 'Si le fichier est vide alors ...

---

Code:

---

If oFl.Size > 0 then 'si le fichier n'est pas vide alors ...

---

---

ça marche. Merci

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:

---

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 :ccool: