Парсер ссылок в выдаче google

[Fahman]

Получаю ссылки вот так:

procedure TForm8.sButton2Click(Sender: TObject);
begin
smemo1.Clear;
Source:= IdHTTP1.Get('http://www.google.com/search?q='+sedit1.text);
while Pos('<h3 class="r"><a href="', Source) <> 0 do begin
Delete(Source, 1, Pos('<h3 class="r"><a href="', Source) + Length('<h3 class="r"><a href="') - 1);
smemo1.lines.Add(Copy(Source, 1, Pos('"', Source) - 1));
end;
end;

Но парсится лишний мусор:

/url?q=http://www.whatismyip.com/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CB0QFjAB&usg=AFQjCNFIVE61-j2NqDisXMmCJUwuj2J19Q
/url?q=http://en.wikipedia.org/wiki/IP_address&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CCgQFjAC&usg=AFQjCNFm1jLWHYF3PFtBMfHs_K08ZmfCdw
/url?q=http://en.wikipedia.org/wiki/Internet_Protocol&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CC4QFjAD&usg=AFQjCNHdu3AplSecUAyKpUAtPIWnG0AvLA
/url?q=http://whatismyipaddress.com/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CDQQFjAE&usg=AFQjCNHfu_6hJNbkva5iuonucRR_H3aJ6Q
/url?q=http://www.ipaustralia.gov.au/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CD4QFjAF&usg=AFQjCNEaRB9hh-6FKxjRAXcKYzee2ZdwUQ
/url?q=http://www.ipchicken.com/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CEQQFjAG&usg=AFQjCNF6YKPdzS0raKR9G_GgI6WICHrQhw
/url?q=http://www.noip.com/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CEoQFjAH&usg=AFQjCNFABdZ102qdjJJrL0-dgUttRY0mmQ
/url?q=http://www.ip138.com/ips8.asp&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CFAQFjAI&usg=AFQjCNFtMSdCGPXe9Ks7ReYTZ9uhNmUBLg
/url?q=http://www.webopedia.com/TERM/I/IP.html&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CFUQFjAJ&usg=AFQjCNHxhxVfc3pvl4gPN5JI37XR5MpsIA
/url?q=http://www.whatsmyip.us/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CFsQFjAK&usg=AFQjCNFWHY9GwxSUPdDEkZZPZa00GyQ25Q

Как исправить?

[Человек_Борща]

1. Это не лишний мусор. Так гугл защищает реальные ссылки от подобных, вашему, ботов.
2. Какой именно мусор вы имеете ввиду?

[Fahman]

Сообщение от Человек_Борща

1. Это не лишний мусор. Так гугл защищает реальные ссылки от подобных, вашему, ботов.
2. Какой именно мусор вы имеете ввиду?

То что перед ссылкой:

/url?q=

И после ссылки:

/&sa=U&ei=

Можно как то после парсинга удалить все это?

[Человек_Борща]

Функция Pos и метод Delete.

[Fahman]

Сообщение от Человек_Борща

Функция Pos и метод Delete.

а можно пример?

[Розетко]

Еще как вариант

var
   parser: string;
begin
    parser := '/url?q=888-/url?q=890-/url?q=821';

    if Pos('/url?q=',parser) <> 0 then begin
      parser := StringReplace(parser, '/url?q=', #0,[rfReplaceAll, rfIgnoreCase]);
      ListBox1.Items.Add(parser);
    end;
end;

[Stilet]

s:='/url?q=http://www.whatsmyip.us/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CFsQFjAK&usg=AFQjCNFWHY9GwxSUPdDEkZZPZa00GyQ25Q'
i:=pos('?',s);
j:=pos('/&amp',s);
Ссылка:=copy(s,i,j-i);

Идея ясна?

[Fahman]

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

s:='/url?q=http://www.whatsmyip.us/&sa=U&ei=w7apUtCaK-il4AT9i4GQDw&ved=0CFsQFjAK&usg=AFQjCNFWHY9GwxSUPdDEkZZPZa00GyQ25Q'
i:=pos('?',s);
j:=pos('/&amp',s);
Ссылка:=copy(s,i,j-i);

Идея ясна?

Нет. Можно подробней?

[Розетко]

Что непонятно то?

Функция Pos - возвращает индекс начала искомой строки. В вашем случае i:=pos('?',s) = 5 а j:=pos('/&amp',s) = 31. Функция Copy копирует из переменной s, текст с 5 символа по 30.

[Fahman]

вроде решил проблему. Ну возникла другая, как удалить полностью строку в memo в которой содержится: "webcache.googleusercontent.com "