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

[Iron Monk]

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

а через каждую строку 191 выводит, это для чего сделано?

У меня так выводит:

[reco1123]

у меня просто 191

if Pos('=191' у меня нету даже такого в исходном коде

[reco1123]

у меня 213 это я так понял от региона пользователя зависит

[Iron Monk]

Как вы получаете содержимое страницы (http://m.news.yandex.ru/index.html)?
В какой операционке пробуете парсить текст?

[Iron Monk]

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

у меня 213 это я так понял от региона пользователя зависит

поменяйте в коде 191 на 213

[reco1123]

а как сделать автоматическое определение региона? чтобы там могло быть любое число

[Iron Monk]

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

а как сделать автоматическое определение региона? чтобы там могло быть любое число

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

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.

[reco1123]

Спасибо большое! Теперь все как надо работает))

[reco1123]

А всетаки, не кто не знает какой компонент поставить чтобы можно было регулярками парсить?

[Dmitry33RU]

System.RegularExpressions