Boucle dans Boucle en VBS

Euuh je ne sais pas mais c'est quoi le pb ?? En tt ka, tu voudrais faire cela :

(Je n'ecrit pas cela dans u language bien spécifique mais juste pour l'idée)

While Not EOF(A) do
Chaine=LireLigne(A)
While NotEOF(B)
Chaine2=LireLigne(B)
if (chaine=Chaine2) then trouve=true
End

End

En Gros oui

Mon pb sais que je n'arrive pas à chercher la 2eme 3eme 4eme etc ligne de mon fichier A dans mon fichier B

Merci d'avance

Voici mon code:

Mon pb, il n'y a que la premier ligne du fichier test.ini qui est lu.
Merci d'avance pour votre aide.

Dim fso,
Set fso = CreateObject("Scripting.FileSystemObject")
Set ObjTextStream = Fso.OpenTextFile("c:\test\test.ini", 1, False)
Set ObjTextStream2 = Fso.OpenTextFile("c:\test\test.txt", 1, False)

Do While Not ObjTextStream.AtEndOfStream
Reject = Split(ObjTextStream.ReadAll, vbCrLf)
For i = 0 To UBound(Reject)

Do While Not ObjTextStream2.AtEndOfStream
Sources = Split(ObjTextStream2.ReadAll, vbCrLf)
For t = 0 To UBound(Sources)

iPos = InStr(1, Sources(t), Reject(i))
If iPos <> 0 Then
MsgBox "La valeur : "& Reject(i) &" à été trouver dans la ligne "& Sources(t)
end if

next
Loop
Next
Loop

juste pr essayer un truc,

peut tu rajouter msgbox UBound(Rejct) après :

Reject = Split(ObjTextStream.ReadAll, vbCrLf)

pour donner

Reject = Split(ObjTextStream.ReadAll, vbCrLf)
msgbox UBound(Rejct)

Ca donne koi?

Ok je voulais vérifier qu'il ya eu bel et bien une lecture de fichier qui contient normalement 3 ligne mais je retrouve une ptite erreur dans ce lignes

Reject = Split(ObjTextStream.ReadAll, vbCrLf)
For i = 0 To UBound(Reject)

Sources = Split(ObjTextStream2.ReadAll, vbCrLf)

Ceci va redécomposer a chaque fois le deuxième fichier essaye pluto d'inverser :

Reject = Split(ObjTextStream.ReadAll, vbCrLf)

Sources = Split(ObjTextStream2.ReadAll, vbCrLf)

For i = 0 To UBound(Reject)
...

Juste une question : Est ce que ta enlevé les Loop à la fin???

Ca donne quoi?

Je reprend je cherche a faire :

Dans un fichier A il y a les valeurs :
toto
tata
tutu
Dans un fichier B il y a les valeurs :
toto
tonton
cucu
mumu
pupu
tutu

Je prend la premiere valeur du fichier A et je cherche si elle est présente dans mon fichier B.
Exemple : toto => présent dans mon fichier B alors je test la valeur suivante.
Exemple 2 : tata => non présent dans mon tous mon fichier B alors j'écrit tata dans un fichier *.txt.

Merci d'avance pour ton aide

Un peut d'aide svp

Je ne vois pas la résolution du problème... Tu t'en es sorti comment ?