clisterubrique =HListeRubrique(cHfichier,hLstTriée)
POUR i = 1 A ChaîneOccurrence(clisterubrique,RC)+1
SI Majuscule(SansEspace((ExtraitChaîne(clisterubrique, i, RC)))) = ...
Majuscule(SansEspace(cHrubrique)) ALORS
RENVOYER Vrai
SORTIR
FIN
FIN
RENVOYER Faux
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=2984&post_id=12669