/
Smitis
/
PurePortable
Обзор
Документация
Войти
/
Smitis
/
PurePortable
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PPDK/Lib/proc/FindMemoryString.pbi
19 строк
621 B
Smitis
4.10.0.24
01 авг 2024, 02:25
01 авг 2024, 02:25
8153702
Код
Авторство
О чём код?
; Поиск в памяти Procedure.i FindMemoryString(*mem,*end,txt.s,codepage=#PB_Ascii) Protected sizechar = 1 If codepage = #PB_Unicode : sizechar = 2 : EndIf Protected bufsize = Len(txt)*sizechar Protected *last = *end-bufsize Protected *buf = AllocateMemory(bufsize+sizechar) PokeS(*buf,txt,-1,codepage) Protected *adr = *mem While *adr < *last If CompareMemoryString(*adr,*buf,#PB_String_NoCase,-1,codepage) = #PB_String_Equal FreeMemory(*buf) ProcedureReturn *adr EndIf *adr + sizechar ; или лучше всё-таки 1??? Wend FreeMemory(*buf) ProcedureReturn #Null EndProcedure