Description :
Vérifié les présence d'un mot dans une chaine de caractéres
Portion de code
1
2
3
4
5
6
7
8
9
10
11
|
Function Eregi(patrn, strng)
Dim regEx, retVal
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
retVal = regEx.Test(strng)
Eregi = retVal
End Function
'exemple :
If Eregi("mot","titre avec le mot ") Then response.write("mot trouvé")
|
|
Informations rapides
