Парсинг

[PaHaNjkee]

Есть повторящиеся код HTML (пример)

<div class="primer">
  <p>Primer1</p>
</div>

<div class="primer">
  <p>Primer2</p>
</div>

<div class="primer">
  <p>Primer3</p>
</div>

<div class="primer">
  <p>Primer4</p>
</div>

Если использовать функцию парсинга в цикле (написанную пользователями), то всегда будет парситься текст только из первого абзаца. Как можно сделать, чтобы текст парсился со всех абзацов? Copy, Pos, Delete? До меня не доходит

[Arigato]

Может стоит привести код функции?

[PaHaNjkee]

Сообщение от Arigato

Может стоит привести код функции?

Конешно, вот

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Парсит первое попавшее

[eval]

ужас, не мудрено что первое

[PaHaNjkee]

Спасибо, помощи не требуется, написал

var
  tmp, parstext, _text, text_: string;
  i, q, b, count: integer;
begin
  text_ := '<p>';
  _text := '</p>';
  parstext := Memo1.Lines.Text;
  count := 4;
  for b := 1 to count do begin
    i := Pos(text_,parstext);
    if i = 0 then Exit;
    i := i + Length(text_);
    tmp := Copy(parstext,i,Length(parstext));
    q := Pos(_text,tmp);
    if q = 0 then Exit;
    tmp := Copy(tmp,1,q-1);
    ListBox1.Items.Add(tmp);
    Delete(parstext,i-Length(text_),q);
  end;
end;

[XE5]

Сообщение от PaHaNjkee

Спасибо, помощи не требуется

А зачем тогда просили? Не понятно.

[eval]

тут и мемо и еще чертезнает что..

[PaHaNjkee]

Сообщение от XE5

А зачем тогда просили? Не понятно.

Просто не доходило.

Сообщение от eval

тут и мемо и еще чертезнает что..

Раз Вы такой "умный", напишите нормальный код.

[Аватар]

PaHaNjkee

ТС, из-за того, что автор сообщения 7 такой "умный" совсем не следует, что он должен написать нормальный код. Он ему не нужен

[Stilet]

PaHaNjkee

Может попробуешь использовать интерфейсы mshtml.dll для парсинга?
Я вот тоже мельком на него поглядываю, но пока руки не доходят.