检查一个字符串是否包含另一个字符串

Question

我想查找字符串中是否包含“，”（逗号）。除了逐个字符阅读之外，我们还有其他选择吗？

Answer 1

您也可以使用特殊词like：

Public Sub Search()

  If "My Big String with, in the middle" Like "*,*" Then

    Debug.Print ("Found ','")

  End If

End Sub

Answer 2

您还可以编写一个函数，如果存在子字符串，则返回TRUE，否则返回FALSE：

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