檢查一個字符串是否包含另一個字符串

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