Dim sLigne As String = "Je suis grand et je vais grandire, " & _ "du verbe ""grandirer"", c'est bien connu" Dim sMot As String = "grand" Dim sSeparateurs As Char() = New Char(3) {" ", ",", ".", """"} Dim aTableau As String() = sLigne.Split(sSeparateurs) For r As Long = LBound(aTableau) To UBound(aTableau) If aTableau(r) Like sMot & "*" Then Debug.Print("Trouvé : " & aTableau(r)) End If Next r
If aTableau(r).ToLower Like (sMot & "*").ToLower Then
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question