CHERCHER UNE CHAINE DE CARACTÈRE DANS UNE AUTRE (+EXPLICATIONS)
Jeje Software®
Messages postés
12
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
24 juin 2002
-
9 avril 2002 à 14:09
Master_Kanter Messages postés 8 Date d'inscription samedi 7 juillet 2007 Statut Membre Dernière intervention 28 février 2008 - 27 févr. 2008 à 00:55
Master_Kanter Messages postés 8 Date d'inscription samedi 7 juillet 2007 Statut Membre Dernière intervention 28 février 2008 - 27 févr. 2008 à 00:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2991-chercher-une-chaine-de-caractere-dans-une-autre-explications
https://codes-sources.commentcamarche.net/source/2991-chercher-une-chaine-de-caractere-dans-une-autre-explications
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
9 avril 2002 à 14:09