ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг сайта
10 сообщений из 10, страница 1 из 1
парсинг сайта
    #39536919
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Добрый день, коллеги!

Не силён в парсинге, помогите, пожалуйста, с конкретным примером. Попытался адаптировать код с excelvba.ru, но ничего не получается. Не вставляются данные в поля с Названием компании и ЕГРПОУ в юр.лицах.


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub ConnectServer()
    
    FirmName$ = "Укрсиб": FirmCode$ = "09807750"
    On Error Resume Next: Err.Clear
      Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True ' äëÿ òåñòèðîâàíèÿ
     IE.Navigate "https://asvpweb.minjust.gov.ua/#/search-debtors"
    
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
 
    Set IEdoc = IE.Document: DoEvents: DoEvents
    IEdoc.getElementsByName("data.FirmName").Item(0).Value = FirmName$
    IEdoc.getElementsByName("data.FirmName").Item(0).Value = FirmCode$
    IEdoc.getElementsByName("vm.events.search()").Item(0).submit
 
    If Err Then MsgBox "&#205;&#229; &#243;&#228;&#224;&#184;&#242;&#241;&#255; &#231;&#224;&#227;&#240;&#243;&#231;&#232;&#242;&#252; &#241;&#242;&#240;&#224;&#237;&#232;&#246;&#243;", vbCritical: End
    While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend
 
 End Sub
...
Рейтинг: 0 / 0
16.10.2017, 14:59
| Ответить | Цитировать | Написать  
парсинг сайта
    #39536922
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Может быть потому, что data.FirmName - это не имя?
Код: html
1.
<input tabindex="8" class="ng-pristine ng-valid ng-empty ng-touched" id="inputFirmName" type="text" ng-model="data.FirmName">
...
Рейтинг: 0 / 0
16.10.2017, 15:11
| Ответить | Цитировать | Написать  
парсинг сайта
    #39536926
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Shocker.Pro,

inputFirmName - это имя?
...
Рейтинг: 0 / 0
16.10.2017, 15:17
| Ответить | Цитировать | Написать  
парсинг сайта
    #39536947
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
нет, это id
https://stackoverflow.com/questions/6351570/what-is-the-difference-between-javascripts-getelementbyid-and-getelementsbyna
...
Рейтинг: 0 / 0
16.10.2017, 15:38
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537072
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Shocker.Pro,

Попробовал я заменить на ИД, но ничего не получилось

Код: vbnet
1.
IEdoc.getElementById("inputFirmName").Item(0).Value = FirmCode$



Если вам не сложно, помогите, пожалуйста, с одним правильным вариантом, чтобы дальше я бы сам смог разобраться. я перепробовал массу вариантов, но так и не смог заставить его заработать.
...
Рейтинг: 0 / 0
16.10.2017, 19:29
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537076
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ser123ничего не получилосьНичего не получилось - это не описание проблемы. Может у вас комп в розетку не включен.
Ser123Если вам не сложно, помогите, пожалуйста, с одним правильным вариантом, чтобы дальше я бы сам смог разобраться. я перепробовал массу вариантовЯ ведь дал ссылку, там описано, что вы сделали неправильно.

Кроме того, уберите On Error Resume Next, вы не видите сообщения об ошибке
...
Рейтинг: 0 / 0
16.10.2017, 19:43
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537093
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Shocker.Pro,

Я прописал следующие строки в коде:

Код: vbnet
1.
2.
    IEdoc.getElementById("inputFirmName") = FirmName$
    IEdoc.getElementById("inputFirmCode") = FirmCode$



Ошибок не выдало, просто значения не были вписаны в поля формы.
...
Рейтинг: 0 / 0
16.10.2017, 20:56
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537136
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну а Value куда потерялся?
...
Рейтинг: 0 / 0
16.10.2017, 23:57
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537139
Ser123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser123
Гость
Shocker.Pro,

C value тоже ничего не вставлялось

Код: vbnet
1.
2.
 IEdoc.getElementById("inputFirmName").Value = FirmName$
 IEdoc.getElementById("inputFirmCode").Value = FirmCode$
...
Рейтинг: 0 / 0
17.10.2017, 00:15
| Ответить | Цитировать | Написать  
парсинг сайта
    #39537148
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
...
Рейтинг: 0 / 0
17.10.2017, 00:45
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг сайта
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39537148&tid=2155194]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 272ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


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