14.11.2009, 16:49
|
|
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
С нами:
8913664
Репутация:
0
|
|
Я пишу на делфи, с помощью компонента regexpr. Я попробовал с твоим кодом:
Код:
procedure TForm1.btn2Click(Sender: TObject);
var
Reg1: TRegExpr;
begin
Reg1 := TRegExpr.Create;
Reg1.Expression:= '<title>(.*?)<\/title>\r\n.*iption\" content=\"(.*?)\"';
if Reg1.Exec(mmo1.Text) then
ShowMessage(Reg1.Match[1])
else ShowMessage('Не найдено');
end;
в итоге пишет не найдено  Может стоить перед <title> поставить * ? Пробую, вылетает ошибка |
|
|