Problème avec mon expression régulière

Bon...ce message est un problème de vbScript mais il n'y a pas de catégorie....

Voilà mon soucis.
J'utilise l'objet VBScript_RegExp_55.RegExp pour retrouver des valeur dans un text. Voici le format du text :
xxxxx: text à retrouver
yyyyy: autre text
zzzzzz: encore un
aaaaaaa:
voilà le text que je n'arrive pas à retrouver
car il contient des retour à la ligne
Fin

mon but, c'est de récupérer le text donc avec reg.Pattern = CeQueJeVeuxRetrouver & ": (.*)\r" Si CeQueJeVeuxRetrouver  = "xxxxx", ca me renvoie text à retrouver etc....Le problème, c'est pour le "aaaaaaa" en effet, le caractère . représente tous les caractère sauf \r or le champs commence par un \r. Comment dois-je faire ??? je pensais faire qqch comme ça :  reg.Pattern = CeQueJeVeuxRetrouver & ": (.*)Fin" mais forcément, vu que le . représente tous sauf \r ça ne fonctionne pas...

Merci pour votre aide

White_Mage();

Set oReg = CreateObject(".... oReg.Pattern = "...." oReg.Multiline = True tu peux utiliser : http://www.vbfrance.com/codes/REGEXP-WORKSHOP_17331.aspx pour tester ta regexp. nb. il existe bien une section propre au VBS ^^

 Bonjour à tous,

Bonjour Renfield,

il faut protéger le \en le doublant.

ex:
Option Explicit
Const Texte = "00:08:17 S: DS \rOOUT OT *;"
Const sChaine = "DS \\rOOUT"   'chaine recherchée
Dim resultat
If RegExpTest(sChaine, Texte) = True Then resultat = resultat &vbcrlf
'If RegExpTest(sChaine, Texte) = False Then msgbox "expression non trouvée...false"
MsgBox resultat,,"resultat"

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches, RetStr   ' Crée la variable.
   Set regEx = New RegExp   ' Crée une expression régulière.
   regEx.Pattern = patrn   ' Définit les critères.
   regEx.IgnoreCase = True 'True   ' Ignore la casse.
   regEx.Global = False   ' Définit une application globale.
   Set Matches = regEx.Execute(strng)   ' Lance la recherche.
   For Each Match in Matches   ' Itère la collection Matches.
   resultat = "OK TROUVE"
       RegExpTest = True : Exit Function
   Next
   resultat = "NOK PAS TROUVE"
   RegExpTest = False
End Function

Thème vbs: Thèmes / Visual Basic 6 / Langages dérivés / VBScript

jean-marc

'lut JMO pas d'accord avec ton "\\r" on ne cherche pas la chaine \r proprement dite... \r symbolise le saut de ligne... j'utiliserai par exemple la regexp suivante: ^(\w+):\s*([^:]+)\s+$ en utilisant : regEx.IgnoreCase = True regEx.MultiLine = True regEx.Global= True ca découpe les chaines {clé}: {valeur} même si la valeur est sur plusieurs lignes...

Re,

Autant pour moi, Renfield, visu de la doc avec
\s qui correspond à tout espace blanc, y compris l'espace, la tabulation, le saut de page, etc.
Équivaut à "[ \f\n\r\t\v]".
Par contre, d'après la doc, le multiline existe en JScript mais n'est pas référencé en vbs. A confirmer.

jean-marc

en vbs je sais pas, j'utilise le même objet depuis VB6 (VbScript RegExp)
donc a priori, ca devrait rouler en VBS...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

En tout cas, merci pour votre aide !

White_Mage();

ca aurait du fonctionner, as tu bien configurer le MultiLine ?


Renfield
Admin CodeS-SourceS- MVP Visual Basic

Oui...le multiline était configuré...
Je n'ai plus trop le temps de tester mais je le ferai à l'occase

Merci pour ton aide....et a+
White_Mage();