добрый день.
необходимо подредактировать макрос, чтобы он вытягивал ссылки на все картинки из определенного контейнера html
код html (тэг "а" с атрибутом "data-fancybox-group" ) - <a data-fancybox-group...>
если такого контейнера нет, то другие ссылки на картинки не извлекать.
и возможно ли если таких контейнеров 2 и более, то из каждого вытянуть ссылку на картинку и поместить в одну ячейку через запятую ","
сейчас макрос вытягивает только первую ссылку на картинку по шаблону, но такой шаблон присутствует и в не нужном контейнере
насколько я понимаю в функцию "dann" нужно добавить еще один паттерн ("<a data-fancybox-group ") и сделать вложенные условия через цикл (по количеству найденных контейнеров).
необходимо подредактировать макрос, чтобы он вытягивал ссылки на все картинки из определенного контейнера html
код html (тэг "а" с атрибутом "data-fancybox-group" ) - <a data-fancybox-group...>
если такого контейнера нет, то другие ссылки на картинки не извлекать.
и возможно ли если таких контейнеров 2 и более, то из каждого вытянуть ссылку на картинку и поместить в одну ячейку через запятую ","
сейчас макрос вытягивает только первую ссылку на картинку по шаблону, но такой шаблон присутствует и в не нужном контейнере
Скрытый текст | ||
---|---|---|
|
насколько я понимаю в функцию "dann" нужно добавить еще один паттерн ("<a data-fancybox-group ") и сделать вложенные условия через цикл (по количеству найденных контейнеров).
что то вроде следующего
Скрытый текст |
---|
Function dann(t As String) Dim REGEXP2 As Object Set REGEXP2 = CreateObject("VBScript.RegExp") REGEXP.IgnoreCase = True REGEXP.Global = False REGEXP.MultiLine = True REGEXP2.Pattern = "<a data-fancybox-group" Dim REGEXP As Object Set REGEXP = CreateObject("VBScript.RegExp") REGEXP.IgnoreCase = True REGEXP.Global = False REGEXP.MultiLine = True REGEXP.Pattern = "\/\/pubimg\.4mycar[^\w].*jpeg" For InStr(1, txt, REGEXP2) If REGEXP2.Test(t) Then If REGEXP.Test(t) Then dann = REGEXP.Execute(t)(0) End If End If Next End Function |