[XL-2003] Extraction d'une sous chaine de caractere VBA

[the-malco]

Bonjour,

j'ai comme exercice d'extraire des sous-chaines de caractères qui se situent exactement après la même sous-chaine fixe.
Voici un exemple : Dans la chaine suivante :

##RES##paul##Copozef##RES##coco##pppezriuezrkjpp##RES##papa##

je dois extraire exactement les sous chaines suivante : paul, coco, papa
Ces 3 termes se situent exactement après la meme constante : ##RES##, et exactement avant ##.
J'ai fait le 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
28
29
30
31
32
33
34
35
36
Sub ExtractDatas() 
 
Dim lettre As String 
 
Data = "" 
d = 0 
 
ThisWorkbook.Worksheets("datas").Range("B1:B100").Select 
Selection.Clear 
 
GoRef1 = InStr(1, ThisWorkbook.Worksheets("datas").Range("A1").Value, "##RES#") 
 
 
 
'1er check : commence du begin de la chaine 
 
For i = GoRef1 To Len(ThisWorkbook.Worksheets("datas").Range("A1")) Step 7 + Len(Data) 
 
    Data = "" 
 
    If Mid(ThisWorkbook.Worksheets("datas").Range("A1"), i, 1) <> "#" Then 
 
        Do While Mid(ThisWorkbook.Worksheets("datas").Range("A1"), i, 1) <> "#" 
            Data = Data & Mid(ThisWorkbook.Worksheets("datas").Range("A1"), i, 1) 
            i = i + 1 
        Loop 
 
    End If 
 
    d = d + 1 
 
    ThisWorkbook.Worksheets("datas").Range("b" & d).Value = Data 
 
Next i 
 
End Sub

Le probleme est que ce code ne fonctionne pas correctement car il n'extrait pas que les 3 mots qui se trouvent après la sous-chaine constante, mais d'autres sous-chaines fausses (voici l'output : paul, ef, coco, riuezrkjpp, papa).

Pouvez vous me guider svp pour que le code n'affiche plus que les bons termes?

Merci beaucoup

[Sclarckone]

Bonjour,

Je n'ai pas regardé ton code mais je crois que tu pourrais résoudre ton problème beaucoup plus simplement avec la fonction 'split()'...jettes-y un oeil!

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Texte As String, Tableau
    Texte = "##RES##paul##Copozef##RES##coco##pppezriuezrkjpp##RES##papa##"
    Texte = Application.Substitute(Texte, "##RES##", "!")
    Texte = Application.Substitute(Texte, "##", "#")
    Tableau = Split(Texte, "#")
    For Each Item In Tableau
        Var = InStr(1, Item, "!")
        Data = Mid(Item, Var + 1, 9 ^ 9)
        d = d + 1
        ThisWorkbook.Worksheets("datas").Range("b" & d).Value = Data
    Next Item
End Sub

[AlainTech]

Bonjour à tous,

Pas besoin de Replace (ou Substitute) pour faire un Split.
Exemple:

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test()
  Dim a1() As String
  Dim i As Integer
  Dim strSubstring As String
  Dim strTexte As String
  strTexte = "##RES##paul##Copozef##RES##coco##pppezriuezrkjpp##RES##papa##"
  a1 = Split(strTexte, "##RES##")
  For i = 1 To UBound(a1())
    strSubstring = Split(a1(i), "##")(0)
  Next i
End Sub

Il ne reste plus qu'à gérer ce qu'on fait de strSubstring à chaque boucle.

[Daniel.C]

Bonjour,

Pour AlainTech :

Merci pour celle là ! Depuis que j'utilise Split, je n'ai toujours mis qu'un seul caractère comme séparateur Je me coucherai moins bête ce soir !