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

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

使用Instr函数

Dim pos As Integer

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

将返回POS 15

如果找不到，将返回0

如果您需要使用Excel公式查找逗号，则可以使用该=FIND(",";A1)函数。

请注意，如果要用于Instr查找不区分大小写的字符串的位置，请使用Instr的第三个参数，并为其提供const vbTextCompare（对于die-hards，则仅为1）。

Dim posOf_A As Integer

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

将为您提供14的值。

请注意，在这种情况下，您必须按照我链接的规范中的说明指定开始位置：如果指定了compare，则必须使用start参数。

您也可以使用特殊词like：

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

还有一个InStrRev函数，它执行相同类型的操作，但是从文本的末尾开始搜索。

根据@rene的回答...

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

...仍将pos返回15，但是如果该字符串包含多个搜索字符串之一，例如单词“ the”，则：

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

...将20返还给pos，而不是6。

基于Rene的答案，您还可以编写一个函数，如果存在子字符串，则返回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