Discussion :

[bailamos]

salut tous le monde,

j'ai une chaine de caractere "<1<2<3<4<5<69<6<6<4<6<5<69<58<69<<47a>"

je veux recuperer ce qui est entre <et> ca donne "<1<2<3<4<5<69<6<6<4<6<5<69<58<69<<47a>"

ce que je veux c'est d'avoir <47a> localiser d'abord > et ensuite voire la < qui la precede directement.


merci d'avancre

voici le code que j'utilise

Code :

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

1
2
3
4
5
6
7
Private Function re(x, a, b)
a1 = InStr(x, a) + Len(a)
b1 = Mid(x, a1)
c1 = InStr(b1, b)
e2 = Left(b1, c1)
re = a & e2
End Function

[ucfoutu]

Bonsoir,

utilise InstrRev pour avoir la position du dernier "<"

Utilise ensuite Mid et Len

Vois ces mots dans ton aide en ligne (sur ta machine)

[ucfoutu]

Allez :

un début et je te laisse continuer :

Code :

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

1
2
3
4
Private Sub Command1_Click()
 toto = "<1<2<3<4<5<69<6<6<4<6<5<69<58<69<<47a>"
 MsgBox Mid(toto, InstrRev(toto, "<"))
End Sub

mais si, finalement, ton ">" ne se trouve pas à la fin mais n'importe où :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
 toto = "<1<2<3<4<5<69>6<6<4<6<5<69<58<69<<47a>"
 titi = Left(toto, InstrRev(toto, ">"))
 MsgBox Mid(titi, InstrRev(titi, "<"))
End Sub

[bailamos]

merci et voila ca que ca donne

Code :

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

1
2
3
4
5
 
Private Function reREV(x, a, b)
b1 = Left(x, InStr(x, b) + Len(b))
reREV = Mid(b1, InStrRev(b1, a) + Len(a))
End Function