Получение всех гиперссылок документа HTML

Книга знаний

1С:Предприятие / Приемы программирования / Интернет-технологии

Получение всех гиперссылок документа HTML

Автор статьи:
Последняя редакция №1 от 20.11.07
URL: http://kb.mista.ru/article.php?id=610

///////////////////////////////////////////////////////////////////////
Процедура sleep(ms)
    стр="Ожидание "+ТекущееВремя();
    Состояние(стр);
    сек=цел(ms/1000);
    ВвестиСтроку(стр, стр, 100, 0, сек);
КонецПроцедуры    


///////////////////////////////////////////////////////////////////////
Процедура ПолучитьВсеГиперссылкиДокумента()
    True=-1; 
    False=0;
    //
    oIE = CreateObject("InternetExplorer.Application");
    oIE.Visible=True;
    oIE.Navigate("http://kb.mista.ru/"); //адрес для скачивания
    
    While oIE.Busy()=True Do
        sleep(1000);
    EndDo;
    
    doc1=oIE.Document;
    
      obj1_=doc1.getElementsByTagName("a"); //Выбираем все теги <a>
      чДочернихЭлементов1=obj1_.length();
      Для i1=0 по чДочернихЭлементов1-1 Цикл  
          obj1=obj1_.item(i1);
          
          strText = СокрЛП(obj1.InnerHTML);
          Сообщить("Название ссылки: "+strText);
          
          attr= obj1.attributes.getNamedItem("href");
          strUrl = attr.NodeValue;

          Сообщить("Адрес ссылки: "+strUrl);
      КонецЦикла;    
КонецПроцедуры