Chercher une chaine de caractère dans une autre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 334 fois - Téléchargée 47 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaires
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
21
Salut,
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".
Messages postés
12
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
24 juin 2002

Nouvelle source+explication :

CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE (+EXPLICATIONS)
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

tu peux donner un exemple de ce que ca doit faire stp ?

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.