Chercher une chaine de caractère dans une autre (+explications)
5/5 (6 avis)
Snippet vu 8 548 fois - Téléchargée 42 fois
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
- Chercher une chaine de caractère dans une autre (+explications)
- Parcourir une chaine de caractère en python ✓ - Forum - Python
- Extraire une partie d'une chaine de caractère python - Forum - Python
- Parcourir une chaine de caractère java - Forum - Java
- Remplir un tableau de chaine de caractère en c ✓ - Forum - C / C++ / C++.NET
- échec de la conversion de la date et/ou de l'heure à partir d'une chaîne de caractères. - Guide
27 févr. 2008 à 00:55
27 févr. 2008 à 00:54
Private Sub Command1_Click()
Dim ligne As String
Dim Cobra
'je voudrai recupérer le 20
ligne = "Cobra : 20"
MsgBox SearchText(ligne, "Cobra : ", False), , ""
Cobra = SearchText(ligne, "Cobra : ", False)
Text2.Text = Cobra * 32
End Sub
13 avril 2002 à 01:16
10 avril 2002 à 18:47
@+
GiZmO
9 avril 2002 à 23:51
J'ai une solution plus simple avec Instr et InstrRev :
Function SearchText(ByVal Chaine As String, ByVal Separateur As String, Optional ByVal Gauche As Boolean) As String
Dim Position As Integer
If Gauche = True Then
Position = InStrRev(Chaine, Separateur)
If Position <> 0 Then
SearchText = Mid$(Chaine, 1, Position - 1)
End If
Else
Position = InStr(1, Chaine, Separateur)
If Position <> 0 Then
SearchText = Mid$(Chaine, Position + 1)
End If
End If
End Function
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.