Comparaison entre 2 fichiers textes

Version imprimable

Bonjour,

Je voudrais faire une comparaison entre 2 fichiers textes. J'ai trouvé un script qui effectue très bien cette action. Cependant, la sortie se fait en message box pour chaque différence trouvée.
Je voudrais que l'ensemble du résultat s'écrive dans un nouveau fichier texte.
Pour progresser en script je souhaiterai avoir des indications sur ce qu'il y a à faire mais essayer de trouver la solution par moi-même.

Voici le code de départ :

Code:

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
Const ForWriting = 2, ForReading = 1, ForAppending = 8
 
Dim objFSO, fic1, fic2, fic1_op, fic2_op, fic1_rl, fic2_rl, SortieSansErreur
fic1 = "FICHIER1.TXT"
fic2 = "FICHIER2.TXT"
SortieSansErreur = True
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set fic1_op = objFSO.OpenTextFile(fic1,ForReading)
Do
	fic1_rl = fic1_op.ReadLine
	Set fic2_op = objFSO.OpenTextFile(fic2,ForReading)
	Do
		fic2_rl = fic2_op.ReadLine
	Loop Until fic2_op.AtEndOfStream = True Or fic2_rl = fic1_rl
	Set fic2_op = Nothing
	If Not fic2_rl = fic1_rl Then
		WScript.echo "Le nombre " & fic1_rl & " de " & fic1 & " n'a pas été trouvé dans " & fic2
		SortieSansErreur = False
	End If
Loop Until fic1_op.AtEndOfStream = True 'Or Not fic1_rl = fic2_rl 'Pour sortir de la boucle directement en cas de nombre présent dans fic1 inexistant dans fic2
Set fic1_op = Nothing
 
'Attention, il n'y a pas de vérification que tous les nombres présents dans fic2 soient effectivement présents dans fic1,
'la comparaison se limite à vérifier que tous les nombres dans fic1 sont bien présents dans fic2 !
If SortieSansErreur Then
	WScript.echo "Toutes les lignes de " & fic1 & " sont bien présentes dans " & fic2
Else
	WScript.echo "Il y a au-moins une ligne de " & fic1 & " qui n'est pas présente dans " & fic2
End If
 
Set objFSO = Nothing
WScript.quit

Merci pour votre aide.

J'ai commencé à avancer sur la modification du script :

Code:

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
37
38
39
 
Option Explicit
Const ForWriting = 2, ForReading = 1, ForAppending = 8
 
Dim VerifLigne
 
Dim objFSO, fic, fic1, fic2, fic1_op, fic2_op, fic1_rl, fic2_rl, SortieSansErreur
fic1 = "Fichier1.txt"
fic2 = "Fichier2.txt"
 
SortieSansErreur = True
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set fic1_op = objFSO.OpenTextFile(fic1,ForReading)
Do
	fic1_rl = fic1_op.ReadLine
	Set fic2_op = objFSO.OpenTextFile(fic2,ForReading)
	Do
		fic2_rl = fic2_op.ReadLine
	Loop Until fic2_op.AtEndOfStream = True Or fic2_rl = fic1_rl
	Set fic2_op = Nothing
	If Not fic2_rl = fic1_rl Then
 
		VerifLigne = fic1_rl & vbCrLf
 
	End If
 
Loop Until fic1_op.AtEndOfStream = True 'Or Not fic1_rl = fic2_rl 'Pour sortir de la boucle directement en cas de nombre présent dans fic1 inexistant dans fic2
Set fic1_op = Nothing
 
Set fic = WScript.CreateObject("WScript.Shell") 
             Dim fso, f 
             Set fso = CreateObject("Scripting.FileSystemObject") 
             Set f = fso.OpenTextFile("Fichier3.txt", ForWriting, true) 
             f.writeline(VerifLigne)
 
Set objFSO = Nothing
WScript.quit

Par contre je n'ai que la dernière ligne de différence qui s'affiche. Les autres doivent être écrasées au fur et à mesure de la boucle.
Il me faudrait l'ensemble des différences dans le nouveau fichier texte. Je ne sais pas où et comment gérer cette sortie de boucle.

11/02/2014, 14h41
hackoofr

:salut:
un coup d’œil ici ==> comparer deux fichier.txt
Et aussi ==> [HTA] File2Compare: Comparaison de deux Fichiers ligne par ligne
11/02/2014, 14h54
ghostvb

:salut:

J'ai déjà regardé ces scripts mais ce n'est pas de la comparaison ligne par ligne que je veux faire.
11/02/2014, 16h19
ghostvb

Normalement j'ai trouvé la solution. Je fais quelques tests pour confirmer que tout fonctionne et je poste le script en entier.

:yaisse:

Voici le script final :

Code:

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
37
38
 
Option Explicit
Const ForWriting = 2, ForReading = 1, ForAppending = 8
 
Dim objFSO, fic1, fic2, fic1_op, fic2_op, fic1_rl, fic2_rl, SortieSansErreur, FichierTXT
fic1 = "C:\Test1.txt"
fic2 = "C:\Test2.txt"
 
SortieSansErreur = True
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set fic1_op = objFSO.OpenTextFile(fic1,ForReading)
Do
	fic1_rl = fic1_op.ReadLine
	Set fic2_op = objFSO.OpenTextFile(fic2,ForReading)
	Do
		fic2_rl = fic2_op.ReadLine
	Loop Until fic2_op.AtEndOfStream = True Or fic2_rl = fic1_rl
	Set fic2_op = Nothing
	If Not fic2_rl = fic1_rl Then
 
            Set FichierTXT = WScript.CreateObject("WScript.Shell") 
             Dim fso, f 
             Set fso = CreateObject("Scripting.FileSystemObject") 
             Set f = fso.OpenTextFile("C:\Test3.txt", ForAppending,true) 
             f.writeline(fic1_rl) 
          f.close
 
		SortieSansErreur = False
	End If
Loop Until fic1_op.AtEndOfStream = True 
Set fic1_op = Nothing
 
 
 
Set objFSO = Nothing
WScript.quit

19/02/2014, 15h09
hackoofr

:salut:
Dans la ligne N°31 il vous manque un "

Code:

Set f = fso.OpenTextFile("C:\Test3".txt, ForAppending,true)
19/02/2014, 15h30
ghostvb

Rectification faite.

Merci