[..] Recherche d'une suite de caractères dans un fichier

[DJSIR]

Bonjour. J'ai un petit prob'

J'ai dans un fichier tout un tas de site malveillants (660) dont un est extrait dans le spoiler :

► Afficher le texteExtrait

Code : Tout sélectionner

10CentCashoutPTC.com 
10Dollar-Mail.com 
10EuroMails.com 
12Bux.com 
1CentEmails.com 
1DollarPTC.com 
2-Dollar-Mail.com 
2008Mails.com 
200EuroMails.net 
247Bux.com 
247Payouts.com 
2Dollar50Bux.com 
3-Dollar-Mail.com 
4990USD.com 
5-Dollar-Mail.com 
5EuroMails.com

Donc, j'aimerais vérifier que le site ou je navigue n'est pas dans la liste.
J'ai commencé a utiliser StringInStr mais, si je recherche "4990USD.com" dedans, ça fonctionne mais si je met "http://4990usd.com/" bah, ça trouve rien.

C'est pour ça que j'ai besoin de vous !

[jbnh]

Exemple :

Code : Tout sélectionner

_FileReadToArray("blabla.txt", $array)
For $X = 1 to $Array[0]
    If StringInStr($array[$X], "google.com") Then
     msgbox(0,"","string trouvée") 
        
    EndIf
Next

[DJSIR]

Hum.. non ça ne fonctionne pas.

Code : Tout sélectionner

#include <File.au3>
Local $array
$e = 0
_FileReadToArray("safe.txt", $array)
For $X = 1 to $Array[0]
    If StringInStr($array[$X], "http://2008Mails.com") Then $e = 1
Next
If $e = 1 Then
     msgbox(0,"","string trouvée")
 Else
     msgbox(0,"","string non trouvée")
 EndIf
 

[sylvanie]

Normal, la string et la substring recherchée sont inversées dans l'appel :

Code : Tout sélectionner

If StringInStr( [color=#00BF00]"http://2008Mails.com"[/color],[color=#0040FF]$array[$X][/color]) Then $e = 1