[R] Retrouver du texte dans une page web

[elcuicui]

Bonjour,

J'ai un petit soucis sur mon code, je dois tester si une ligne de texte apparaît ou non dans une page, et je n'ai pas trouvé mieux que les expressions régulières pour tester ça, sauf que ça ne marche pas du tout !

Je joint mon code :

Code : Tout sélectionner

$phrasetest = StringRegExpReplace($ligne[17], """", "")
    $bodytext = _IEBodyReadText($oIE)
    $valeur = StringRegExp($bodytext, $phrasetest)

Donc $ligne[17] contient ma phrase à retrouver, sauf qu'il arrive que celle ci ait une valeur du genre :

Code : Tout sélectionner

Avec un versement initial (brut de frais de versements) de xxx € et des versements programmés mensuels de xxx € (brut de frais de versement), vous obtiendrez dans xx années un capital de xxx € (hors fiscalité des rachats).
 

Du coup, je ne sais pas si le fait de mettre les parenthèses du coup ça me fait pas foirer quelque chose... Si vous avez des idées, n'hésitez pas, je cherche depuis un bout de temps sans savoir comment me dépêtrer de cette situation.

Merci d'avance !!

[sylvanie]

Bonsoir,
oui votre soucis réside bien en ceci.
Il faut retraiter la pattern de recherche en remplaçant les ( ) respectivement en \( et \) :

Code : Tout sélectionner

$phrasetest = StringRegExpReplace('test de (quote) "" !', """", "")
$phrasetest = StringRegExpReplace($phrasetest, "([\x28\x29])", "\\$1") ; ici on regarde si on trouve (, alias \x28, ou ), alias \x29 pour les remplacer par \\ (ce qui donne \ tout court) puis la parenthèse détectée via sa backward référence cad $1
ConsoleWrite($phrasetest&@CRLF)
$test2='test de (quote)  ! 2 le retours'
ConsoleWrite(StringRegExp($test2,$phrasetest)&@CRLF)
 

[mikell]

De toute façon tester la présence de toute une phrase qui fait 2 lignes me semble un brin casse-gueule
Pourquoi ne pas simplement trouver des mots-clé et les tester dans la regexp ?

BTW remarque que StringInStr est quand même moins compliqué...

Code : Tout sélectionner

If StringInStr($bodytext, $phrasetest) Then $bingo

[elcuicui]

Ok, nikel, tout marche bien ! Merci tous