[Hack_ERR++]

Нужно отпарсить текст следующего вида:

Код:

<div class="topictext">текст1</div><br />
<div class="topictext">текст2</div><br />
<div class="topictext">текст3</div><br />

И сохранить результат в файл. Делал так:

Код:

while c>0 do
  begin
  c:=pos('<div class="topictext">',j);
  b:=pos('</div><br />',j);
  cop:=copy(j,c+23,b-c-23);
  append(f1);
  writeln(f1,cop);
  closefile(f1);
  delete(j,c,23);
  delete(j,b,12);
  end;

Но почему то копирует пустые строки, хотя pos определяется верно. Подскажите, что не так?

[Negor]

Ну всё что в данном куске между begin и end у меня работает. Давай полный код - может проблема где то в другом? Не, сбрехал. Работет до append. Дальше не проверял. Кстати ты assignfile не забыл?

[Hack_ERR++]

Нет, не забыл - первую строчку копирует нормально. А остальное - пустые строки. Кстати, если попробовать записать результат в memo, а не в файл, то выходит то же самое((

[lmikle]

ять, скорее всего доло в том, что во 2м delete у тебя уже сбилась индексация. попробуй написать в один delete.

Код:

delete(j,c,b-c+12);

[Hack_ERR++]

lmikle, спасибо, так и было)