Discussion :

[breizhpower]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[breizhpower]

Merci pour la solution,


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