Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг сайта / 10 сообщений из 10, страница 1 из 1
16.10.2017, 14:59
    #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, 15:11
    #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:17
    #39536926
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг сайта
Shocker.Pro,

inputFirmName - это имя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2017, 15:38
    #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, 19:29
    #39537072
Ser123
Ser123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг сайта
Shocker.Pro,

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

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



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

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

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

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



Ошибок не выдало, просто значения не были вписаны в поля формы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2017, 23:57
    #39537136
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг сайта
Ну а Value куда потерялся?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2017, 00:15
    #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:45
    #39537148
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
парсинг сайта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / парсинг сайта / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 242ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155194]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 141ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 12ms
total:  242ms
x
x
Закрыть


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