'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"
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question