expression régulière et VBS

Bonjour,

J'ai une string
ex

Virus 'Mal/Generic-A' was detected in 'toto.trata' in message '<056201ca8d35$c237cb60$67cb9d0a@toto.totlo.fr>'


et je voudrais ne récupérer que la chaine
<056201ca8d35$c237cb60$67cb9d0a@toto.totlo.fr>


J'ai un code

Code:

---

1 2 3 4 5 6 7 8 9

objRegExp.Pattern = "\b['A-Za-z0-9\/\-\$@.]+\b$'"   If objRegExp.Test(Line) Then Set colMatches = objRegExp.Execute(Line) splitedValue = Split(colMatches(0),"was detected in") returnedValue = splitedValue(1) end if

---

Mais ce code va d'abord me trouver
-Virus
- Mal/Generic-A
- was
- detected
- in
- toto.tratra
- in
- message
- 056201ca8d35$c237cb60$67cb9d0a@toto.totlo.fr

je veux récupérer que
<056201ca8d35$c237cb60$67cb9d0a@toto.totlo.fr>

Merci

salut,
bizarre, ton utilisation de la fonction split dans la collection matches :calim2:
pour récupérer les valeurs entre des tags précis, le pattern est très simple
le code complet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set regEx = New RegExp regEx.Pattern = "<.*>" regEx.IgnoreCase = True regEx.Global = True   Set Matches = regEx.Execute("Virus 'Mal/Generic-A' was detected in 'toto.trata' in message '<056201ca8d35$c237cb60$67cb9d0a@toto.totlo.fr>'") For Each Match in Matches 'Itère la collection Matches. RetStr = RetStr & "Correspondance trouvée à la position " RetStr = RetStr & Match.FirstIndex & ". La valeur de la correspondance est '" RetStr = RetStr & Match.Value & "'." & vbCRLF MsgBox RetStr Next

---

Merci pour la solution,


Pour le split c'est une erreur ( copié coller quand tu nous tiens !:( )