ХАНДЫФАР

Функция FindSubStringEx выполняет поиск подстроки в строке, завершающейся (\0) или 0. Если подстрока найдена, возвращается указатель на её первое вхождение в строке. Если подстрока не найдена или один из указателей равен 0, функция возвращает 8000 и устанавливает флаг CF = 1

Функция FindSubStringEx выравнивает стек на 4 байта при достижения конца строки или если подстрока не была найдена. Если подстрока найдена, то сохраняет указатель на первую подстроку в строке в регистре AX.

Параметры:

  1. Указатель на строку, завершающуюся (\0) или 0.
  2. Указатель на подстроку, завершающуюся (\0) или 0.

Возвращаемое значение:

  • Если подстрока найдена:

____AX: Указатель на первое вхождение подстроки в строке.
____CF = 0.

  • Если подстрока не найдена или один из указателей равен 0:

____AX = 8000h.
____CF = 1.

Состояние флагов:

  • Функция влияет на флаг CF.

Особенности:

  • Поиск завершается при достижении конца строки (\0) или 0.

  • Если подстрока не найдена или один из указателей равен 0, функция возвращает 8000h и устанавливает CF = 1.

  • Функция не изменяет значения регистров, кроме AX и флага CF.

ПРИМЕР 1:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Привет, мой мир!\0"
  9. ____substr db "мой\0"
  10. data ends
  12. code segment public
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc
  15. ____include Handymac.inc
  17. ____main proc
  18. ________call____SetDataSegment
  20. ________pushs___es:[substr]
  21. ________pushs___ds:[string]
  22. ________call____FindSubStringEx
  24. ________push____ax
  25. ________call____WriteStringEx
  27. ________push____0
  28. ________call____ExitProcessEx
  29. ____main endp
  31. code ends
  32. end main

ПРИМЕР 2:

С помощью цикла можно вывести все вхождения определённой подстроки.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Привет, мой мир, мой "
  9. ___________db "рай!\0"
  10. ____substr db "мой\0"
  11. data ends
  13. code segment public
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc
  16. ____include Handymac.inc
  18. ____main proc
  19. ________call____SetDataSegment
  21. ________pushs___es:[substr]
  22. ________pushs___ds:[string]
  24. ____MainLoop:
  25. ________call____FindSubStringEx
  26. ________jc______Done
  28. ________call____WriteString
  29. ________call____PrintNewLine
  30. ________jmp_____MainLoop
  32. ____Done:
  33. ________push____0
  34. ________call____ExitProcessEx
  35. ____main endp
  37. code ends
  38. end main
Функция FindSubStringEx выполняет поиск подстроки в строке, завершающейся (\0) или 0. Если подстрока найдена, возвращается указатель на её первое вхождение в строке. Если подстрока не найдена или один из указателей равен 0, функция возвращает 8000 и устанавливает флаг CF = 1

Функция FindSubStringEx выравнивает стек на 4 байта при достижения конца строки или если подстрока не была найдена. Если подстрока найдена, то сохраняет указатель на первую подстроку в строке в регистре AX.

Параметры:

  1. Указатель на строку, завершающуюся (\0) или 0.
  2. Указатель на подстроку, завершающуюся (\0) или 0.

Возвращаемое значение:

  • Если подстрока найдена:

____AX: Указатель на первое вхождение подстроки в строке.
____CF = 0.

  • Если подстрока не найдена или один из указателей равен 0:

____AX = 8000h.
____CF = 1.

Состояние флагов:

  • Функция влияет на флаг CF.

Особенности:

  • Поиск завершается при достижении конца строки (\0) или 0.

  • Если подстрока не найдена или один из указателей равен 0, функция возвращает 8000h и устанавливает CF = 1.

  • Функция не изменяет значения регистров, кроме AX и флага CF.

ПРИМЕР 1:

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Привет, мой мир!\0"
  9. ____substr db "мой\0"
  10. data ends
  12. code segment public
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc_________; Подключаем файл с функциями
  15. ____include Handymac.inc_________; Подключаем файл с макросами
  17. ____main proc
  18. ________call____SetDataSegment___; Вызываем процедуру SetDataSegment
  20. ________pushs___es:[substr]______; Ложим на вершину стека адрес переменной substr
  21. ________pushs___ds:[string]______; Ложим на вершину стека адрес переменной string
  22. ________call____FindSubStringEx__; Вызываем процедуру FindSubStringEx(string, substr)
  24. ________push____ax_______________; Ложим на вершину стека значение регистра ax
  25. ________call____WriteStringEx____; Вызываем процедуру WriteStringEx(значение из стека)
  27. ________push____0________________; Ложим на вершину стека байтовое значение кода возврата
  28. ________call____ExitProcessEx____; Вызываем процедуру ExitProcess(0)
  29. ____main endp
  31. code ends
  32. end main

ПРИМЕР 2:

С помощью цикла можно вывести все вхождения определённой подстроки.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Привет, мой мир, мой рай!\0"
  9. ____substr db "мой\0"
  10. data ends
  12. code segment public
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc_________; Подключаем файл с функциями
  15. ____include Handymac.inc_________; Подключаем файл с макросами
  17. ____main proc
  18. ________call____SetDataSegment___; Вызываем процедуру SetDataSegment
  20. ________pushs___es:[substr]______; Ложим на вершину стека адрес переменной substr
  21. ________pushs___ds:[string]______; Ложим на вершину стека адрес переменной string
  23. ____MainLoop:
  24. ________call____FindSubStringEx__; Вызываем процедуру FindSubStringEx(string, substr)
  25. ________jc______Done_____________; Если CF=1, то прыгаем на метку Done
  27. ________call____WriteString______; Вызываем процедуру WriteString(ax)
  28. ________call____PrintNewLine_____; Вызываем процедуру PrintNewLine
  29. ________jmp_____MainLoop_________; Выполняем безусловный переход на метку MainLoop
  31. ____Done:
  32. ________push____0________________; Ложим на вершину стека байтовое значение кода возврата
  33. ________call____ExitProcessEx____; Вызываем процедуру ExitProcess(0)
  34. ____main endp
  36. code ends
  37. end main
Made on
Tilda