ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг ОКВЭД по ИНН
5 сообщений из 5, страница 1 из 1
парсинг ОКВЭД по ИНН
    #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:28
| Ответить | Цитировать | Написать  
парсинг ОКВЭД по ИНН
    #39761141
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
balbesесли знаете варианты проще подскажитепосмотри тут
http://read.infometer.org/opendata_sources
...
Рейтинг: 0 / 0
17.01.2019, 19:40
| Ответить | Цитировать | Написать  
парсинг ОКВЭД по ИНН
    #39761145
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
Shocker.Pro http://read.infometer.org/opendata_sources Простите, как этим пользоваться? зарегистрировался но не могу понять как осуществиьт поиск?
...
Рейтинг: 0 / 0
17.01.2019, 19:54
| Ответить | Цитировать | Написать  
парсинг ОКВЭД по ИНН
    #39761150
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
balbes, это реестр различных сайтов, предоставляющих открытые данные. Может найдешь что-то более удобное для своих целей - я просто предложил посмотреть.
...
Рейтинг: 0 / 0
17.01.2019, 20:07
| Ответить | Цитировать | Написать  
парсинг ОКВЭД по ИНН
    #39761151
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
Shocker.Pro , ;) понял! это русурс на котором собраны ресурсы, которые могут иметь нужную информацию.
...
Рейтинг: 0 / 0
17.01.2019, 20:14
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг ОКВЭД по ИНН
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39761150&tid=2154958]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 13ms
total:  148ms
созд. / загр.: 148ms
x
x
Закрыть


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