Vérifiez si une chaîne contient une autre chaîne

Je veux savoir si une chaîne contient un "," (virgule). Avons-nous une autre option que la lecture caractère par caractère?

Utilisez la fonction Instr

Dim pos As Integer

pos = InStr("find the comma, in the string", ",")

renverra 15 en pos

S'il n'est pas trouvé, il retournera 0

Si vous devez trouver la virgule avec une formule Excel, vous pouvez utiliser le =FIND(",";A1) fonction.

Notez que si vous voulez utiliser Instrpour trouver la position d'une chaîne insensible à la casse, utilisez le troisième paramètre de Instr et donnez-lui la const vbTextCompare(ou juste 1 pour les inconditionnels).

Dim posOf_A As Integer

posOf_A = InStr(1, "find the comma, in the string", "A", vbTextCompare)

vous donnera une valeur de 14.

Notez que vous devez spécifier la position de départ dans ce cas comme indiqué dans la spécification que j'ai liée: L'argument de début est requis si la comparaison est spécifiée.

Vous pouvez également utiliser le mot spécial like:

Public Sub Search()
  If "My Big String with, in the middle" Like "*,*" Then
    Debug.Print ("Found ','")
  End If
End Sub

Il y a aussi la fonction InStrRev qui fait le même type de chose, mais commence la recherche de la fin du texte au début.

La réponse de Per @ rene ...

Dim pos As Integer
pos = InStrRev("find the comma, in the string", ",")

... retournerait toujours 15 à pos, mais si la chaîne a plus d'une chaîne de recherche, comme le mot "the", alors:

Dim pos As Integer
pos = InStrRev("find the comma, in the string", "the")

... retournerait 20 en pos, au lieu de 6.

En vous basant sur la réponse de René, vous pouvez également écrire une fonction qui retourne soit TRUE si la sous-chaîne était présente, soit FALSE si elle ne l'était pas:

Public Function Contains(strBaseString As String, strSearchTerm As String) As Boolean
'Purpose: Returns TRUE if one string exists within another
On Error GoTo ErrorMessage
    Contains = InStr(strBaseString, strSearchTerm)
Exit Function
ErrorMessage:
MsgBox "The database has generated an error. Please contact the database administrator, quoting the following error message: '" & Err.Description & "'", vbCritical, "Database Error"
End
End Function