Получить текст и ссылки с сайта

[reco1123]

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

System.RegularExpressions

Что-то не пойму как с ним работать

Match := TRegEx.Match(html,'<b>(.*?)</b><h4>(.*?)</h4>');
while Match.Success do begin
memo1.lines.Add(Match.value);
Match := Match.NextMatch;
end;

так он выводит полностью строку <b>Текст1</b><h4>Текст2</h4>

А как разбить на Текст1 и Текст2?

[Dmitry33RU]

Текст1 :=Match.Groups[1].Value
Текст2 :=Match.Groups[2].Value

[Alex11223]

Регулярками не надо HTML парсить, обычно гораздо проще и надежнее HTML/XML парсерами (например, используя язык запросов типа XPath).

Не знаю что в мире Дельфи есть кроме MS IHTMLDocument2, может быть это http://www.benibela.de/sources_en.html#internettools или http://www.yunqa.de/delphi/doku.php/...mlparser/index или http://sourceforge.net/projects/htmlp/ или TJvHTMLParser из Jedi. Сами гуглите в общем https://www.google.com/search?q=delphi+html+parser

[reco1123]

Сообщение от Iron Monk

Сейчас уберу регион, будет везде работать.

procedure TForm1.Button1Click(Sender: TObject);
var
lst: TStringList;
IdHTTP1: TIdHTTP;
i: integer;
begin
  IdHTTP1:= TIdHTTP.Create(nil);
  lst:= TStringList.Create;
  lst.Text:=Utf8ToAnsi(idHTTP1.Get('http://m.news.yandex.ru/index.html'));
  for i:= 0 to lst.Count - 1 do
    begin
    if Pos('href="/yandsearch?', lst[i]) <> 0 then
      begin
      lst[i]:= Trim(StringReplace(lst[i], 'href="/yandsearch?', 'http://m.news.yandex.ru/yandsearch?',[rfReplaceAll]));
      Memo1.Lines.Add(Copy(lst[i], Pos('http://m.news.yandex.ru/',lst[i]), Pos('&lr=',lst[i]) - 1));
      if Pos('&lr', Memo1.Lines[Memo1.Lines.Count - 1]) <> 0 then
      Memo1.Lines[Memo1.Lines.Count - 1]:= Copy(Memo1.Lines[Memo1.Lines.Count - 1], 1, Pos('&lr',Memo1.Lines[Memo1.Lines.Count - 1]) - 1);
      end;
         if Pos('<span class="b-titles-list__link-i">', lst[i]) <> 0 then
         Memo1.Lines.Add(Copy(Trim(lst[i]), Pos('<span class="b-titles-list__link-i">',Trim(lst[i])) + 36, Pos('</span>',Trim(lst[i])) - 37));
           if Pos('/80x80"/>', lst[i])<> 0 then
           Memo1.Lines.Add(Copy(lst[i], Pos('/80x80"/>',lst[i]) + 9, 255));
             if (Trim(lst[i]) = 'class="b-titles-list__link">') and (Pos('/80x80"/>', lst[i+1]) = 0) then
             Memo1.Lines.Add(Trim(lst[i+1]));
    end;
  lst.Free;
  IdHTTP1.Free;
end;
end.

А можно тут сделать чтобы ссылки писались не в мемо а в массив?

[Iron Monk]

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

А можно тут сделать чтобы ссылки писались не в мемо а в массив?

Скажи конкретное ТЗ. Можно и в массив, можно и активлинк. Что хочешь, только скажи, что конкретно нужно.

[reco1123]

вот заголовок так же выводить в memo а ссылки загружать в массив начиная с нуля

[Iron Monk]

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

вот заголовок так же выводить в memo а ссылки загружать в массив начиная с нуля

Это же азы))) И размер массива заранее известен. А потом нужно будет ссылки из массива извлекать. Нанимайте меня на работу))))

[reco1123]

я сделал вот так, но помойму это хрень какае-то)) хотя работает

if Pos('href="/yandsearch?', lst[i]) <> 0 then begin
lst[i]:= Trim(StringReplace(lst[i], 'href="/yandsearch?', 'http://m.news.yandex.ru/yandsearch?',[rfReplaceAll]));
Memo1.Lines.Add(Copy(lst[i], Pos('http://m.news.yandex.ru/',lst[i]), Pos('&lr=',lst[i]) - 1));
if Pos('&lr', Memo1.Lines[Memo1.Lines.Count - 1]) <> 0 then
Memo1.Lines[Memo1.Lines.Count - 1]:= Copy(Memo1.Lines[Memo1.Lines.Count - 1], 1, Pos('&lr',Memo1.Lines[Memo1.Lines.Count - 1]) - 1);
LinkNews[a]:=Memo1.Lines[Memo1.Lines.Count - 1];
Memo1.Lines.Delete(Memo1.Lines.Count - 1);
a:=a+1;
end;

[Iron Monk]

Запусти цикл downto - четные заноси в массив и удаляй.