Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как можно получить текст с web-страницы ? Не HTML-контент, а именно текст. 
:(
    Опции темы
Naghual
Дата 11.3.2008, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Код

Private Sub Command2_Click()
    WebBrowser1.Navigate2 Trim(Text1.Text)
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Text2.Text = WebBrowser1.Document.body.innerText
End Sub



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
svch
Дата 12.3.2008, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



Извините, а можно ли полный код представить ?
Ну что-то вроде:
Код

Set inet = CreateObject("....")
Inet.Navigate ...
MsgBox "Текст страницы ..."


Огромное Вам спасибо.
С уважением, Сергей.
PM MAIL   Вверх
Naghual
Дата 12.3.2008, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Так полнее некуда!  ;)

Кладешь на форму WebBrowser(WebBrowser1) и пользуешься кодом.

Добавлено через 10 минут и 6 секунд
Простите, понял свою ошибку - исправляю:

Подключаешь к проекту компонент "Microsoft Internet Controls" (ieframe.dll).
Кладешь на форму новый экземпляр объекта WebBrowser с именем WebBrowser1.
Используешь код.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
svch
Дата 12.3.2008, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



Вот, что у меня кажет :(

user posted image

Это сообщение отредактировал(а) svch - 12.3.2008, 14:11
PM MAIL   Вверх
Naghual
Дата 12.3.2008, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



У вас на форме нет созданного экземпляра компонента.  В этом проблема.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
svch
Дата 12.3.2008, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



Ну как же нет, если даже навигация прошла и этот компонент получил html-код сайта ?

user posted image
PM MAIL   Вверх
Naghual
Дата 12.3.2008, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Странно. У меня на VB6 работает.
Попробуйте подключить рефференс того, чему у вас соответствует Body.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
svch
Дата 12.3.2008, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



А вы не могли бы выложить сюда нужные файлы (для регистрации и пример кода) ?
У меня просто VS 2005, я только начинающий ... и "подключить рефференс того, чему у вас соответствует Body" - не знаю, что это значит.

Спасибо.
С уважением, Сергей.
PM MAIL   Вверх
Naghual
Дата 12.3.2008, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Пожалуйста. Вот проект.


Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  svch.zip 1,75 Kb


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 12.3.2008, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(svch @  12.3.2008,  16:30 Найти цитируемый пост)
У меня просто VS 2005, я только начинающий

Ну не до такой же степени, чтобы ошибаться разделом...

Тема перенесена


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Akina
Дата 12.3.2008, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Перемещено в VB .NET.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
svch
Дата 12.3.2008, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



В общем что-то начало вырисовываться ...
В браузере открывается страница, текст получить могу.
Но есть одно "но".
Страниц этих у меня довольно много, и я сделал цикл по таблице с урлами.
При переходе на следующую запись в таблице я гружу текущий урл в браузер и вот тут получается затык.
Дело в том, что надо как-то дождаться, пока страница полностью загрузится и уже после получать с нее текст.

Пытался как-то обрабатывать WebBrowser_DocumentComplete и WebBrowser.Busy, но как-то безуспешно. 
Помогите добить до конца уж ...

С уважением, Сергей.

З.Ы. Может все таки тему обратно в VB6 перенести ? Я таки его себе установил.
PM MAIL   Вверх
Naghual
Дата 12.3.2008, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Загрузку каждого последующего адреса нужно вызывать в конце процедуры WebBrowser_DocumentComplete, после извлечения текста страницы.


Цитата(svch @  12.3.2008,  19:26 Найти цитируемый пост)
З.Ы. Может все таки тему обратно в VB6 перенести ? Я таки его себе установил. 

Попроси Akina.   smile 


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Exception
Дата 13.3.2008, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Ну вы даёте smile . Вам вообще без разницы, на .NET писать или на 6 o_O ? Это же абсолютно разные вещи.
Перемещаю обратно.
PM   Вверх
svch
Дата 13.3.2008, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 10.4.2006

Репутация: нет
Всего: нет



Цитата

Загрузку каждого последующего адреса нужно вызывать в конце процедуры WebBrowser_DocumentComplete

А как его там вызывать-то ? Если использовать что-то похожее на это.

Код

Private Sub Command1_Click()
    Do Until tbl.EOF
        WebBrowser1.Navigate (tbl!url)
        tbl.MoveNext
    Loop
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
    MsgBox WebBrowser1.Document.body.innerText
End Sub


С уважением, Сергей.
PM MAIL   Вверх
Страницы: (4) Все 1 [2] 3 4 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0685 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.