Extraction de données code plus complexe

Version imprimable

Bonjour voila en fait je dispose du code suivant
Code:

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 Ext_Straddlevs() Dim code As String Dim maturity As String Dim tenor As String Dim instrum As String Dim Last As String Dim pos1 As Integer Dim pos2 As Integer Dim pos3 As Integer code = "100m10y @123 vs 2040" pos1 = InStr(code, "m") Or InStr(code, "y") pos2 = InStr(pos1 + 1, code, "y") pos3 = InStr(code, "@") pos4 = InStr(pos3 + 1, code, "vs") maturity = Trim(Left(code, pos1)) tenor = Trim(Mid(code, pos1 + 1, pos2 - pos1)) instrum = "Straddle" Last = Trim(Mid(code, pos3 + 1, pos4 - pos3 - 1)) straddle = Trim(Mid(code, pos4 + 2)) MsgBox "Maturite :" & maturity & vbLf & vbLf & " Tenor :" & tenor & vbLf & vbLf & "Instrument :" & instrum & vbLf & vbLf & "Last :" & Last & vbLf & vbLf & "Strad :" & straddle End Sub
toutefois ce programme reste difficile a modifier au cas ou mon code de depart soit de la forme
code: "100y10y @123 vs 2040" certes juste le y change mais je suis bloque car j aimerais extraire d une part le 100y d autre part le 10y hors mon programme ne me le permets pas
j aimerais savoir comment le modifier pour obtenir ce que je cherche

Bonjour,

Une piste avec la fonction Split(). Ceci te permet déjà de scinder en blocs sur lesquels il te sera plus facile de travailler ensuite, avec Left et Right tu épure Enfin, comme dit, c'est une piste :

Code:

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
 
Sub Ext_Straddlevs()
 
    Dim code As String
    Dim Code1 As String
    Dim Code2 As String
    Dim Code3 As String
    Dim Code4 As String
    Dim Code5 As String
 
    code = "100y10y @123 vs 2040"
 
    Code1 = Left(Split(code, " ")(0), 4)
    Code2 = Right(Split(code, " ")(0), 3)
    Code3 = Split(code, " ")(1)
    Code4 = Split(code, " ")(2)
    Code5 = Split(code, " ")(3)
 
    MsgBox "Code 1 : " & Code1 & vbLf & vbLf & _
           "Code 2 : " & Code2 & vbLf & vbLf & _
           "Code 3 : " & Code3 & vbLf & vbLf & _
           "Code 4 : " & Code4 & vbLf & vbLf & _
           "Code 5 : " & Code5
 
End Sub

Hervé.

15/03/2013, 09h11
yannoch123

Merci theze pour ta reponse toutefois , cela ne marchera pas dans un cas plus général , psk le code dont je dispose peut avoir un nombre d elements variables (j ai juste donne un exemple) mais j aimerais le faire dans le cas ou je ne connais pas forcement la longueur de ma chaine de caractere
15/03/2013, 10h47
Invité

Bonjour,
Si le split fonctionne très bien, c’est l’énoncé qui fonctionne pas bien :
Avec la longueur du tableau Ubound(Split1) on peut savoir le nombre d’occurrences
Split m par exemple :
"100m10y P10% @123" le tableau va nous retourner 100 ; 10y P10% @123
"100m10m P10% @123" le tableau va nous retourner 100 ; 10 ; P10% @123

Split y par exemple :
"100m10y P10% @123" le tableau va nous retourner 100m10 ; P10% @123
"100y10y P10% @123" le tableau va nous retourner 100 ; 10 ; P10% @123
"100y10m P10% @123" le tableau va nous retourner 100 ; 10m P10% @123

Si les exemples sont simples la solution est simple
Si les exemples sont complexes la solution est complexe
Il nous faut plusieurs exemples à décoder car on peut avoir besoin d’imbriquer de split !

En suite si le code est totalement anarchique "X" par exemple ???