С++-библиотека-фреймворк для VBxx

Option Explicit
 
Type MatchPosition
    position As Long
    length As Long
End Type
 
Declare Function CreateStdRegexA Lib "atlvba.dll" (ByVal pattern As String) As LongPtr
Declare Function StdRE_ExtractPositionsA Lib "atlvba.dll" (ByVal regexObj As LongPtr, ByVal bstrInput As String) As MatchPosition()
Declare Sub DestroyStdRegex Lib "atlvba.dll" (ByVal regexObj As LongPtr)
 
Sub TestRegexInterop()
    Dim sPattern$, sSource$, i&
    Dim pstdReObj As LongPtr
    Dim mpArr() As MatchPosition
 
    sPattern = "[а-я]+"
    sSource = "яблоко3343sfj;';\;груша#@@#@!!мандарин**"
    
    pstdReObj = CreateStdRegexA(sPattern)
    
    mpArr = StdRE_ExtractPositionsA(pstdReObj, sSource)
    
    DestroyStdRegex pstdReObj
 
    ' Выводим результаты поиска
    If isArrayInit(mpArr) Then
        For i = 0 To UBound(mpArr)
            With mpArr(i)
              Debug.Print Mid$(sSource, .position, .length)
            End With
        Next i
    End If
End Sub

Option Explicit
DefLngPtr H, P
Declare PtrSafe Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As LongPtr)
 
Public Const NullPtr As LongPtr = 0
Const PCRE_ERROR_NOMATCH& = -1
 
Private Sub Auto_Open()
    Stop
End Sub
Private Sub TestPCRE()
    Dim psError
    Dim erroffset&
    Dim ovector(31) As Long
    Dim pPcRe
    
    Dim hLib: hLib = LoadLibrary(ThisWorkbook.Path & "\pcre.dll")
    Dim pfn_pcre_compile: pfn_pcre_compile = GetProcAddress(hLib, "pcre_compile")  
    Dim pfn_pcre_exec: pfn_pcre_exec = GetProcAddress(hLib, "pcre_exec")
    Dim pfn_pcre_free: pfn_pcre_free = GetProcAddress(hLib, "pcre_free")
    
    Dim sPattern$: sPattern = toA("\b\w+\b")                '"(\d{2})-(\d{2})-(\d{4})")
    Dim sSubject$: sSubject = toA("Hello world from PCRE")  '"Дата: 25-12-2023, время: 10:30")
    
    'pcre *pcre_compile(const char *pattern, int options, const char **errptr, int *erroffset, const unsigned char *tableptr);
    'pcre *re = pcre_compile(pattern, 0, &error, &erroffset, NULL);
    CCall5 pfn_pcre_compile, pPcRe, ptrSz, _
                        ByVal sPattern, ByVal 0&, psError, erroffset, ByVal NullPtr
    If pPcRe = 0 Then
        Debug.Print "Ошибка компилляции выражения"
        Exit Sub
    End If
    
    Dim lenSubj&: lenSubj = StrLenB(sSubject)
    Dim startOffset&, options&, matchCount&
    
    While startOffset < lenSubj
        'int pcre_exec(const pcre *code, const pcre_extra *extra, const char *subject, int length, int startoffset, int options, int *ovector, int ovecsize);
        'int rc = pcre_exec(re, NULL, subject, lenSubj, startOffset, options, ovector(0), 30);
        Dim rc&: Call CCall8(pfn_pcre_exec, rc, LenB(rc), _
                           ByVal pPcRe, ByVal NullPtr, ByVal sSubject, ByVal lenSubj, ByVal startOffset, ByVal options, ovector(0), ByVal 32&)
        If rc < 0 Then
            If (rc = PCRE_ERROR_NOMATCH) Then
            Else
                Debug.Print "Ошибка выполнения!!"
                Exit Sub
            End If
        End If
        matchCount = matchCount + 1
        Dim pos&: pos = ovector(0) + 1
        Dim matchlen&: matchlen = ovector(1) - ovector(0)
        
        Debug.Print fmA(MidB$(sSubject, pos, matchlen))
        
        startOffset = ovector(1)
    Wend
    
    'pcre_free(re);
'    CCall1 pfn_pcre_free, ByVal NullPtr, 0, ByVal pPcRe 'это почему-то вызывает сбой
    CoTaskMemFree pPcRe                                  'зато работает это
End Sub