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

Question

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

Answer 1

使用Instr功能

Dim pos As Integer 

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

将在POS返回15

如果没有找到则返回0

如果你需要找到一个Excel公式可以用逗号=FIND(",";A1)功能。

请注意，如果您想使用Instr来查找字符串的位置不区分大小写，请使用Instr的第三个参数，并为其指定const vbTextCompare（或者对于顽固派只有1）。

Dim posOf_A As Integer 

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

会给你，你在我联系的规格说明来指定在这种情况下，起始位置的14

的值。注：如果比较是必需的启动参数中指定。

Answer 2

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

每@刘若英的回答......

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

...还是会回到15〜POS机，但如果字符串搜索字符串的不止一个，比如单词 “the”，则：

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

...会回到20〜POS机，而不是6

Answer 3

大厦刘若英的回答，你也可以写返回为TRUE，如果子存在，或FALSE如果WASN功能't：

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 

Answer 4

您还可以使用特殊的字like：

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