[iodjin]

Доброй ночи.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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% мощностей регулярных выражений.