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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2013, 13:58   #1
nefakt
Форумчанин
 
Регистрация: 25.10.2012
Сообщений: 161
По умолчанию Парсинг

Здравствуйте использую код для парсинга
Код:
var
  Doc, Arr, Elem : Variant;
  STag: String;
  i : Integer;
begin
  //Ссылка на документ.
  Doc := WebBrowser1.OleObject.document;
  if TVarData(Doc).VDispatch = nil then begin
    ShowMessage('Документ не задан. Действие отменено.');
    Exit;
  end;

  //Параметры поиска.

  //Тег.
  STag := 'а';
  sMemo2.Lines.Add('Тег: "' + STag + '".');
  sMemo2.Lines.Add('Элементы:');

  //Поиск и выполнение.

  //Получаем список всех элементов с заданным тегом STag.
  Arr := Doc.getElementsByTagName(STag);
  //Перебираем элементы этого списка и распечатываем их параметры.
  for i := 0 to Arr.length - 1 do begin
    //Ссылка на очередной элемент.
    Elem := Arr.item(i);
    sMemo2.Lines.Add('--------------------------------------------------');
    sMemo2.Lines.Add('Тег: "' + Elem.tagName + '"');
    sMemo2.Lines.Add('href: "' + Elem.href + '"');
    sMemo2.Lines.Add('текст: "' + Elem.innerHTML + '"');
  end;
Он парсит все ссылки со страницы, а как сделать что бы он парсил только ссылки которые начинаются так
Код:
<td align="left">
        	<span id="l_1544"><a href="http://эту ссылку парсить" onclick="document.getElementById('l_1544').innerHTML='Выполнено'" target="_blank">
P.S. ID у каждой ссылки меняются
Можно ли организовать поиск только по <td align="left">.
Class`a в коде нету покрайней мере в тех местах где нужные мне ссылки.
Заранее спасибо.
nefakt вне форума Ответить с цитированием
Старый 04.05.2013, 14:15   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Как-то не уловил связь между тегом ссылки и Class-ом...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 04.05.2013, 14:32   #3
nefakt
Форумчанин
 
Регистрация: 25.10.2012
Сообщений: 161
По умолчанию

Ну мне в общем нужно что бы он искал по этим значениям
Код:
<td align="left">
        	<span id="l_1544"><a href="http://эту ссылку парсить" onclick="document.getElementById('l_1544').innerHTML='Выполнено'" target="_blank">
и выводил именно ссылку.
Про Class я написал просо в когда искал много видел то что можно по Class`у искать и все что в классе парсить.
А мне нужно что бы онпарсил все что находится после
Код:
<td align="left">
Т.к. все нужные мне ссылки начинаются с
Код:
<td align="left">
nefakt вне форума Ответить с цитированием
Старый 04.05.2013, 15:07   #4
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Ну так парсите все, а потом выбирайте того то, что Вам нужно.
s-andriano вне форума Ответить с цитированием
Старый 04.05.2013, 15:18   #5
nefakt
Форумчанин
 
Регистрация: 25.10.2012
Сообщений: 161
По умолчанию

У меня и так все ссылки парсит
Код:
 sMemo2.Lines.Add('Тег: "' + Elem.tagName + '"');
    sMemo2.Lines.Add('href: "' + Elem.href + '"');
    sMemo2.Lines.Add('текст: "' + Elem.innerHTML + '"');
Тут я меня значения и все равно выводит все ссылки так как указан
Код:
Elem.href
я так думаю и надо сделать что бы он из определенной категории парсил а именно из неё
Код:
<td align="left">
а как правельно прописать код я не знаю.
nefakt вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг с cy-pr.com megostudent Работа с сетью в Delphi 5 28.03.2013 19:59
Парсинг Gudzik11 Общие вопросы Delphi 6 15.04.2012 21:51
Парсинг TranceSmile PHP 7 06.03.2012 01:32
парсинг Pein95 Работа с сетью в Delphi 4 01.12.2011 02:06
Парсинг DJ_LINZA Работа с сетью в Delphi 6 31.01.2011 10:15