Expression régulière
Publié : mar. 01/janv./2008 20:17
Rien de transcendant dans ce code c'est juste pour indiquer des liens qui vont bien, et l'utilisation des Classes de caractères POSIX (par exemple [:digit:]).
Code : Tout sélectionner
;First start : http://en.wikipedia.org/wiki/Regular_expression
;PB utilise http://www.pcre.org/
;Pattern$="[abc]" ; a, b or c
;Pattern$="[[:digit:]]" ; Chiffre
Pattern$="[c].[a]" ; c.a (. est un a joker)
If CreateRegularExpression(0, Pattern$)
Dim resultat$(0)
a = ExtractRegularExpression(0, "abc 6 cqab cra", resultat$())
For k=0 To a-1
MessageRequester(Str(k+1) + " / " + Str(a), "Pattern = " + Pattern$ + #LFCR$ + "Résultat = " + Resultat$(k))
Next
Else
MessageRequester("Erreur", RegularExpressionError())
EndIf