нужно чтобы содержание текста между тегами <title> и </title> записалось в переменную A, а содержание описания записалось в переменную B. Помогите пожалуйста
Я пишу на делфи, с помощью компонента 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> поставить * ? Пробую, вылетает ошибка
хмм делфи... ну попробуй замени \r\n на '.#10#13.' эмм или #13#10 не помню коды )
типа
Reg1.Expression:= '<title>(.*?)<\/title>'.#10#13.'.*iption\" content=\"(.*?)\"';
procedure TForm1.btn2Click(Sender: TObject);
var Reg1: TRegExpr;
begin
Reg1 := TRegExpr.Create;
Reg1.Expression:= '<title>(.+?)<.title>';
if Reg1.Exec(mmo1.Text) then
ShowMessage(Reg1.Match[1])
else
ShowMessage('Не найдено');
end;
записывал так Reg1.Expression:= '<title>(.*?)<\/title>'+#10#13+'.*iption\" content=\"(.*?)\"'; и не найдено в итоге, попробовал Reg1.Expression:= '<title>(.+?)<.title>'; выдало заголовок, теперь осталось вывести только описание