Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Delphi

Ответ
 
Опции темы
Старый 11.11.2009, 05:03   #1
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Данные с icq.com

Hарод подскажите пожалуйста простой пример получения строки nickname с http://www.icq.com/people/full_detai...php?uin=666666
(Offline)
 
Ответить с цитированием
Старый 11.11.2009, 09:01   #2
WaReZ_MEN
Модератор
 
Регистрация: 20.06.2006
Сообщений: 363
Написано 24 полезных сообщений
(для 44 пользователей)
Ответ: Данные с icq.com

Парсь html и ище в нем блок

<div class="udu-line2">
<div class="udu-flnm">Nickname</div>
<div class="udu-flvl">Human</div>
</div>
(Offline)
 
Ответить с цитированием
Старый 12.11.2009, 19:35   #3
<-TzX->
Оператор ЭВМ
 
Аватар для <-TzX->
 
Регистрация: 10.07.2009
Сообщений: 41
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: Данные с icq.com

Var
   I:Integer;
   S:string;
Begin
  i:=pos('Nickname',S);
  if i<>0 do
  Begin
       S:=copy(S,i,Length(S));
       i:=pos('flvl',S);
       S:=copy(S,i,Length(S));
       i:=pos('</div>',S);
       S:=copy(S,7,i-7);
   End;
End;
Как вариант можно сделать так. Прошу ногами сильно не пинать, какая первая мысль по поводу прасинга в голову пришла, так и сделал =)

Изначально в переменной S должен быть весь код страницы, после выполнения этого куска, там останится лишь Ник.

Пример рабочй проверял. Работать будет до тех пор пока не изменят структуру сайта. Ну или у человека не будетв нике "</div>" =))
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Freez (13.11.2009)
Старый 13.11.2009, 06:45   #4
Freez
Оператор ЭВМ
 
Аватар для Freez
 
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений
(для 10 пользователей)
Ответ: Данные с icq.com

Сообщение от <-TzX-> Посмотреть сообщение
Var
   I:Integer;
   S:string;
Begin
  i:=pos('Nickname',S);
  if i<>0 do
  Begin
       S:=copy(S,i,Length(S));
       i:=pos('flvl',S);
       S:=copy(S,i,Length(S));
       i:=pos('</div>',S);
       S:=copy(S,7,i-7);
   End;
End;
Как вариант можно сделать так. Прошу ногами сильно не пинать, какая первая мысль по поводу прасинга в голову пришла, так и сделал =)

Изначально в переменной S должен быть весь код страницы, после выполнения этого куска, там останится лишь Ник.

Пример рабочй проверял. Работать будет до тех пор пока не изменят структуру сайта. Ну или у человека не будетв нике "</div>" =))
Шикарно, теперь ножно сделать полноценный сборщик данных .

Respect аффтору

Только вот если переменная вся страница, небудет ли сборщик работать слишком медленно.Может как то ограничить переменную до нужной части ,если конечно возможно.
(Offline)
 
Ответить с цитированием
Старый 13.11.2009, 10:00   #5
<-TzX->
Оператор ЭВМ
 
Аватар для <-TzX->
 
Регистрация: 10.07.2009
Сообщений: 41
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: Данные с icq.com

Напрямую нельзя получить именно нужный кусок кода. Сначало получается в переменную вся станица, а потом уже идет прасинг (если не так, про исправте). Да и снижения скорости не будет. Если вглядется в код прасера, то когда находим нужные данные, все, что были до них удаляются. Еще глянул на структуру сайта, этим прасером можно получить практически любые данные со страницы информации, заменяя лишь слово поиска в начале. Так что программу по сбору инфораций будет сделать думаю не сложно.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать чтоб мидлет не выдавал данные. ЯМАКc MidletPascal 7 05.03.2009 02:18
Передать POST данные MySQL Основной форум 8 18.02.2009 09:06


Часовой пояс GMT +4, время: 05:49.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com