Salut à tous !
J'en avais donné les principes ici il y a quelques temps.
Aujourd'hui, voici une fonction toute faite de recherche de la présence d'une
chaîne dans une autre utilisant les expressions régulières.
Début du code JawsScript
Int Function RegTest (string sText, string sPattern, int blGlobal, int
blIgnoreCase, int blMultiline)
; Recherche avec regexp
; renvoi true si le pattern est trouvé dans le texte donné.
var
int i,
object reg
; création d'un objet regexp des expressions régulières
let reg = CreateObjectEx ("vbscript.regexp", false)
; la recherche est-elle globale ?
if blGlobal > 0 then
let reg.Global = -1 ; équivaut à true
else
let reg.Global = 0 ; équivaut à false
EndIf
; la recherche ignore-t-elle la cass ?
if blIgnoreCase > 0 then
let reg.IgnoreCase = -1
else
let reg.IgnoreCase = 0
EndIf
; La recherche est-elle multiligne ?
if blMultiline > 0 then
let reg.Multiline = -1
else
let reg.Multiline = 0
EndIf
; Assignation du pattern de l'expression régulière (PCRE)
let reg.Pattern = sPattern
; recherche si présence et renvoi de résultat
if reg.Test (sText) == -1 then
return true
else
return false
EndIf
EndFunction
Fin du code JawsScript
Chez moi, je l'ai créée pour l'intégrer dans un script de recherche rapide à
l'intérieur d'un dossier contenant un grand nombre d'éléments.
Amicalement !
Yannick Daniel Youalé
