Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2012, 19:51   #1
Jadson
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию парсинг ссылок сайта

есть парсер для сайта который берет вакансии с сайта http://www.work.ua/jobs/?category=1
каким образом можна выдернуть ссылку на "полное описание"?

Код:
var
  Form2: TForm2;
  ht,st,ss: string;
  v_name,v_opis,v_city,posprice,v_price: string;
  i,j: integer;
  Find:string; // Искомая строка
  k:integer; // Счетчик для цикла
begin
  st:=Utf8ToAnsi(idhttp1.Get('http://www.work.ua/jobs/?category=1'));
  memo1.Lines.Add('=======================Вакансии======================='+#13#10#13#10);
  repeat
    v_name:=copy(st,pos('class="bf">',st)+11,pos('<td align',st)-pos('class="bf">',st)-24);
    v_opis:=copy(st,pos('class="paddTopNone"><p class="mw">',st)+34,pos('&hellip;',st)-pos('class="paddTopNone"><p class="mw">',st)-34);
    posprice:=copy(st,1,pos('<td style="width:1px; padding-left:10px;">',st));
    if pos('</b><i >',st)<>0 then
      v_price:=copy(st,pos('</nobr></span><b>',st)+17,pos('</b><i >',st)-pos('</nobr></span><b>',st)-17)
    else  v_price:='По договорности';
     pp := pos('">Полное&nbsp;описание&nbsp;&rarr;<', st);
      pp_start := pp - 1;
      while st[pp_start] <> '"' do dec(pp_start);
      v_full := copy(st, pp_start + 1, pp - pp_start - 1);
     memo1.Lines.Add('Заголоваок: '+v_name);
    memo1.Lines.Add('Зарплата : '+v_price);
    memo1.Lines.Add('Описание: '+#13#10+v_opis);
    memo1.Lines.Add('Полное описание: '+#13#10+v_full);
    memo1.Lines.Add(#13#10#13#10+'--------------'+#13#10#13#10);
     st:=copy(st,pos('</a></noindex></p></td>',st)+25,length(st));
  until (pos('</a></noindex></p></td>',st) = 0);
end;

Последний раз редактировалось Jadson; 13.05.2012 в 20:42.
Jadson вне форума Ответить с цитированием
Старый 13.05.2012, 20:13   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Так вы посмотрите html-код страницы:
Код:
<noindex><a href="/jobs/894528/">Полное&nbsp;описание&nbsp;&rarr;</a></noindex></p>
Кстати, в вашем посте заключение кода вместо тега code в тег "цитата" понаставило лишних пробелов.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Последний раз редактировалось BDA; 13.05.2012 в 20:38.
BDA вне форума Ответить с цитированием
Старый 13.05.2012, 20:43   #3
Jadson
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Так вы посмотрите html-код страницы:
Код:
<noindex><a href="/jobs/894528/">Полное&nbsp;описание&nbsp;&rarr;</a></noindex></p>
Кстати, в вашем посте заключение кода вместо тега code в тег "цитата" понаставило лишних пробелов.
я то посмотрел пробовал брать но вот так получается http://s2.ipicture.ru/uploads/20120513/EkNsTdkw.jpg

как сделать что бы была полноценная ссылка с переходном на сайт?
Jadson вне форума Ответить с цитированием
Старый 13.05.2012, 20:46   #4
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Ну дык добавь к ссылке нужное начало, делов то.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 13.05.2012, 20:56   #5
Jadson
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию

Цитата:
Сообщение от Valio Посмотреть сообщение
Ну дык добавь к ссылке нужное начало, делов то.
об этом я тоже догадывался,но какое начало?
Jadson вне форума Ответить с цитированием
Старый 13.05.2012, 21:06   #6
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Вот, кое-что дописал.
Вложения
Тип файла: zip pr.zip (297.1 Кб, 22 просмотров)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.05.2012, 21:10   #7
Jadson
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Вот, кое-что дописал.
а что бы переходило прямо по этой ссылке с мемо на сайт нельзя такое сделать?
Jadson вне форума Ответить с цитированием
Старый 13.05.2012, 21:11   #8
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Цитата:
Сообщение от Jadson Посмотреть сообщение
об этом я тоже догадывался,но какое начало?
А если подумать? Название сайта.

http://www.work.ua
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 13.05.2012, 21:16   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Цитата:
Сообщение от Jadson Посмотреть сообщение
а что бы переходило прямо по этой ссылке с мемо на сайт нельзя такое сделать?
Нет, из мемо вряд ли.
Можно сделать по-другому - формировать html-документ и открывать его в webbrowser, который расположить на форме. Тогда ссылку можно сделать кликабельной.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.05.2012, 21:18   #10
Jadson
Пользователь
 
Регистрация: 06.12.2010
Сообщений: 15
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Нет, из мемо вряд ли.
Можно сделать по-другому - формировать html-документ и открывать его в webbrowser, который расположить на форме. Тогда ссылку можно сделать кликабельной.
та нет,этот вариант не подходит.спасибо большое и на этом
Jadson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг ссылок сайта demiancz Общие вопросы Delphi 9 27.02.2012 01:00
preg_match? парсинг и вывод списка ссылок? taurii PHP 1 07.02.2012 16:16
Парсинг ссылок cashmail PHP 1 01.07.2011 16:39
парсинг сайта CodeNOT PHP 1 21.03.2011 09:48
парсер (сбор ссылок с сайта) AlexMenco Фриланс 9 24.02.2009 19:39