Appartenance d'une string dans une autre

Alors voila, est ce qu il existerait en VB une fct capable de retourner un booleen=TRUE si une string est contenue dans une autre et FALSE sinon

ex :
string1 = "toto"
string2 = "jreoi jrejgreo jirej toto krekogre greopkre"

et quand je fais :
la_fonction(string1, string2) ben je veux que ca retourne TRUE car string1 est contenue dans string2

Mici pour la réponse :)

Apres moultes recherches, je n'ai pas trouve cette fct alors que je suis sur qu'elle existe.
Du coup, je me la suis tapé.
Si ca interesse qq un, la voici

Function appartient(string1 As String, string2 As String) As Boolean

Dim longueur1 As Long
Dim longueur2 As Long
Dim test As Boolean
Dim i As Integer
Dim string_test As String

test = False

longueur1 = Len(string1)
longueur2 = Len(string2)

For i = 1 To ((longueur2 - longueur1) + 1)
string_test = Right(string2, longueur2 - i + 1)
string_test = Left(string_test, longueur1)
If string_test = string1 Then
test = True
GoTo fin
End If
Next i
fin:
appartient = test

End Function


fonction qui retourne true si string2 contient string1 et false sinon
(attention, la longueur de la string1 doit etre inferieure a celle de la string2)

Une fonction vb permet de te faciliter la tache avec une ligne de code.
InStr(string2,string1)
String1 étant la chaine recherchée dans string2.
Cette fonction te retourne la position de string1 dans string2.
Si le résultat est 0, alors la chaine ne correspond pas.
Donc si le résultat est > 0, BINGO !
C pas un résultat booléen mais C encore plus précis.
En tout cas j'espère ke ca t'ira.



-------------------------------
Réponse au message :
-------------------------------

Alors voila, est ce qu il existerait en VB une fct capable de retourner un booleen=TRUE si une string est contenue dans une autre et FALSE sinon

ex :
string1 = "toto"
string2 = "jreoi jrejgreo jirej toto krekogre greopkre"

et quand je fais :
la_fonction(string1, string2) ben je veux que ca retourne TRUE car string1 est contenue dans string2

Mici pour la réponse :)