Je ne connais pas le legacy. En VB6, le code suivant fonctionne, je te laisse l'adapter :
Dim s As String
Dim r As String
s = "toto veut du gateau" 'chaine de départ
r = "toto" 'chaine recherchée
'pour commence par :
If s Like r & "*" Then
MsgBox "OK"
Else
MsgBox "KO"
End If
'pour est contenu dans la chaîne :
If s Like "*" & r & "*" Then
MsgBox "OK"
Else
MsgBox "KO"
End If
'autre méthode pour commence par :
If InStr(s, r) = 1 Then
MsgBox "OK"
Else
MsgBox "KO"
End If
'et pour est contenu dans la chaîne :
If InStr(s, r) > 0 Then
MsgBox "OK"
Else
MsgBox "KO"
End If
|