Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
7 / 7 / 4
Регистрация: 13.09.2013
Сообщений: 96
1

Парсер

29.10.2013, 02:30. Просмотров 998. Ответов 4
Метки нет (Все метки)

У меня такая проблема решил спарсить id пользователей но у меня такая проблема
вот отчет от сниффера

Кликните здесь для просмотра всего текста
alue="http://galaxy.mobstudio.ru/services/index.php?userID=17019009&password=wfcz8uik&usercur=17019009 &" /><hlink name="huyo2" value="http://galaxy2.mobstudio.ru/services/index.php?userID=17019009&password=wfcz8uik&" /><p font="1">Москва</p><br><br>Список галактян, которые сейчас оффлайн:<br><br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=18388702&a=whois&">/--ALMAZ--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=24692473&a=whois&">/--Anna--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=19477124&a=whois&">/--Online--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=13361591&a=whois&">/--SOFID--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=12961539&a=whoi
<= 02:05:28:191 TCP 54 10.228.65.181:64648 > 95.172.133.164:80 http 0 ACK
=> 02:05:28:196 TCP 1414 95.172.133.164:80 > 10.228.65.181:64648 http 1360 s&">/--Александр-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=25144182&a=whois&">/--МАТЫЛЕК--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=20933942&a=whois&">/--Света--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=14056251&a=whois&">/--ЯнА--/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=24197658&a=whois&">/-/-/-/-/-/-/-</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=20944753&a=whois&">/-/-КАТЯ-/-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=17621048&a=whois&">/-/КоТиК/-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=18766747&a=whois&">/-/мракобес/-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances
=> 02:05:28:207 TCP 1414 95.172.133.164:80 > 10.228.65.181:64648 http 1360 /male.png" /> <a href="#huyo2#usercur=10064479&a=whois&">/-Bellator-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=12649830&a=whois&">/-lexaspirit-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=21679444&a=whois&">/-MakSonic-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=15779078&a=whois&">/-OPTIMUS-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=13274840&a=whois&">/-Даша-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=41934&a=whois&">/-ИюльскиЙ-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/male.png" /> <a href="#huyo2#usercur=356986&a=whois&">/-курьер-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=10462&a=whois&">/-Мариша-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/
<= 02:05:28:329 TCP 54 10.228.65.181:64648 > 95.172.133.164:80 http 0 ACK
=> 02:05:28:338 TCP 1089 95.172.133.164:80 > 10.228.65.181:64648 http 1035 acquaintances/male.png" /> <a href="#huyo2#usercur=3028141&a=whois&">/-ОХОТНИК-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=3579773&a=whois&">/-СЧАСТЬЕ-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=23568173&a=whois&">/-та-самая-/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=3960570&a=whois&">/-ТА_самая_/</a> (offline)<br><img h="14" w="14" src="http://galaxy.mobstudio.ru/services/img_cache/acquaintances/female.png" /> <a href="#huyo2#usercur=6742337&a=whois&">/-Тюльпанчик-/</a> (offline)<br><br><a href="#huya#a=my_city_new_users_list&cityId=1437&status=0&pa ge=1&">Дальше</a><br><br><br><br><a button="1" href="#huya#a=my_city_new_display_city&cityId=1437&" action="post">К городу</a></body>
<= 02:05:28:361 TCP 283 10.228.65.181:64648 > 95.172.133.164:80 http 229 GET /services/img_cache/acquaintances/male.png HTTP/1.1 KBversion: 73 w: 340 p1: 0 User-Agent: Java/1.7.0_17 Host: galaxy.mobstudio.ru Accept: text/html, image/gif, image/jpeg, *; q=.2, */*; q=.2 Connection: keep-alive
=> 02:05:28:498 TCP 54 95.172.133.164:80 > 10.228.65.181:64648 http 0 ACK

<= 02:05:28:539 TCP 285 10.228.65.181:64648 > 95.172.133.164:80 http 231 GET /services/img_cache/acquaintances/female.png HTTP/1.1 KBversion: 73 w: 340 p1: 0 User-Agent: Java/1.7.0_17 Host: galaxy.mobstudio.ru Accept: text/html, image/gif, image/jpeg, *; q=.2, */*; q=.2 Connection: keep-alive





Мне именно надо спрасить "#huyo2#usercur=23568173&a=whois&"> 2356817 ну короче id ,
я делаю так


Delphi
1
2
3
4
5
6
7
8
function GetText(var s:string; str1, str2: string): string;
var
  buf:string;
begin
  delete(s,1,pos(str1,s)+length(str1)-1);
  buf:=copy(s,1,pos(str2,s)-1);
  result:=buf;
end;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
http:TIdhttp;
parser,search,myid,mypass:string;
begin
  Myid:=edit1.text;
  mypass:=edit2.text;
HTTP := TIdHTTP.Create(nil);
try
parser:=Utf8ToAnsi(HTTP.GET('http://galaxy.mobstudio.ru/services/index.php?userID='+Myid+'&password='+mypass+'&usercur='+myid+'&a=my_city_new_users_list&cityId=1437&status=0&page=0&&kbv=73&lngg=ru&dbl=2'));
search:=GetText(parser,'"#huyo2#usercur=','&a=whois&">');
ListBox1.Items.Add(Search);
finally
HTTP.Free;
end;
end;

с этим все нормально НОО почему то он лишь парсит один id а мне нужны все id которые даются в сниффере
как мне сделать?:??буду очень благодарен
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2013, 02:30
Ответы с готовыми решениями:

Парсер
Помогите пожалуйста спарсить. Есть вот такой текст в мемо &quot;- Яниночка 35535396 -3 hb/65_ 0 -77 33 0...

Парсер
Привет всем Как можно спарсить инвентари игр (либо игры) со страницы вида...

Парсер
Между этими тэгами есть текст как его прописать в memo1? &lt;p...

Парсер
Здравствуйте! Хочу сделать для себя программу-парсер раздач на трекер. Двумя полями и одной...

4
191 / 50 / 10
Регистрация: 27.09.2013
Сообщений: 516
Записей в блоге: 4
29.10.2013, 03:07 2
как мне кажется, нужно сделать цикл, который будет обрабатывать все найденные значения
0
7 / 7 / 4
Регистрация: 13.09.2013
Сообщений: 96
29.10.2013, 16:26  [ТС] 3
ну с этим я разобрался ,новая проблема
смотрим отчет сниффера который я предоставил смотрим конец


href="#huya#a=my_city_new_users_list&cityId=1437&status=0&pa ge=1&">Дальше</a><br><br><br><br><a button="1" href="#huya#a=my_city_new_display_city&cityId=1437&" action="post">К городу</a></body>

Вот мне нужно чтобы он сначало спрасил ВСЕ ID а потом нажал Дальше то есть перешел на другую страницу
href="#huya#a=my_city_new_users_list&cityId=1437&status=0&pa ge=1&">Дальше</a><br><br><br><br><a
ну вот как мне сделать?? а то я босюь что он не все спарсит и перейдет на другую страницу
0
191 / 50 / 10
Регистрация: 27.09.2013
Сообщений: 516
Записей в блоге: 4
29.10.2013, 20:50 4
Цитата Сообщение от Molas Посмотреть сообщение
ну с этим я разобрался ,новая проблема
смотрим отчет сниффера который я предоставил смотрим конец


href="#huya#a=my_city_new_users_list&cityId=1437&status=0&pa ge=1&">Дальше</a><br><br><br><br><a button="1" href="#huya#a=my_city_new_display_city&cityId=1437&" action="post">К городу</a></body>

Вот мне нужно чтобы он сначало спрасил ВСЕ ID а потом нажал Дальше то есть перешел на другую страницу
href="#huya#a=my_city_new_users_list&cityId=1437&status=0&pa ge=1&">Дальше</a><br><br><br><br><a
ну вот как мне сделать?? а то я босюь что он не все спарсит и перейдет на другую страницу
сделайте проверку на результат, если он не равен нужному значению, то идти дальше
0
7 / 7 / 4
Регистрация: 13.09.2013
Сообщений: 96
29.10.2013, 22:52  [ТС] 5
спс,но решил проблему сам вот таким образом
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Getblog;
var
  flag:string;
  http:TIdhttp;
  begin
   flag:= 'usercur=';
   if pos (flag, parser)<>0 then  begin
parser:= Copy(parser, Pos(flag, parser) + 8, Length(parser));
listbox1.Items.Add(Copy(parser, 0, Pos('&', parser) - 1));
Getblog;
///services/index.php?userID=170**&password=wfcz8uik&usercur=170***&a=my_city_new_users_list&cityId=1437&status=0&page=1&&kbv=73&lngg=ru&dbl=2
end
  else
  begin
    HTTP := TIdHTTP.Create(nil);
 if pos ('Нет записей', parser)<>0 then exit;
pageBlog:= pageBlog+1;
parser:=Utf8ToAnsi(HTTP.GET('http://galaxy.mobstudio.ru/services/index.php?userID='+Myid+'&password='+mypass+'&usercur='+myid+'&a=my_city_new_users_list&cityId=1437&status=0&page='+inttostr(pageBlog)+'&&kbv=73&lngg=ru&dbl=2')) ;
Getblog;
  end;
    end;

теперь листает и парсит id ну вот я задумался,создать мне поток для этого? или же через таймер(id нужно собрать около 500000)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2013, 22:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

парсер
пытался переделать исходники парсера из delphi xe3 в delphi 7, выдает ошибку:

Парсер(наброски)
Доброго времени суток, помогите мне написать парсер с регулярной формулой r.Expression...

Парсер сайта
Здравствуйте, пишу парсер сайта, myscore, идея такая, парсить, заносить в базу данных, чтобы каждый...

Delphi парсер
Подскажите парсер для Делфи. Работаю в Embarcadero RAD Studio XE2 с проектами типа Firemonkey iOS...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.