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)

[Nono Sto]

Merci

[Nono Sto]

Chères amies, chers amis

Je sollicite à nouveau votre aide à propos des expressions rationnelles.
je dispose de cote financier du style:
(Maturité) (NC) (depart) (cote) (frequence)
cela donne un ceci

7y nc 3m 63+/72+ (s-b, q-call)
10y nc 1y 50/57
5y nc 6m /33

Grace au pattern suivant je les récupere:
(\d+[y,m])\s*(nc|NC)\s*(\d+[y,m])\s*(\d*\+*/\d*\+*)\s*(\s*.*)

Cependant cette cote n'est pas reperer malgré plusiseurs combinaisons:
10y nc 1y 80

Auriez vous une idée SVP?

Merci

[mercatog]

Ci-joint une fonction personnelle matricielle (résultat: tableau à 5 données)

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
Function Extract(ByVal MaCote As String) As Variant
Dim Rg As New VBScript_RegExp_55.RegExp
Dim Res(0 To 4) As String
Dim j As Byte
 
With Rg
    .Pattern = "(\d?\d.\s)(nc\s)(\d?\d.\s)(\d?\d?\+?\/?\d?\d?\+?)(.*)?"
    .IgnoreCase = True
 
    For j = 1 To 5
        Res(j - 1) = Trim(.Replace(MaCote, "$" & j))
    Next j
    Extract = Res
End With
Set Rg = Nothing
End Function

Extract("10y nc 1y 80")(0) donne 10y

Extract("10y nc 1y 80")(4) donne 80

Si l'utiliser directement sur la feuille et supposons tu as ta cote en A1, Sélectionne B1:F1 et un inscrit

Code :

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

=Extract(A1)

Valide par Ctrl Shift Enter

[Nono Sto]

Merci beaucoup

ton code me donne beaucoup d'indication qui m'ont permis d'avancer

[Nono Sto]

Chères amies, chers amis

Je remonte ce poste car je continue mon apprentissage des expression regulieres sur vba.

je dispose à l'interieur de mes cote des suite de mot par exemple:

6m5y atm berm rec locked 130 vs +100 payer 120/170
1y5y +400 berm payers 42/50
5y20y +200 Bermudan Receiver* 3280 / 3340** spot premium** 3.185% Forward

voile je souhaite isoler le bout de string qui commence par berm et qui finit ou commence la cote (dans les exemples 120/170, 42/50 et 3280 / 3340)

j'ai essayé plusieur bout de code comme à l'aide \w ou berm? ou ^berm mais cela marche pas

auriez vous une idée SVP?

Merci

,

[mercatog]

Si la cote est toujours de la forme n/m (avec ou sans espace autour du slash et n, m des nombres)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Extract(ByVal BeforeCote As String) As String
Dim Rg As Object
 
Set Rg = CreateObject("Vbscript.RegExp")
With Rg
    .Pattern = "(.*)(berm.*)(\s\d+\s?\/\s?\d+.*)"
    .IgnoreCase = True
    Extract = Trim(.Replace(BeforeCote, "$2"))
End With
Set Rg = Nothing
End Function

[Nono Sto]

Un grand merci, maleurheureusement je n'ai pas eu le temps de jetter un coup d'oeil je ferais un retour quend je serais de retour chez moi.