Boucle dans Boucle en VBS
Résolu/Fermé
shenron69
-
10 mars 2009 à 10:55
bezourox Messages postés 729 Date d'inscription vendredi 30 mars 2007 Statut Membre Dernière intervention 19 janvier 2013 - 27 mars 2012 à 15:13
bezourox Messages postés 729 Date d'inscription vendredi 30 mars 2007 Statut Membre Dernière intervention 19 janvier 2013 - 27 mars 2012 à 15:13
8 réponses
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
(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
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
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
UJe vois un pb avec ces deux ligne, je ne sais pas, je n'ai pas compilé ca mais une question :
Do While Not ObjTextStream.AtEndOfStream
Reject = Split(ObjTextStream.ReadAll, vbCrLf)
Avec la ligne, tu lit tout le fichier tet tu le décompose avec "vbCrLf" qui le retour chariot. Ainsi, Reject est un tableau qui contient toutes les lignes du fichier et donc, il né plus nécessaire de mettre le Do while. de meme pour la lecture du deixème fichier
essaye
Do While Not ObjTextStream.AtEndOfStream
Reject = Split(ObjTextStream.ReadAll, vbCrLf)
Avec la ligne, tu lit tout le fichier tet tu le décompose avec "vbCrLf" qui le retour chariot. Ainsi, Reject est un tableau qui contient toutes les lignes du fichier et donc, il né plus nécessaire de mettre le Do while. de meme pour la lecture du deixème fichier
essaye
OK j'ai supprimer les lignes
Do While Not ObjTextStream.AtEndOfStream
et
Do While Not ObjTextStream2.AtEndOfStream
maintenant il cherche tjrs la premier ligne de mon fichier A dans mon fichier B mais quand il veut passer à la ligne 2 de mon fichier A il me sort l'erreur :
Erreur : L'entrée dépasse la fin du fichier
code : 800A009E
Que signifie cette erreur?
Merci d'avance pour ton aide.
Do While Not ObjTextStream.AtEndOfStream
et
Do While Not ObjTextStream2.AtEndOfStream
maintenant il cherche tjrs la premier ligne de mon fichier A dans mon fichier B mais quand il veut passer à la ligne 2 de mon fichier A il me sort l'erreur :
Erreur : L'entrée dépasse la fin du fichier
code : 800A009E
Que signifie cette erreur?
Merci d'avance pour ton aide.
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?
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?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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?
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
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
bezourox
Messages postés
729
Date d'inscription
vendredi 30 mars 2007
Statut
Membre
Dernière intervention
19 janvier 2013
143
27 mars 2012 à 15:13
27 mars 2012 à 15:13
Je ne vois pas la résolution du problème... Tu t'en es sorti comment ?