Реализация LIKE как в VB или SQL на С++ или Си

{L"XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--", L"*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a]",L"True"}

{LR"(XYXZZXYXYXZZXY123-#*[[]?!!19Aa--/!\#*[[]?!!19Aa--)", LR"(*X*X?*X*X?***###*[[]][?][!]!1[?1-5-9][!B-Z][A-Za-z][a-][-a])",L"True"}

bool LikeVBA(const wchar_t* s, const wchar_t* p)
{
    const wchar_t* rs = 0, * rp = 0, * pt = p;//p_temp
    while (1) {
        bool res = false;
        if (*p == L'[')
        {
            if (*(p + 1) == L']') { p += 2; continue; }// ""=="[]"
            bool chNo = false, match = false;
            pt = p; 
            if (*(++pt) == L'!' && *(pt + 1) != L']') { chNo = true; ++pt; }//[!...] not [!]
            while (*pt != L']') {
                if (!*pt) { throw 93; }//если забыли закрывающую скобку//' Throws Error 93 (invalid pattern string).
                if (*(pt + 1) == L'-' && *(pt + 2) != L']')//если есть диапазон ... - ...
                {
                    if (*s >= *pt && *s <= *(pt + 2))
                    {
                        if (chNo) { break; }//если таких символов не должно быть
                        else { match = true; }//если нашли
                    }
                    pt += 2; //for [1-4-9]
                }
                else { //если отдельный символ
                    if (*s == *pt) {
                        if (chNo) { break; }
                        else { match = true; }
                    }
                    ++pt;
                }
            }
            if (chNo == match) { res = false; }
            else { res = true; }
        }
        if (res) {
            ++s; p = ++pt;
        }
        else if (*p == L'#' && *s <= L'9' && *s >= L'0') {
            ++s, ++p;
        }
        else if (*p == L'*') {
            rs = s, rp = ++p;
        }
        else if (!*s) {
            return !*p;
        }
        else if (*p == L'?' || *s == *p && *p != L'[' && *p != L'#') {
            ++s, ++p;
        }
        else if (rs) {
            s = ++rs, p = rp;
        }
        else {
            return false;
        }
    }
}

bool LikeVBA(const wchar_t* s, const wchar_t* p)
{
    const wchar_t* rs = 0, * rp = 0;// , * pt = p;//p_temp
    while (1) {
        bool res = false;
        if (*p == L'[')
        {
            if (*(p + 1) == L']') { p += 2; continue; }// ""=="[]"
            bool chNo = false, match = false;
            const wchar_t* pt = p;
            if (*(++pt) == L'!' && *(pt + 1) != L']') { chNo = true; ++pt; }//[!...] not [!]
            while (*pt != L']') {
                if (!*pt) { throw 93; }//если забыли закрывающую скобку//' Throws Error 93 (invalid pattern string).
                if (*(pt + 1) == L'-' && *(pt + 2) != L']')//если есть диапазон ... - ...
                {
                    if (*s >= *pt && *s <= *(pt + 2))
                    {
                        if (chNo) { break; }//если таких символов не должно быть
                        else { match = true; }//если нашли
                    }
                    pt += 2; //for [1-4-9]
                }
                else { //если отдельный символ
                    if (*s == *pt) {
                        if (chNo) { break; }
                        else { match = true; }
                    }
                    ++pt;
                }
            }
            if (chNo == match) { res = false; }
            else { ++s; p = ++pt; res = true; }
        }
        if (res) {}
        else if (*p == L'#' && *s <= L'9' && *s >= L'0') {
            ++s, ++p;
        }
        else if (*p == L'*') {
            rs = s, rp = ++p;
        }
        else if (!*s) {
            return !*p;
        }
        else if (*p == L'?' || *s == *p && *p != L'[' && *p != L'#') {
            ++s, ++p;
        }
        else if (rs) {
            s = ++rs, p = rp;
        }
        else {
            return false;
        }
    }
}

inline bool LikeVBAF(const wchar_t* string, const wchar_t* stringEnd, const wchar_t* pattern, const wchar_t* patternEnd)
{
    const wchar_t* returnString = 0, * returnPattern = 0;
    while (1) {
        if (pattern >= patternEnd) {// конец шаблона
            if (string >= stringEnd) { return pattern >= patternEnd; }//конец строки
            else if (returnString) { string = ++returnString, pattern = returnPattern; continue; }
            else { return false; }
        }
        if (*pattern > L'[') {// not wildcardCh 
            if (string >= stringEnd) { return pattern >= patternEnd; }//нулевая строка
            else if (*pattern == *string) { ++string, ++pattern; continue; }
        }
        else if (*pattern > L'*') {// ?[
            if (*pattern == L'[')
            {
                if (pattern + 1 >= patternEnd) { AtlThrow(E_INVALIDARG); }//если последний символ '[' - ошибка//Throws Error 93 (invalid pattern string).
                if (*(pattern + 1) == L']') { pattern += 2; continue; }//Последовательность [] символов считается строкой нулевой длины ("").
                if (pattern + 2 >= patternEnd) { AtlThrow(E_INVALIDARG); }//если конец маски и нет закрывающей скобки ]//' Throws Error 93 (invalid pattern string).
                if (string >= stringEnd) { return pattern >= patternEnd; }//нулевая строка
                bool match = false;
                const wchar_t* inBrackets = pattern;
                if (*(++inBrackets) == L'!' && *(inBrackets + 1) != L']') { match = true; ++inBrackets; }//[!...] not [!]
                while (inBrackets < patternEnd && *inBrackets != L']') {
                    if ((inBrackets + 2) < patternEnd && *(inBrackets + 1) == L'-' && *(inBrackets + 2) != L']')//диапазон ... - ...
                    {
                        if (*inBrackets > *(inBrackets + 2)) { AtlThrow(E_INVALIDARG); }//первое значение диапазона больше последнего//' Throws Error 93 (invalid pattern string).
                        if (*string >= *inBrackets && *string <= *(inBrackets + 2)) { match = !match; break; }
                        inBrackets += 3; //// += 2//for [1-4-9] // += 3;//for [1-44-9]
                    }
                    else { //отдельный символ
                        if (*(inBrackets) == L'-' && *(inBrackets + 1) != L']' && *(inBrackets - 1 - match) != L'[') { AtlThrow(E_INVALIDARG); }//отдельный символ "-" не в начале и не в конце и не разделитель диапазона - ошибка//' Throws Error 93 (invalid pattern string).
                        if (*string == *inBrackets) { match = !match; break; }
                        ++inBrackets;
                    }
                }
                if (inBrackets >= patternEnd) { AtlThrow(E_INVALIDARG); }//если конец маски и нет закрывающей скобки ]//' Throws Error 93 (invalid pattern string).
                if (match) {
                    while (inBrackets < patternEnd && *inBrackets != L']') { ++inBrackets; }
                    if (inBrackets >= patternEnd) { AtlThrow(E_INVALIDARG); }//нет закрывающей скобки//' Throws Error 93 (invalid pattern string).
                    ++string, pattern = ++inBrackets; continue;
                }
            }
            else if (string >= stringEnd) { return pattern == patternEnd; } //проверка должна быть ДО разыменовывания указателя, но после []
            else if (*pattern == *string) { ++string, ++pattern; continue; }
            else if (*pattern == L'?') { ++string, ++pattern; continue; }
        }
        else {  // *#
            if (*pattern == L'*') {
                returnString = string, returnPattern = ++pattern;
                //быстрый поиск (wmemchr()) нужного символа после * + поиск # любой цифры 0-9
                if (pattern >= patternEnd) { return true; }//если последний символ в маске '*', далее строку не проверяем
                else if (*pattern > L'[') {// not wildcardCh 
                    if (!(string = wmemchr(string, *pattern, stringEnd - string))) { return false; }
                    ++string, ++pattern; continue;
                }
                else if (*pattern > L'*') {
                    if (*pattern != L'[' && *pattern != L'?') {
                        if (!(string = wmemchr(string, *pattern, stringEnd - string))) { return false; }
                        ++string, ++pattern; continue;
                    }
                }
                else if (*pattern == L'#') {
                    if (string >= stringEnd) { return pattern == patternEnd; } //если конец строки
                    while (*string > L'9' || *string < L'0' && *string) { ++string; }
                    if (string >= stringEnd) { return false; }//если не нашли и строка пустая
                    ++string, ++pattern; continue;
                }
                else if (*pattern != L'*') {
                    if (!(string = wmemchr(string, *pattern, stringEnd - string))) { return false; }
                    ++string, ++pattern; continue;
                }
                continue;
            }
            else if (string >= stringEnd) { return pattern == patternEnd; } //проверка должна быть ДО разыменовывания указателя, но после "*"
            else if (*pattern == L'#') {
                if (*string <= L'9' && *string >= L'0') { ++string, ++pattern; continue; }
            }
            else if (*pattern == *string) { ++string, ++pattern; continue; }
        }
 
        if (returnString) { string = ++returnString, pattern = returnPattern; }
        else { return false; }
    }
}