ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Access 2016 использование текстовых значений
11 сообщений из 61, страница 3 из 3
  3  все
VBA Access 2016 использование текстовых значений
    #39991849
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
greker, смотрите код страницы - эта фраза имеет либо тэг, либо в каком то классе находится - этот элемент и проверяйте по типу того что есть у вас в коде. может распарсить надо немножко (разобрать код html)
...
Рейтинг: 0 / 0
23.08.2020, 23:57
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39991966
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
alecko,

Вложил фото html с этой фразой))

Можешь подсказать, как проверять эту фразу?)
...
Рейтинг: 0 / 0
24.08.2020, 13:47
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992022
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
greker,
если таблиц на странице много, то лучше искать по имени класса, если же нет - по тэгу, либо просматривать все ячейки всех таблиц с целью найти соответствующую надпись
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim tbl As HTMLTable, row As HTMLTableRow, HTML As HTMLDocument,  oIE As WebBrowser
' где то выше браузер загрузил страницу
' ...
  Set HTML = oIE.Document
 set tbl=html.getElementsByClassName("tableborder")
Set row = tbl.rows(1)
Debug.Print row.cells.Item(0).innerText

...
Рейтинг: 0 / 0
24.08.2020, 16:41
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992024
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
greker
Тут теперь другая проблемка выскочила:
Теперь на ресурсе доступ висит некоторое время.
Возможно ли прописать в коде проверку: если на странице explorer есть фраза "Вы успешно авторизировались", то переходим к строке в коде дальше, минуя авторизацию, а если нет, то идём дальше по коду просто (то есть проходим процесс авторизации)?
Это же вроде через условие можно сделать, с проверкой по фразе?

Покажите код всей страницы . Вы показали как всегда кусочек , на снимке видно только таблица . Но она же появляется по какому то событию , она же не постоянно отображается на экране ? Наверняка где то в коде регулируется свойство display таблицы. Надпись показывает лишь только то , что Вы прошли авторизацию . Вам нужно или выложить сюда код , или нанять программиста. Вы так долго с бубном плясать будете. :))
P.S а вообще таблице присвоен класс tableborder , ищите в коде getelementsByClassName('tableholder') .
Что то типа такого .
...
Рейтинг: 0 / 0
24.08.2020, 16:58
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992025
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Опоздал , долго писал. :)
...
Рейтинг: 0 / 0
24.08.2020, 16:59
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992027
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
greker, проще всего получить код страницы как текст и проверить на наличие этой фразы ( InStr )
...
Рейтинг: 0 / 0
24.08.2020, 17:19
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992052
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
Да какие тут сложности, не нужны селекторы , не нужен поиск по тегам,классам,айдишникам, и не нужны куски кода другие на html, ищем то фразу на странице.
Можно при помощи inStr и xml действительно.

Вот рабочий пример парсинга по вашему куску html:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set dcm = CreateObject("msxml2.xmlhttp")
        dcm.Open "POST", "http://ВАШ_ПУТЬ_ДО_СТРАНИЦЫ", False
        dcm.send
    strVar = dcm.responseText
    If InStr(strVar, "Вы успешно авторизировались") > 0 Then
    MsgBox "Ура, я нашел на странице фразу - Вы успешно авторизировались "
    Else
    MsgBox "Я НЕ нашел на странице фразу - Вы успешно авторизировались"
    End If



Можете повесить его на кнопку и поиграЦЦа.
...
Рейтинг: 0 / 0
24.08.2020, 19:06
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992284
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
Сергей Лалов,

А что такое msxm12.xmlhttp ?
...
Рейтинг: 0 / 0
25.08.2020, 14:39
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992333
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
greker
Сергей Лалов,

А что такое msxml2.xmlhttp ?


Это ваше решение)
...
Рейтинг: 0 / 0
25.08.2020, 16:27
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992341
greker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
greker
Гость
Сергей Лалов,

Ничего не понял)
...
Рейтинг: 0 / 0
25.08.2020, 16:50
| Ответить | Цитировать | Написать  
VBA Access 2016 использование текстовых значений
    #39992346
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
greker,

Хех, это библиотека, которая в вашем случае позволяет делать веб запросы к сайтам (и не только) с целью ввода,вывода или редактирования данных на запрашиваемом ресурсе. Одна из нескольких библиотек, которые активно используются VBA сообществом.
...
Рейтинг: 0 / 0
25.08.2020, 17:02
| Ответить | Цитировать | Написать  
11 сообщений из 61, страница 3 из 3
  3  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Access 2016 использование текстовых значений
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&startmsg=39991849&tid=1609969]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 143ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 301ms
total:  526ms
созд. / загр.: 526ms
x
x
Закрыть


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