Chercher une chaine de caractère dans une autre (+explications)

Commenter

Contenu du snippet

Fonction permettant de chercher une chaine de caractère dans une autre

Source / Exemple : 


'Explication :
'
'SearchText(Chaine, Separateur, Gauche) As String
'
'Chaine : est la phrase ou le texte dans lequel on veut effectuer la recherche
'Separateur : est le caractère qui une fois trouvé arrete la recherche
'Gauche : est le sens de la recherche (si TRUE commence par la gauche sinon par le droite)
'
'By JejeSoftware®

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

Private Sub Command1_Click()
Dim Phrase As String
Phrase = "Ca marche ?"
 'Affiche "arche ?"
 MsgBox SearchText(Phrase, "m", False), , ""
 'Affiche "Ca "
 MsgBox SearchText(Phrase, "m", True), , ""
End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (Jeje Software®)