Function permettant de chercher une chaine de caractère dans une autre
Source / Exemple :
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
Conclusion :
Si bug mail me
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.