RegEx : Vérifier un mot dans une liste

[falsam]

Je souhaite vérifier un mot avec une liste préexistante en utilisant les expressions régulieres.

Code : Tout sélectionner

;Vérifier un mot dans une liste
Global *RegMatch = CreateRegularExpression(#PB_Any ,"^(tomate|courgette|pomme de terre){1}")

Procedure EstUnlegume(Valeur.s)
  ProcedureReturn MatchRegularExpression (*RegMatch, Valeur)
EndProcedure

Debug EstUnlegume("courgette") ;Retournera #True

Debug EstUnlegume("pomme de terre") ;Retournera #True

Debug EstUnlegume("poire") ;Retournera #False

Ce code fonctionne bien, mais j'ai un souci avec la "casse"

Code : Tout sélectionner

Debug EstUnlegume("Courgette")

retournera #False à cause de la majuscule.
je peux bien sur modifier ce dernier exemple de cette maniére

Code : Tout sélectionner

Debug EstUnlegume(LCase("Courgette"))

mais j'aimerais quelque chose de plus propre. Pour cela, j'ai essayé de modifier l'expression régulière en ajoutant le modificateur /i (case Insensitive) à la regexp mais sans résultat.

Merci à celui ou ceux qui apporteront une réponse.

[djes]

http://forums.purebasic.com/english/vie ... p?p=230800

[falsam]

Merci djes

le code fonctionnelle avec quelques exemples

Code : Tout sélectionner

;Vérifier un mot dans une liste
Global *RegMatch = CreateRegularExpression(#PB_Any ,"^(?i)(tomate|courgette|pomme de terre){1}")

Procedure EstUnlegume(Valeur.s)
  ProcedureReturn MatchRegularExpression (*RegMatch, Valeur)
EndProcedure

Debug EstUnlegume("courgette") ;Retournera #True

Debug EstUnlegume("pomme de terre") ;Retournera #True

Debug EstUnlegume("poire") ;Retournera #False

Debug EstUnlegume("Courgette") ;Retournera #True

Debug EstUnlegume("pomme de Terre") ;Retournera #True

[graph100]

je vais lancer la polémique :

la tomate c'est un fruit, non ?

(yark yark yark )

[Mindphazer]

je vais lancer la polémique :

la tomate c'est un fruit, non ?

(yark yark yark )

Les deux ! (botaniquement parlant, c'est un fruit. Culturellement paralnt, chez nous, c'est un légume)
http://www.jesuiscultive.com/spip.php?article197
http://www.gerbeaud.com/fruit-legume-de ... tomate.php

[djes]

Merci djes

le code fonctionnelle avec quelques exemples

Code : Tout sélectionner

;Vérifier un mot dans une liste
Global *RegMatch = CreateRegularExpression(#PB_Any ,"^(?i)(tomate|courgette|pomme de terre){1}")

Procedure EstUnlegume(Valeur.s)
  ProcedureReturn MatchRegularExpression (*RegMatch, Valeur)
EndProcedure

Debug EstUnlegume("courgette") ;Retournera #True

Debug EstUnlegume("pomme de terre") ;Retournera #True

Debug EstUnlegume("poire") ;Retournera #False

Debug EstUnlegume("Courgette") ;Retournera #True

Debug EstUnlegume("pomme de Terre") ;Retournera #True

Moi je mettrais le (?i) avant le ^... Mais bon je chipote, puisque ça fonctionne

[falsam]

Moi je mettrais le (?i) avant le ^... Mais bon je chipote, puisque ça fonctionne

Bonjour Djes. Si cette manière de faire est plus académique je suis prêt à corriger le code.