Discussion :

[Cachlab]

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 ...

[genius2139]

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 ...

ça marche. Merci

[genius2139]

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

[genius2139]

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

[genius2139]

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