如何根据正则表达式条件使用分隔符拆分VBA中的数组？

Option Explicit

Sub SplitArrayUsingRegex()
    Dim arr() As String
    Dim regex As Object
    Dim str As String
    Dim delimiter As String
    
    ' 定义要拆分的字符串和分隔符
    str = "apple,banana,grape,orange"
    delimiter = ","
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式模式和选项
    With regex
        .Pattern = "e" ' 正则表达式条件，此处为匹配包含字母"e"的字符串
        .IgnoreCase = True ' 忽略大小写
        .Global = True ' 全局匹配
    End With
    
    ' 使用正则表达式拆分数组
    arr = Split(str, delimiter)
    
    ' 过滤满足正则表达式条件的数组元素
    Dim filteredArr() As String
    Dim i As Long, j As Long
    
    j = 0
    For i = LBound(arr) To UBound(arr)
        If regex.test(arr(i)) Then
            ReDim Preserve filteredArr(j)
            filteredArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ' 输出拆分和过滤后的数组元素
    For i = LBound(filteredArr) To UBound(filteredArr)
        Debug.Print filteredArr(i)
    Next i
End Sub