Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 334 fois - Téléchargée 47 fois
Function SearchText(ByVal Chaine As String, ByVal Separateur As String, Optional ByVal Gauche As Boolean) As String Dim Position As Integer Dim Texte As String If Gauche = True Then Position = 1 Texte = Chaine While Right(Texte, Len(Separateur)) <> Separateur Texte = Left(Chaine, Position) Position = Position + 1 Wend SearchText = Left(Chaine, Position - 1 - Len(Separateur)) Else Position = Len(Chaine) Texte = Chaine While Left(Texte, Len(Separateur)) <> Separateur Texte = Right(Chaine, Position) Position = Position - 1 Wend SearchText = Right(Chaine, Position) End If End Function
En relisant le code, je dirais plutôt que ta fonction renvoit la chaine de caractères à droite ou à gauche d'un séparateur.
Pour rechercher un séparateur dans une chaine, il y a InStr()
Et si tu veux commencer par la fin de ta chaine, il y a InStrRev()
Pour découper une chaine selon un séparateur, il y a Split()
En plus, petit souci avec ta source. Si je l'appelle comme ceci :
MsgBox SearchText("bonjour", "c", False)
Et bien ... patatra, plantage car "c" n'appartient pas à "bonjour".
CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE (+EXPLICATIONS)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.