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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.03.2010, 16:56   #1
Rionty
Новичок
Джуниор
 
Регистрация: 01.02.2010
Сообщений: 2
По умолчанию DOM разборка тегов

Разбираю страницу с помощью DOM..такой вот код
Код:
DocAll := Doc.all;
    DocA  := DocAll.Tags('td') as IHTMLElementCollection;  

    for k := 0 to DocA.length-1 do  begin
      DocElement := DocA.Item(k, 0) as IHtmlElement;
      LAttr := DocElement.getAttribute('class',0);
      if (not VarIsNull(LAttr)) and (Pos('BLU', AnsiLowerCase(LAttr)) = 0) then begin
           ListData.Add('*'+DocElement.innerText);
      end;
    end;
т.е. мне нужно получить все значения тегов td, не содержащие стиля..например есть 2 строки
1. <td class="blu">Текст1</td>
2. <td>Текст2</td>

мне нужно только получить в итоге "Текст2"..
что я тут не так делаю???ибо результата у меня здесь не выходит ни какого...
PS: LAttr почемуто во всех случаях равен NULL..
PPS: Если ссылки искать вот так, то он ищет..
Код:
    DocAll := Doc.all;
    DocA  := DocAll.Tags('a') as IHTMLElementCollection;
    for k := 0 to DocA.length-1 do  begin
      DocElement := DocA.Item(k, 0) as IHtmlElement;
      if Pos('user',LowerCase(DocElement.getAttribute('href',0))) > 0 then begin
         ListData.Add(DocElement.innerText);
      end;
    end;
в итоге у меня будут все ссылки содержащие в пути слово user
Rionty вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разборка Firewall-a Comodo и jetico West87 Безопасность, Шифрование 0 14.03.2010 12:17
Разборка телевизора mutabor Компьютерное железо 5 11.02.2010 17:06
Разборка кода Safary Помощь студентам 8 28.11.2008 09:18
Дерево DOM fclmhooligan JavaScript, Ajax 1 24.11.2008 14:11
DOM. save в IE badfilin JavaScript, Ajax 2 01.05.2008 11:20