Функция PosEx

[Rey]

Мне нужно со страницы сайта взять текст, который лежит между кодами.
для этого есть функция posex . может у кого-то есть простой пример или объяснение как ей пользоваться?

[Mifody]

Из справки:

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

так что:
SubStr - что ищем
S - где ищем
Offset - начиная с какой позиции искать.
Результат - позиция первого вхождения SubStr или 0 если не нашли.

А как пользоваться? Элементарно, к примеру.
Дано: найти все позиции вхождения тега "<BR>" в текст.
Реализация (пишу сразу сюда, так что могут быть ошибки)

var
  StartPost : Integer;
  MyText : string;
begin
  MyText := 'записали сюда фиг его знает каакой текст';
  StartPos := 0; // присваеваем переменной стартовое значение.
  While true do // бесконечный цикл, выскакивать будем по условию
  begin
    startPos := PosEx('<BR>', MyText, StartPos + 1); // смысл такой, ищем '<BR>' начиная со следующей позиции после предидущего значения
    if StartPos > 0 then // чего-то нашли
      // записываем найденную позицию или еще чего
    else  // ничего не нашли
      Break; // значит выходим из цикла
    
  end;
end;

Пример для рекурсивного поиска всех вхождений, просто надо запомнить что функция позволяет искать начиная с определенной позиции, а как будете использовать - это уже Ваше дело

[Rey]

а у меня вот такое дело. Есть на одном сайте сообщение. и мне надо вывести это сообщение в memo. то есть надо указать что между двумя тегами лежит сообщение и вывести в memo.

[Mifody]

и в чем проблема?

startPos := PosEx('<тег_с_которого_начинается_нужный_текст>', MyText);
endPos := PosEx('<тег_которым_заканчивается_нужный_текст>', MyText, startPos);
text := Copy(MyText, startPos, endPos - startPos);

[ujif]

Спасибо Уважаемый Mifody за простое и внятное объяснение
этой хитроумной функции