Page 1 sur 1

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

Posté : jeu. 19 nov. 2009 19:05
par 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
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 !

Re: [..] Recherche d'une suite de caractères dans

Posté : jeu. 19 nov. 2009 19:22
par 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

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

Posté : jeu. 19 nov. 2009 20:40
par 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
 

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

Posté : jeu. 19 nov. 2009 21:14
par 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