comparer deux fichiers resultat dans un 3eme

Bonjour

je cherche une aide pour résoudre un problème

j'ai un fichier " base.txt " ce fichier me serre de base de recherche il comprend

toto module A
titi module B
tutu module A

et un second fichier " resultat.txt " ce fichier est le résultat d'un ping il peux comprendre

toto
tutu
titi


je cherche a faire un script qui compare le fichier base.txt avec et le fichier resultat.txt
et si je trouve une concordance j'inscrit dans un fichier la ligne du fichier base.txt

Ex : il y a la ligne toto dans le fichier resultat.txt ainsi que dans base.txt j'inscrit dans un 3 fichier la ligne qui comprend toto ( toto module A )

Merci pour votre aide

Cdt

Lecture d'un fichier ligne par ligne et comparaison de chaque ligne avec le second fichier

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

Option Explicit   Const ForReading = 1, ForWriting = 2   Dim fso, Fich1, Fich2, Fich3, R1, R2   Set fso = CreateObject("Scripting.FileSystemObject") Set fich1 = fso.OpenTextFile("Base.txt", ForReading, False) Set fich2 = fso.OpenTextFile("Résultat.txt", ForReading, False ) Set fich3 = fso.OpenTextFile("Compared.txt", ForWriting, True )   Do While Not Fich2.AtEndOfStream   Do While Not Fich1.AtEndOfStream R1 = Fich1.ReadLine If InStr(1, R1, R2, vbTextCompare) > 0 Then Fich3.WriteLine R1 End If Loop R2 = Fich2.ReadLine Loop Fich1.Close Fich2.Close Fich3.Close

---

Voici une meilleure méthode que celle proposée avant(qui donne parfois des bizarreries) : Lecture de chaque fichier dans un tableau puis comparaison de leurs éléments :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Const ForReading = 1, ForWriting = 2   Dim fso, Fich1, Fich2, Fich3, tb1, tb2, I, J   Set fso = CreateObject("Scripting.FileSystemObject") Set fich1 = fso.OpenTextFile("Base.txt", ForReading, False) Set fich2 = fso.OpenTextFile("Résultat.txt", ForReading, False ) Set fich3 = fso.OpenTextFile("Compared.txt", ForWriting, True ) tb1 = SPlit(Fich1.ReadAll, vbCrLf) tb2 = Split(Fich2.ReadAll, vbCrLf) Fich1.Close Fich2.Close For I = 0 To Ubound(Tb1) For J = 0 To UBound(tb2) If Left(Lcase(tb1(I)), Len(tb2(J))) = Lcase(tb2(J)) Then Fich3.WriteLine tb1(I) Next Next Fich3.Close

---

Le fichier Base.txt contenant :
toto module A
Tito Module X
titi module B
Toti Module C
tutu module A
Le fichier Résultat.txt étant le même que l'original

Bonjour

cela me sort un résultat étrange

Mon fichier base.txt comporte ( fichier servant de base de comparaison ) :
toto-c001 >> TABLE A
toto-c002 >> TABLE A
toto-c003 >> TABLE A
toto-c004 >> TABLE A
toto-c005 >> TABLE A

Mon fichier resultat.txt comporte ( fichier résultant d'un ping de X machines) :
toto-c001

Après l'exécution du traitement cela me donne ( identique au fichier base.txt )
toto-C001 >> TABLE A
toto-C001 >> TABLE A
toto-c002 >> TABLE A
toto-c003 >> TABLE A
toto-c004 >> TABLE A
toto-c005 >> TABLE A

*** Moi ce que j'attend c'est plutôt un fichier contenant :

toto-c001 >> TABLE A


merci pour votre aide

J'ai fait le test le fichier 'Compared.txt' contient bien

Citation:

---

toto-c001 >> TABLE A

---

Oui effectivement mais moi ce qui m'interesse ce n'est pas d'avoir la totalité du fichier base.txt

c'est d'avoir seulement la ou les lignes qu'il trouve dans le fichier resultat.txt

si le fichier resultat.txt comporte :
toto-c001

je souhaite avoir un fichier en sortie
toto-C001 >> TABLE A

OU

si le fichier resultat.txt comporte :
toto-c001
toto-c250


je souhaite avoir un fichier en sortie
toto-C001 >> TABLE A
toto-c250 >> TABLE X


Merci pour votre aide

Dans ton avant dernier message tu dit

Citation:

---

*** Moi ce que j'attend c'est plutôt un fichier contenant :
toto-c001 >> TABLE A

---

J'ai testé et le comportement est celui que tu attend.

Citation:

---

J'ai fait le test le fichier 'Compared.txt' contient bien
toto-c001 >> TABLE A

---

Par rapport à ton dernier message, le script proposé par l_autodidacte fait exactement ce que tu recherche.

je ne comprend donc pas tes questions et je laisserai répondre l'auteur du script.

Es-tu sûr d'avoir utilisé le code modifié ?

J'ai déjà dit que le premier code sortait parfois des bizarreries alors le second fonctionne correctement.
Merci à ericlm128 pour le test(qui est déjà positif).

D'autre part, si le fichier Résultat.txt contient une ou des lignes n'ayant pas de correspondance dans le fichier Base.txt, le code ne retournera rien pour de telle(s) ligne(s).