[scroyler]

Подскажите пож. в чем ошибка?
Пытаюсь спарсить название темы с форума.

Код:

var st: string;
begin
st:=idhttp1.Get('http://exclusive.fatbb.ru/viewforum.php?f=24');
Form1.edit2.Text:=copy(st,pos('<a class="topictitle" href="./viewtopic.php?f=24&amp;t=49">',st)+7, pos('<br/>',st)-pos('<a class="topictitle" href="./viewtopic.php?f=24&amp;t=49">',st)-7);
end;

но почему то не парсит,просто пустой эдит. В чем ошибка?

[Pyro]

если ошибка в коде, то можно:
из copy/pos/length сделать понятную функцию, и её протестировать
или хотябы разбаить на два delete(pos())

[scroyler]

спасибо,а можешь на примере?

[Pyro]

я как поняыл тебе надо текст между двумя известными подстроками
делаешь одну функцию, состоящую из нескольких простых

PHP код:

function between(source, from, ito: string): string;
begin
  result := chopright(chopleft(source, from), ito);
end; 


осталось написать функции chopright и chopleft которые отрубят у строки ненужное слева и справа, и их легко протестировать на простых примерах

[scroyler]

что то не понял, а можно на рабочем примере?

[M.A.D.M.A.N.]

РегЭкспы в помощь.

[Pyro]

вобще да, в разделе Интернет и сети - регэкспы или хмл парсер, а то со строками не серьёзно

[NumLock]

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

В чем ошибка?

потому что у меня сначала атрибут "href", а потом "class" у тэга "a". и я бы не стал рисковать и парсить html xml-парсером.

[scroyler]

Спасибо.
Дайте плз код html парсера

[scroyler]

Дайте код рабочего парсера пожалуйста

[NumLock]

IHTMLDocument2

[scroyler]

не понял,что это?

[scroyler]

Я всеравно не знаю как это применять