Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечение нужного тега из HTML документа через текстовую переменную (VBA)
 
#1
23.02.2018 08:02:54
Добрый день
есть условный HTML документ (см. файл с примером).
Обычный способ извлечения работает на ура.
Суть в том, что нужное дерево тегов формируется каждый раз заново и существует в виде текстовой переменной.
Как можно подружить текст и необходимость извлечь данные? То есть заставить Excel воспринимать текст как код?
Робкая попытка использовать Evaluate() не прошла.
Буду признателен за подсказку.
С уважением,
Slaffka
 
 
 
#2
23.02.2018 09:20:32
Evaluate() - это для функций листа.

https://stackoverflow.com/questions/43216390/how-to-run-a-string-as-a-command-in-vba
 
 
 
#3
23.02.2018 10:30:19
Доброе время суток.
Файл не смотрел. Как вариант, если правильно понял
Цитата
Slaffka написал:
Как можно подружить текст и необходимость извлечь данные? То есть заставить Excel воспринимать текст как код?
Код
Public Sub test()
    Dim sHtml As String, pDoc As Object
    Dim pTag As Object, p As Object
    Set pDoc = CreateObject("HTMLFile")
    sHtml = "<html><head><title>Привет</title></head><body><p>Это параграф</p></body></html>"
    pDoc.body.innerHTML = sHtml
    Set pTag = pDoc.GetElementsByTagName("p")
    Debug.Print pTag(0).innerText
End Sub

P. S. Непонятно сама идея. Условный innerHtml собирается кодом VBA, а затем преобразуется в объект HTMLDocument для поиска тегов, а зачем такой огород? Или что-то не понимаю?
 
 
 
#4
23.02.2018 10:57:49
Цитата
Андрей VG написал:
Файл не смотрел.
В примере все должно быть понятно.
 
 
 
#5
23.02.2018 11:46:47
Цитата
Slaffka написал:
В примере все должно быть понятно.
А чего бы сразу не написать правильно? Вместо вводящего в заблуждения
Цитата
Slaffka написал:
есть условный HTML документ
В ячейке находится фрагмент HTML документа
Код
Public Sub test()
    Dim sHtml As String, pTag As Object
    Dim pDoc As New MSHTML.HTMLDocument
    sHtml = ActiveSheet.Range("A1").Value
    pDoc.body.innerHTML = sHtml
    Set pTag = pDoc.querySelector("TABLE.ViewTable1")
    If Not pTag Is Nothing Then Debug.Print pTag.innerText
End Sub
 
 
 
#6
23.02.2018 13:29:02
Андрей,  вопрос-то не в этом. И вытаскивать содержимое не нужно.

В примере нужная информация описана как путь:
doc.getElementsByClassName("ViewTable1")(0).getElementsByTagName("b")(0).innerText

вопрос в том, можно ли загнать путь в текстовую переменную, и использовать ее как указание откуда брать данные.

переменная генерится в процессе исполнения скрипта, то есть может принять вид и такой, и например вот такой:

doc.getElementsByClassName("deemphasize")(2).getElementsByTagName("span")(10).innerHTML (для приведенного примера вернет ошибку, конечно)

Это будет текст, по которому скрипт должен пойти и получить данные.
Собственно вопрос в том, как заставить принять текст как команду.

Так не вводит в заблуждение?

querySelector штука занятная, но я не вижу пока как его применить по моей теме. Может он обращаться ко вложенным тегам? И брать не первый по порядку а с нужным номером?
 
 
 
#7
23.02.2018 13:31:16
Цитата
serega124 написал:
Evaluate() - это для функций листа. https://stackoverflow.com/questions/43216390/how-to-run-a-string-as-a-command-in-vba

Да, это вариант. Выглядит конечно громоздко, и сколько времени занимает не совсем понятно.
Пасиб, попробую протестировать
 
 
 
#8
23.02.2018 15:08:11
querySelector применить не всегда получится
зависит от установленной версии IE

поэтому, я остановился на таком способе поиска тегов в HTML:
http://excelvba.ru/code/html
 
 
 
#9
23.02.2018 19:15:37
Цитата
Игорь написал:
поэтому, я остановился на таком способе поиска тегов в HTML:
Да, я видел в поиске выдачу этой ссылки, когда искал решение. Моя задача существенно скромнее, все в принципе решается через Instr и Mid в применение к тексту документа. Просто делать через getElement иногда выглядит гораздо изящнее, и с циклами проще.
Тут уже принципиальный вопрос, есть ли лазейка чтобы скрипт принял текстовую переменную и выполнил как будто это строка кода.
Пока только решение из первого ответа, програмное создание нового модуля с заданным текстом, вызов и удаление потом.

В любом случае всем спасибо и всех с праздником. Если кто набредет на ответ, дайте знать.
 
 
 
#10
23.02.2018 20:27:36
Цитата
Игорь написал:
querySelector применить не всегда получится, зависит от установленной версии IE
Игорь, спасибо за комментарий. Поковырял. Всё даже хуже. Стоит IE 11, тем не менее querySelector кричит на запрос "div.deemphasize > span:nth-child(1)" - недопустимый аргумент, хотя поддержка для такого определения CSS применяется в IE9+. Похоже MSHTML.HTMLDocument поддерживает только какую-то предопределённую версию CSS, не связанную с версией IE. Короче, забил Microsoft на обновление COM-объектов, используемых в VBA. :(
 
 
 
#11
23.02.2018 22:50:24
На XPath не смотрели?
 
 
 
#12
23.02.2018 23:35:14
Цитата
serega124 написал:
На XPath не смотрели?
XPath мощная штука, пусть и точно также не поддерживаемая во всей красе в COM объектах от Microsoft. Но, а как вы будете использовать XPath с таким html?
Скрытый текст

HTML5 принципов XHTML не придерживается, да HTML4 их тоже не очень то и содержал.
 
 
 
#13
24.02.2018 00:04:58
Цитата
Slaffka написал:
можно ли загнать путь в текстовую переменную, и использовать ее как указание откуда брать данные
Обратиться к свойству или методу объекта, заданному в текстовой переменной, можно с помощью функции CallByName.
 
 
 
#14
03.10.2023 16:02:23
Если в этом коде:
Код
Public Sub test()
    Dim sHtml As String, pDoc As Object
    Dim pTag As Object, p As Object
    Set pDoc = CreateObject("HTMLFile")
    sHtml = "<html><head><title>Привет</title></head><body><p>Это параграф</p></body></html>"
    pDoc.body.innerHTML = sHtml
    Set pTag = pDoc.GetElementsByTagName("p")
    Debug.Print pTag(0).innerText
End Sub

заменить:
Код
sHtml = "<html><head><title>Привет</title></head><body><p>Это параграф</p></body></html>"

на:
Код
sHtml = "<html><head><title>Привет</title></head><body><p class=""black"">Это параграф</p></body></html>"

то как искать по class="black"???
Изменено: tchack - 03.10.2023 16:02:51
 
 
 
#15
03.10.2023 17:12:13
Код
Set pTag = pDoc.getElementsByClassName("black")
 
 
 
#16
04.10.2023 09:16:31
nilske, если так написать, то будет ошибка "Object doesn't support this property or method".
 
 
 
#17
04.10.2023 09:32:49
tchack, здесь не подскажу - у меня всё работает без ошибок.
 
 
 
Страницы: 1
Наверх