Comparaison fichiers TXT en vbscript [Résolu]

[marcuselli]

Bonjour

J'ai un petit soucis en VBS
Je vous explique mon objectif :
Je dispose de deux fichiers dans lesquels sont listés des chiffres : ex
Fichier1 Fichier 2
12 55
15 66
656 954
45 21
546 655
22 45
.... .....

En fait je voudrai vérifier si les chiffres présents dans le fichier 1 existent dans le fichier 2 !
Ça parait tout bête mais je tourne en rond.
Je précise que tous les chiffres présent dans un fichier sont Unique.

J'ai la trame de ce qu'il faut faire dans ma tête mais je n'arrive pas à la coder :
- ouvrir les deux fichiers en lecture
- récupérer les lignes une par une dans chacun des deux fichiers
- comparer les lignes

si quelqu'un a une idée, elle est la bienvenue !

Merci d'avance.

cordialement

[Daynvheur]

La version la plus basique possible serait certainement :

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

Comme indiqué en commentaire, il n'y a pas de vérification sur le contenu de fic2, donc (si fic2 contient plus de lignes) certaines lignes de fic2 peuvent ne pas être présentes dans fic1.

- Ouvrir un fichier en lecture : Set fic1_op = objFSO.OpenTextFile(fic1,ForReading)
Ne pas oublier de relâcher l'objet par Set fic1_op = Nothing
- Récupérer les lignes une par une dans chacun des deux fichiers : une double boucle qui parcoure chaque ligne de fic1 pour la comparer avec les lignes de fic2
- Comparer les lignes : lire la ligne dans une variable texte (fic1_rl = fic1_op.ReadLine), puis comparer à toutes les autres lignes de fic2 par un fic2_rl(variable)=fic1_rl.

[marcuselli]

C'est exactement ce que je voulais !

Merci beaucoup pour ton aide.