salut Yannick, et bien dis donc, moi aussi j'ai aussi le nez dans les reg exp . désolé, je n'ai pas encore lu en profondeur ou testé, mais a priori j'aurais une petite question : pourquoi n'avoir pas renvoyé tout simplement la chaine retrouvé ? peut être que ce n'est pas faisable, je ne sais pas ... tu aurais mis la variable text par référence ...
----- Original Message ----- From: Yannick Youalé To: [email protected] ; JawsScript Sent: Monday, May 12, 2014 9:44 AM Subject: [progliste] JawsScript- Fonction de recherche de texte utilisant les expressions régulières PCRE 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é --- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
