[iodjin]

Доброй ночи.

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
s:string;
r: TRegExpr;
result:string;
Doc : IHTMLDocument2;
begin
WebBrowser1.Navigate('Страница');
while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
Doc := WebBrowser1.Document as IHTMLDocument2;
r := TRegExpr.Create;
r.InputString :=Doc.body.innerHTML;
r.Expression :='<h1>(.*?)</h1>';
if r.Exec then
result:= r.Match[1];
label2.caption:=result;
end;

Это обработчик кнопки. Нужно, чтобы в label2 вывелось то, что находится между тегами <h1> и </h1> на странице, которая загрузилась в webbrowser

Ничего не выводит. И так пробовал и сяк..

И еще хотелось попросить дать примеров регулярок для RegExpr. Нашел только на английском, но там мало что понятно.

Спасибо.

[NumLock]

используй DOM

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

... или ДКА.

[iodjin]

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

используй DOM

Я уже много чего перепробовал.. Можно поподробнее? Благодарю.

Может, кому пригодится.
Меняем строку r.Expression :='<h1>(.*?)</h1>';
На r.Expression :='<H1>(.*?)</H1>';
и все заработает.

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

Гораздо проще было ДКА набросать, чем использовать 1% мощностей регулярных выражений.