Discussion :

[julien1.74m]

Bonjour,

Je souhaite récupérer des bouts de texte récupéré dans une textbox.
Le texte ressemble à ça :
D10.XXX-XX-AAA-BBBB

J'ai besoin de récupérer les infos sous la forme suivante :
mot1 = D10.XXX-XX
mot2 = AAA
mot3 = BBBB

J'ai bien essayé avec SelLength et Cie... Mais je vois pas :-(

Des idées ?

Merci

[pc75]

Bonjour,

Un début de piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Str_Contenu = "D10.XXX-XX-AAA-BBBB"
Delimiteur = "-"
Pos1 = InStr(1, Str_Contenu, Delimiteur)
Do While Pos1 > 0
    'if Pos1 = 0 then exit do
    Pos2 = InStr(Pos1, Str_Contenu, "</")
    MsgBox Mid(Str_Contenu, Pos1 + len(Delimiteur), Pos2 - Pos1 - len(Delimiteur))
    Str_Contenu = Mid(Str_Contenu, Pos2 + 2)
    Pos1 = InStr(Str_Contenu, Delimiteur)
Loop