Discussion :

[Nono Sto]

Chères amies, chers amis

Je sollicite à nouveaux votre aide, je souhaite recuperer une portion de string via les expressions regulieres:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private m_Reg As VBScript_RegExp_55.RegExp
Private m_Match As VBScript_RegExp_55.Match
Private m_Matches As VBScript_RegExp_55.MatchCollection
 
Set m_Matches = m_Reg.Execute(m_Quote)
 
m_Reg.Pattern = "(c)\s*+(\d+[y,m])"
 
            For Each m_Match In m_Matches
                m_OptBegin = m_Match.Value
            Next m_Match

la chaine que j'entre en parametre est "30y nc 5y s/s 81+/87"et je souhaite recupere "5y" aprés le "c" suivi d'un espace. Or avec le pattern que j'ai entrer en parametre j'ai ce retour "30y nc" Auriez vous une idée SVP?

J'ai essayé plusieur combinaisons mais rien a faire

Merci

[issoram]

Bonjour,

Avec ceci tu récupères ce que tu veux je pense:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub test_regexp(chaine As String)
 
    Dim reg As VBScript_RegExp_55.regexp
    Dim Match As VBScript_RegExp_55.Match
    Dim Matches As VBScript_RegExp_55.MatchCollection
 
    ' - instanciation
    Set reg = New VBScript_RegExp_55.regexp
    '- application sur toutes les occurences
    reg.Global = True
    ' - on ignore la casse
    reg.IgnoreCase = True
    ' - le motif
    reg.Pattern = "c\s\d+y\b"
    '- la recherche
    Set Matches = reg.Execute(chaine)
    ' - les occurences trouvées
    For Each Match In Matches
        Debug.Print Right(Match.Value, Match.Length - 2)
    Next Match
 
End Sub
 
Sub main()
    test_regexp "30y nc 5y s/s 81+/87"
End Sub

[Nono Sto]

Meci cela fonctionne pas je n'arrive pas à recupere ce qui il ya après le "c" de "nc": le resulta est "y nc"

[issoram]

Le bout de code que j'ai posté fonctionne chez moi et renvoie "5y".

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
Function Extract(ByVal Str As String) As String
Dim Rg As New VBScript_RegExp_55.RegExp
 
With Rg
    .Pattern = "(.*c\s)(..)(.*)"
    .Global = True
    Extract = .Replace(Str, "$2")
End With
Set Rg = Nothing
End Function

Code :

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

1
2
3
4
Sub Test()
 
Debug.Print Extract("30y nc 5y s/s 81+/87")
End Sub

Donne les 2 caractères après le "nc "

[Nono Sto]

merci beaucoup sa marche

peux tu m'expliquer l'instruction $2 c'est la seule que je ne comprend pas

[mercatog]

Le pattern utilisé est composé de 3 parties: '.Pattern=(texte & c & espace)(2 caractères)(texte)

la partie 1 est appelée par $1, la 2 par $2 et la 3 par $3

Je remplace donc le texte en entier par la partie 2 (çàd les 2 caractères recherchés)