Chercher une chaine commencent par X et finissant par Y

Question

VBSteph
J'aimerais savoir comment effectuer une recherche dans une longue chaine. Je veux chercher une autre chaine qui commence par X et fini par Y dans cette longue chaine.
Je connais deja la valeur de ma chaine. 

Exemple:

Je veux savoir Quesqu'il y a entre salut et tous:

"Allo tout le monde et salut a vous tous."

Je veux donc capturer "a vous"

Merci d'avance

cs_DARKSIDIOUS · Answer

Utilise la fonction InStr :

Résultat = InStr(0,
"Allo tout le monde et salut a vous tous." , "a vous")

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

StephVB · Answer

VBSteph
Ce n'est pas vraiment ça. je ne sais pas davance ce qu'il y a entre "salut" et "tous"

cs_DARKSIDIOUS · Answer

Est-ce que le texte que tu cherche et toujours situés entre "salut" et "tous" ?

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

StephVB · Answer

VBSteph
oui mais ce n'est pas toujours le meme texte.

cs_rene38 · Answer

Bonsoir

'Recherche dans la chaîne Chaine du texte situé Entre les mots Avant et Après
'(Entre, Chaine, Avant et Après sont des variables de type String)

Dim Chaine As String, Avant As String, Après As String, Entre As String
'par exemple,
'Chaine = "Allo tout le monde et salut à vous tous."
'Avant = "salut"
'Après = "tous"

Entre = Mid(Chaine, InStr(Chaine, Avant) + Len(Avant) + 1)
Entre = Left(Entre, InStr(Entre, Après) - 1)

'on obtient Entre = "à vous"

cs_DARKSIDIOUS · Answer

Et bien utilise InStr pour "salut" pour récupérer l'endroit où est située cette chaîne, puis utilise InStr pour "à tous" pour récupérer ll'endroit où est située cette chaîne. Lorsque tu as ces deux positions, utilise la fonction Mid pour découper la chaîne contenue entre ses deux positions !

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

Chercher une chaine commencent par X et finissant par Y

6 réponses

Discussions similaires