Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг ОКВЭД по ИНН / 5 сообщений из 5, страница 1 из 1
17.01.2019, 19:28
    #39761136
balbes
balbes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг ОКВЭД по ИНН
hi ALL

1. Задача получить ОКВЭД по ИНН.
нашел единственный способ ресурс контур.фокус (если знаете варианты проще подскажите)
ссылка ИНН вернет некую информацию в т.ч. и ОКВЭД
Но переход осуществляется не сразу, а с "переадресацией" т.е. ссылка типа
Код: php
1.
https://focus.kontur.ru/search?country=ru&query=7206018220

превращается в
Код: php
1.
https://focus.kontur.ru/entity?query=1037200149832

т.е. в конце уже не ИНН а ОГРН (1037200149832)
я пытаюсь
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub test_internet()
    On Error Resume Next
    URL$ = "https://focus.kontur.ru/search?country=ru&query=7206018220"
 
    Const TIMEOUT& = 6        ' в секундах
    Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
 
    xmlhttp.Open "GET", URL$, False: DoEvents
    xmlhttp.Send: DoEvents
 
    If Not xmlhttp.WaitForResponse(TIMEOUT&) Then
        MsgBox "timeout", URL: Exit Sub
    End If
    txt$ = xmlhttp.responsetext
    MsgBox txt, vbInformation, "Длина ответа: " & Len(txt)
End Sub

обратиться по инн и получаю в ответ исходник промежуточной стр. до "переадресации"
1.поскажите как спарсить ОКВЭД со страницы после переадресации?
2.получиьтся ли средствами объекта "WinHttp.WinHttpRequest.5.1" или здесть без браузера не обойтись, что бы перход выполялся автоматически. Или все же возможно с применением таймаута?
3.любые др. ИЗЯщные решения.
СПАСИБО!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2019, 19:40
    #39761141
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг ОКВЭД по ИНН
balbesесли знаете варианты проще подскажитепосмотри тут
http://read.infometer.org/opendata_sources
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2019, 19:54
    #39761145
balbes
balbes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг ОКВЭД по ИНН
Shocker.Pro http://read.infometer.org/opendata_sources Простите, как этим пользоваться? зарегистрировался но не могу понять как осуществиьт поиск?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2019, 20:07
    #39761150
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг ОКВЭД по ИНН
balbes, это реестр различных сайтов, предоставляющих открытые данные. Может найдешь что-то более удобное для своих целей - я просто предложил посмотреть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.01.2019, 20:14
    #39761151
balbes
balbes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг ОКВЭД по ИНН
Shocker.Pro , ;) понял! это русурс на котором собраны ресурсы, которые могут иметь нужную информацию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг ОКВЭД по ИНН / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 131ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2154958]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 15ms
total:  131ms
x
x
Закрыть


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