Список форумов Форум Libreoffice

Форум Libreoffice

Добро пожаловать на Форум Libreoffice!
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

English French German Italian Portuguese Russian Spanish
Получить HTML-код и текст Интернет-страницы

 
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic
Предыдущая тема :: Следующая тема  
Автор Сообщение
RFJ



Репутация: +1    

Зарегистрирован: 02.08.2011
Сообщения: 59

СообщениеДобавлено: Вс Сен 04, 2011 11:02 am    Заголовок сообщения: Получить HTML-код и текст Интернет-страницы Ответить с цитатой

Используя ActiveX "InternetExplorer", можно легко получить HTML-код или текст Интернет-страницы, и сохранить в переменную для дальнейшей обработки.
Код:

Sub wwwbody
Dim o As Object
 
'Используем ActiveX "InternetExplorer"
o=CreateObject("InternetExplorer.Application")

'Находим и загружаем нужную Интернет-страницу
o.Navigate2("http://www.rialight.kz?showrealty=true&realtyid=2483")

'Ждем окончания загрузки Интернет-страницы
WHILE o.ReadyState <> 4
wait 10
WEND

'Получаем HTML-код Интернет-страницы
webHTML=o.Document.body.InnerHTML
   MsgBox webHTML
   
'Получаем текст с Интернет-страницы   
webText=o.Document.body.InnerText
   MsgBox webText
   
End Sub
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Форум Libreoffice -> Basic Часовой пояс: GMT
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Вы можете бесплатно создать форум на MyBB2.ru, RSS