'ouverture du fichier textes et creation du tableau Tbl Open Fichier_texte For Input As 2 Tbl = Split(Input(LOF(2), #2), vbCrLf) Close #2
Open autre_fichier_texte For Input As 1 Do Until EOF(1) 'tant qu'on est pas à la fin du fichier "1": Line Input #1, tmp 'on lis la ligne et on la stock dans la variable tmp 'Test de la présence de tous les mots du tableau pour correspondance dans la ligne tmp For i = i To UBound(Tbl) If ((InStr(tmp, Tbl(i))) > 0) Then MotPresent = True 'si on trouve un correspondance, Exit For 'on sort de la boucle, sinon on continu jusqu'a la fin End If Next If MotPresent = True Then CALL 'Insérer ici le traitement à appliquer i = 0 'reset du compteur MotPresent = False Else 'sinon on continu la lecture CALL 'Insérer ici le traitement à appliquer i = 0 'reset du compteur MotPresent = False End If 'End if à l'interieur de la boucle "DO LOOP" Loop Close #1 'fermeture du fichier temporaire "1"
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Open place1 For Input As 1 'on ouvre le fichier à analyser dont le chemin est dans "place1" et on l'inscrit dans le fichier temporaire "1" Do Until EOF(1) 'tant qu'on est pas à la fin du fichier "1": Line Input #1, tmp 'on lis la ligne et on la stock dans la variable tmp If ((InStr(tmp, mot1)) > 0) _ Or ((InStr(tmp, mot2)) > 0) _ Or ((InStr(tmp, mot3)) > 0) _ Or ((InStr(tmp, mot4)) > 0) _ Or ((InStr(tmp, mot5)) > 0) _ Or ((InStr(tmp, mot6)) > 0) _ Then 'on vérifie si le mot recherché est dans la ligne "tmp" Call test_alert 'vers sub pour tester si fausse alerte Else 'sinon on continu la lecture du fichier log et on garde en memoire la ligne en cas d'envois de mail tmp10 = tmp9 tmp9 = tmp8 tmp8 = tmp7 tmp7 = tmp6 tmp6 = tmp5 tmp5 = tmp4 tmp4 = tmp3 tmp3 = tmp2 tmp2 = tmp1 tmp1 = tmp End If 'End if à l'interieur de la boucle "DO LOOP" Loop Close #1 'fermeture du fichier temporaire "1"
Dim MonTab() as String Redim MonTab(0 To 9) MonTab(0)="..." ... MonTab(9)="..." MotPresent=False For i=0 to Ubound(MonTab) If Instr(tmp,MonTab(i))<>0 then MotPresent=True Exit For End If Next i If MotPresent then test_alert 'Pas besoin du Call Else ... End If
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.