Discussion :

[yoyo-tns]

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

[l_autodidacte]

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

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

[l_autodidacte]

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 :

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

[yoyo-tns]

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

[ericlm128]

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

toto-c001 >> TABLE A

[yoyo-tns]

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

[ericlm128]

Dans ton avant dernier message tu dit

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

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.

[l_autodidacte]

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