Поиск подстроки по указателю

[sosed213]

Всем здравствуйте.
Существует ли способ заменить штатные функции Strings.InStr, Strings.Left, Strings.Right чтобы ускорить обработку строк? При этом исходная строка хранится в памяти, и на нее есть указатель.

От куда такая потребность:
Делаю программу для работы с wim-образами. В момент применения или захвата образа, происходит CallBack с информацией о обработки текущего файла или каталога. Таких событий столько сколько файлов в образе (несколько десятков тысяч). При работе с Wim-образом (в момент применения или захвата), есть возможность пропускать "ненужные" файлы и каталоги, установкой определенного значения в возврат функции.

Но суть в том, что бы как можно быстрее понять, обрабатываемая строка (полный путь к файлу) подходит мод "маску" исключений или нет. Исходная строка хранится в памяти, и у меня есть только указатель на неё. Вначале я считываю строку по указателю, потом сравниваю ее с "маской" исключений, (например строка заканчивающееся на ".tmp" или ".dmp" или начинающееся на "\Windows\Temp") используя штатные функции Strings.InStr или Strings.Left(Strings.LCase()) и Strings.Right(Strings.LCase()).

Сейчас это работает, но я понимаю что это не эффективно, и возможно есть способ быстрой проверки на присутствие подстроки, с использованием указателей.

Возможно где то не корректно или не точно выразился.

[The trick]

StrStrI

[sosed213]

Строка (исходная для поиска) возвращаемая в CallBack имеет тип PWSTR.
Функция StrStrIW работает с типом PCWSTR (видимо PCWSTR и PWSTR одно и тоже).

Соответственно, чтобы из VB6 передать второй параметр в StrStrIW, нужно вначале преобразовать текстовую переменную (искомую) в PWSTR?

[The trick]

Просто передавай искомый параметр как StrPtr. Строки vb6 по умолчанию хранит в юникоде.

[sosed213]

Работает!
И по средним замерам скорости, примерно в 9 раз быстрее.
Спасибо!

[sosed213]

Просматривал по порядку функции в разделе Shlwapi.h, куда направил The trick, и нашел очень полезную для меня функцию PathMatchSpecEx. Позволяет быстро определить соответствует ли путь к файлу заданной маски.
Дословный перевод: "Сопоставляет имя файла из пути с одним или несколькими шаблонами имен файлов."

Код: Выделить всё

Private Declare Function PathMatchSpecExW Lib "shlwapi.dll" ( _
                        ByVal pszFile As Long, _
                        ByVal pszSpec As Long, _
                        ByVal dwFlags As Long) As Long

Private Const PMSF_NORMAL = &H0
Private Const PMSF_MULTIPLE = &H1
Private Const PMSF_DONT_STRIP_SPACES = &H10000

Private Const S_OK = 0
Private Const S_FALSE = 1

Private Sub Form_Load()
Dim strFile As String
Dim strMask As String

strFile = "C:\Windows\System32\kernel32.dll"
strMask = "*.wim;*.txt;*.dll"

If PathMatchSpecEx(strFile, strMask) = S_OK Then
    Debug.Print "S_OK"
Else
    Debug.Print "S_FALSE"
End If

End Sub


Private Function PathMatchSpecEx(ByVal sFile As String, ByVal sExtension As String) As Long
    PathMatchSpecEx = PathMatchSpecExW(ByVal StrPtr(sFile), ByVal StrPtr(sExtension), PMSF_MULTIPLE)
End Function


[Хакер]

Надо иметь в виду, что у к неё коварная логика сравнения.

Например

Код: Выделить всё

*_       *

означает то же самое, что и *_*

[sosed213]

Спасибо. буду иметь ввиду.


P.S. Сейчас на форуме есть возможность подписаться на тему, чтобы получать уведомления по почте?

[Хакер]

P.S. Сейчас на форуме есть возможность подписаться на тему, чтобы получать уведомления по почте?

Почта пока не работает. Буквально почтовая функциональность была практически готова к возобновлению своей работы, но из-за определённых обстоятельств пришлось прекратить работу. Надеюсь на скорое возобновление.