Вообщем нужно спарсить ипы cs1.6 серваков, вроде получилось, но только 1, а как сделать последущие ипы, котороые встречаются в html коде незнаю
.
http://www.gametracker.com/search/cs...hipp=50#search - адресс ссылки, с которой нужно спарсить ипы.
Код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s,g:string;
begin
s:=IdHTTP1.Get('http://www.gametracker.com/search/cs/60/?searchipp=50#search');
g:=copy(s,pos('<span class="ip">',s)+length('<span class="ip">'),pos('</span><span class="port">',s)-pos('<span class="ip">',s)-length('<span class="ip">'));
Memo1.Lines.Add(g + ':27015');
Memo1.Lines.Add(g + ':27016');
Memo1.Lines.Add(g + ':27017');
end;
end.
Помогите пожалуйста.