Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цтение страницы в HTML / 5 сообщений из 5, страница 1 из 1
31.03.2014, 09:13
    #38600484
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цтение страницы в HTML
Добрый день!

Изменился формат сайта банка России и теперь у меня получается какая-то фигня при чтении страницы в HTML, а именно
мне надо в тексте страницы найти определенную ссылку. ранбше я сливал весь текст в переменную s строчкой
Код: vbnet
1.
s = WebBrowser1.Document.ChildNodes.Item(1).innerHTML


но теперь при item=0 отображается
"<!-- (c) Art. Lebedev Studio | http://www.artlebedev.ru/ -->"но теперь при item=1 отображается
"<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">" но теперь при item=2 отображается
"<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Справочник по кредитным организациям | Банк России</title>
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7; IE=EmulateIE9">
<link hпри item=3 уже ошибка вылетает. а весь текст достаточно большой. можете сами убедиться, адрес страницы http://cbr.ru/credit/colist.asp?find=1000&how=rnum

что я делаю не так?
как запихать весь HTML в переменную s?
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
'загрузка таблиц с сайта ЦБ РФ
Sub web_query()
Dim WebBrowser1 As Object, o As Object
Dim s As String, URLadr2 As String, URLadr3 As String
Dim nPos As Long, nPos1 As Long, Regn As Integer
    
Set WebBrowser1 = New SHDocVw.InternetExplorer
WebBrowser1.Visible = True
    Regn = ThisWorkbook.Worksheets("CrystalSphere").Cells(4, 3)
    URLadr2 = "http://cbr.ru/credit/colist.asp?find=" & Regn & "&how=rnum"
Call WebBrowser1.Navigate(URLadr2)
'Процедурка ждёт загрузки страницы
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
    Application.Wait (1)
Loop
    'Читаем страницу в HTML, находим адрес ссылки
     s = WebBrowser1.Document.ChildNodes.Item(1).innerHTML

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2014, 09:19
    #38600489
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цтение страницы в HTML
PlanB
Код: vbnet
1.
WebBrowser1.ReadyState

замечал, что ReadyState может выдаться не вовремя. Попробуй для теста просто по времени дождаться полной загрузки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2014, 09:42
    #38600504
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цтение страницы в HTML
Shocker.ProPlanB
Код: vbnet
1.
WebBrowser1.ReadyState

замечал, что ReadyState может выдаться не вовремя. Попробуй для теста просто по времени дождаться полной загрузкине, не то. пробовал. спецом же задержку ставил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2014, 09:42
    #38601552
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цтение страницы в HTML
Shocker.ProPlanB
Код: vbnet
1.
WebBrowser1.ReadyState

замечал, что ReadyState может выдаться не вовремя. Попробуй для теста просто по времени дождаться полной загрузкиЗаработало само собой. Похоже, что Вы были правы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2014, 10:30
    #38601610
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
цтение страницы в HTML
 
PlanBчто Вы были правы
мы разве на Вы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / цтение страницы в HTML / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1086ms
Закрыть
start [/forum/search_topic.php?author=%D0%95%D0%BA%D0%B0%D1%82%D0%B5%D1%80%D0%B8%D0%BD%D0%B0+%D0%93%D0%BE%D1%80%D0%B1%D1%83%D1%88%D0%B8%D0%BD%D0%B0&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 11ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 898ms
total:  1086ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]