ХАНДЫФАР

Функция StringSplitEx разбивает строку на токены, используя разделители, и сохраняет их в подготовленном пользователем буфере. Функция StringSplitEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку, завершающуюся (\0) или 0.
  2. Указатель на строку разделителей, завершающуюся (\0) или 0.
  3. Указатель на подготовленный пользователем буфер для сохранения токенов.

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

  • CX: Количество токенов, сохранённых в буфере. Если строка или буфер недействительны, возвращается 0.

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

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

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

  • Токены сохраняются в подготовленном буфере, каждый токен завершается (\0) или 0.

Вспомогательная функция PrintSplitString выводит разделённую строку на экран. Если функция PrintSplitString третьим параметром получает значение FALSE, то она выводит токены, разделённые пробелом, если третьим параметром указано значение TRUE, то она выводит каждый токен с новой строки. Эта функция автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку, заканчивающуюся (\0) или 0.
  2. Количество токенов.
  3. Выводить токен через пробел или с каждой новой строки TRUE или FALSE.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Весенний ветер, лаская "
  9. ___________db "листву, шепчет тайны, "
  10. ___________db "даря аромат цветущих "
  11. ___________db "садов.\0"
  12. ____buffer db 80 dup(0)
  13. ____delims db " ,.\0"
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  19. ____include Handymac.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________pushs___ds:[buffer]
  25. ________pushs___es:[delims]
  26. ________pushs___ds:[string]
  27. ________call____StringSplitEx
  29. ________push____FALSE
  30. ________push____cx
  31. ________pushs___ds:[buffer]
  32. ________call____PrintSplitString
  34. ________push____0
  35. ________call____ExitProcessEx
  36. ____main endp
  38. code ends
  39. end main
Функция StringSplitEx разбивает строку на токены, используя разделители, и сохраняет их в подготовленном пользователем буфере. Функция StringSplitEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку, завершающуюся (\0) или 0.
  2. Указатель на строку разделителей, завершающуюся (\0) или 0.
  3. Указатель на подготовленный пользователем буфер для сохранения токенов.

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

  • CX: Количество токенов, сохранённых в буфере. Если строка или буфер недействительны, возвращается 0.

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

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

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

  • Токены сохраняются в подготовленном буфере, каждый токен завершается (\0) или 0.

Вспомогательная функция PrintSplitString выводит разделённую строку на экран. Если функция PrintSplitString третьим параметром получает значение FALSE, то она выводит токены, разделённые пробелом, если третьим параметром указано значение TRUE, то она выводит каждый токен с новой строки. Эта функция автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку, заканчивающуюся (\0) или 0.
  2. Количество токенов.
  3. Выводить токен через пробел или с каждой новой строки TRUE или FALSE.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Весенний ветер, лаская листву, шепчет тайны, даря аромат цветущих садов.\0"
  9. ____buffer db 80 dup(0)
  10. ____delims 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____; Вызываем процедуру SetDataSegment
  21. ________pushs___ds:[buffer]_______; 3-й: Ложим на вершину стека адрес переменной buffer
  22. ________pushs___es:[delims]_______; 2-й: Ложим на вершину стека адрес переменной delims
  23. ________pushs___ds:[string]_______; 1-й: Ложим на вершину стека адрес переменной string
  24. ________call____StringSplitEx_____; Вызываем процедуру StringSplitEx(string, delims, buffer) := CX
  26. ________push____FALSE_____________; 3-й: Значение FALSE выводит строку через пробел
  27. ________push____cx________________; 2-й: Ложим на вершину стека количество токенов
  28. ________pushs___ds:[buffer]_______; 1-й: Ложим на вершину стека адрес переменной buffer
  29. ________call____PrintSplitString__; Вызываем процедуру PrintSplitString(buffer, cx, FALSE)
  31. ________push____0_________________; Ложим на вершину стека байтовое значение кода возврата
  32. ________call____ExitProcessEx_____; Вызываем процедуру ExitProcess(0)
  33. ____main endp
  35. code ends
  36. end main
Made on
Tilda