Discussion :

[jejeapollo]

Bonjour,

Je cherche a comparer deux fichiers textes et sortir les differences entre le Fichier 2 et le fichier 1 dans un troisieme fichier texte. Voici mon code actuel

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
Const ForReading = 1
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.OpenTextFile("D:\VBS\Comparetxtfile\file1.log", ForReading)
 
strCurrentDevices = objFile1.ReadAll
objFile1.Close
 
Set objFile2 = objFSO.OpenTextFile("D:\VBS\Comparetxtfile\file2.log", ForReading)
 
Do Until objFile2.AtEndOfStream
    strAddress = objFile2.ReadLine
    If InStr(strCurrentDevices, strAddress) = 0 Then
        strNotCurrent = strNotCurrent & strAddress & vbCrLf
    End If
Loop
 
objFile2.Close
 
'Wscript.Echo "Addresses without current devices: " & vbCrLf & strNotCurrent
 
Set objFile3 = objFSO.CreateTextFile("D:\VBS\Comparetxtfile\result.log")
 
objFile3.WriteLine strNotCurrent
objFile3.Close

Je cherche a comparer les fichiers entiers par exemple si le fichier 1 contient :
banane
Abricot
Pomme

Et le fichier 2
Banane
Abricot
Pomme
Banane

Le fichier 3 devra resortir banane meme si celui ci est présent dans le fichier 1..

[omen999]

bonjour,
ce code récupéré sur le blog Scripting Guy fait très exactement le travail demandé, c'est à dire une comparaison globale du fichier et non ligne par ligne...
tu ne précises pas avec quel contenu tu souhaites alimenter ton fichier 3
en cas de différence entre les deux lignes des fichiers 1 et 2, quels items doivent être écris dans le fichier 3, celui du 1, du 2 ou les deux ?

[hackoofr]

avec ce terme File2Compare