在 VBA 中檢查一個字串是否包含一個子字串

  2. 貼士文章
  3. VBA 貼士
  4. 在 VBA 中檢查一個字串是否包含一個子字串
Glen Alfaro 2023年1月30日 2022年5月18日
VBA VBA String
  1. 使用 Instr() 函式檢查主字串是否包含子字串
  2. 使用 InstrRev() 函式檢查主字串是否包含子字串
  3. 使用 Like 運算子檢查主字串是否包含子字串
在 VBA 中檢查一個字串是否包含一個子字串

本文將演示使用 Instr() 函式、InstrRev() 函式和 Like 函式來檢查主字串是否包含子字串。

使用 Instr() 函式檢查主字串是否包含子字串

Instr() 函式語法：

InStr([ start ], string1, string2, [ compare ])

返回型別：整數

引數：
[ start ] 可選的。搜尋將開始的數值。
對於 [ start ] 引數，以下是相應的值：
1 - [預設] 搜尋將從主字串的開頭開始< br/> n - 搜尋將從 n 位置開始。
string1 強制的。要搜尋的字串（主字串）
string2 強制的。要查詢的字串。
[ compare ] 可選的。指示將使用哪種字串比較方法。
對於 [ compare ] 引數，以下是相應的值：
0 - [預設] 二進位制比較方法（區分大小寫）
1 - 文字比較方法（不區分大小寫）

下面的程式碼塊將使用 Instr() 函式檢查子字串是否在 VBA 的主字串中。

Function IsSubstring(pos as Integer, mainStr as String, subStr as String,compTyp as Integer) as boolean
    'if `Instr()` function returned 0 then the substring is not present in the main string.
    'If `Instr()` function returned a value greater than `0`, would mean that the substring is in the main string.
    If Instr(pos,mainStr,subStr,compTyp) >0 Then
        IsSubstring = true
        Else: IsSubstring = false
    End if
End Function
Sub test1()
    Debug.print IsSubstring(1,"ABCDE","C",1)
End Sub
Sub test2()
    Debug.print IsSubstring(1,"ABCDE","F",1)
End Sub
Sub test3()
    Debug.print IsSubstring(1,"ABCDE","c",0)
End Sub

輸出 test1：

True

輸出 test2：

False

輸出 test3：

False

下面的程式碼塊將使用 Instr() 函式從主字串返回子字串的位置。

Function GetPosition(pos as Integer, mainStr as String, subStr as String,compTyp as Integer)
    'Check first if the substring is in the main string.
     If InStr(pos, mainStr, subStr, compTyp) > 0 Then
        'if substring is in the main string then get the position of the substring in the main string.
       GetPosition = InStr(1, mainStr, subStr, 1)
       Else: GetPosition = ("Subtring is not in the main string.")
   End If
End Function
Sub test1()
    'Check if `C` is in `ABCDE` starting at the first letter (A), case insensitive.
    Debug.Print GetPosition(1,"ABCDE", "C",1)
End Sub
Sub test2()
    'Check if `c` is in `ABCDE` starting at the first letter of the main string, case sensitive.
    Debug.Print GetPosition(1,"ABCDE", "c",0)
End Sub
Sub test3()
    'Check if `c` is in `ABCDE` starting at the fourth letter of the main string, case sensitive.
    Debug.Print GetPosition(4,"ABCDE", "c",0)
End Sub

輸出 test1：

3

輸出 test2：

Subtring is not in the main string.

輸出 test3：

Subtring is not in the main string.

使用 InstrRev() 函式檢查主字串是否包含子字串

InstrRev() 函式語法：

InStrRev(string1, string2,[ start ], [ compare ])

返回型別：整數

引數：
string1 強制的。要搜尋的字串（主字串）
string2 強制的。要查詢的字串。

下面的程式碼塊將使用 InstrRev() 函式檢查子字串是否在 VBA 的主字串中。

Function IsSubstring(mainStr As String, subStr As String) As Boolean
    'if `InstrRev()` function returned 0 then the substring is not present in the main string.
    'If `InstrRev()` function returned a value greater than `0`, would mean that the substring is in the main string.
    If InStrRev(mainStr, subStr) > 0 Then
        IsSubstring = True
        Else: IsSubstring = False
    End If
End Function
Sub test1()
    Debug.Print IsSubstring("ABCDE", "C")
End Sub
Sub test2()
    Debug.Print IsSubstring("ABCDE", "F")
End Sub

輸出 test1：

True

輸出 test2：

False

使用 Like 運算子檢查主字串是否包含子字串

Like 運算子語法：

res = string Like pattern

返回型別：布林值

引數：
res 強制的。布林返回值
string 強制的。要檢視的字串
pattern 強制的。要查詢的字串。更多詳情見備註

備註：
? 任何單個字元
* 任意 0 到多個字元
# 任何單個數字（0 到 9）

下面的程式碼塊將使用 Like 運算子檢查子字串是否在 VBA 的主字串中

Function IsSubString(mainStr as String,subStr as String) as Boolean
    'Check if subStr is in the main string by using *
   If mainStr Like "*" & subStr & "*" Then
        IsSubString = True
        Else: IsSubstring= False
   End If
End Function
Sub test1()
    Debug.print (IsSubString("ABCDE","C"))
End Sub
Sub test2()
    Debug.print (IsSubString("ABCDE","c"))
End Sub
Sub test3()
    Debug.print (IsSubString("ABCDE","F"))
End Sub

輸出 test1：

True

輸出 test2：

False

輸出 test3：

False

相關文章 - VBA String