[МишаИнженер]

Какую библиотеку dll лучше всего использовать для чтения XML файлов на VBA?
Прочитал про XmlTextReader
https://docs.microsoft.com/ru-ru/tro...data-from-file
но не понял какой файл надо подключать командой Tools > Rferences в VBA Excel
Так же прочитал про Msxml2.DOMDocument.6.0
https://docs.microsoft.com/en-us/pre...56987(v=vs.85)
и тоже не понял какую библиотеку надо подключить в References
Подскажите пожалуйста что надо подключать для работы с файлами XML!

[МишаИнженер]

Как можно посмотреть в файле xslt расположение узлов <contours> в которых описываются координаты точек полигонов?
У меня программа нашла 4 участка (узла) по запросу "//cad_number" (№5-8). Теперь мне надо найти разделы <contours> для каждого соответствующего участка.
В какую ветку мне надо перепрыгнуть надеюсь увидеть в xlst файле, только более подробном. Существует такой файл xlst?

[trir]

Во первых xml
во вторых ты всё не правильно делаешь ;=)

Получаю список узлов по пути //cadastral_blocks/cadastral_block/record_data/base_data/land_records
Для каждого:
Получаю кадастровый номер object/common_data/cad_number/text()
Получаю полигоны contours_location/contours
Линии contour/entity_spatial/spatials_elements/spatial_element
Точки Point Path="ordinates/ordinate" Xattr="y/text()" Yattr="x/text()"

[МишаИнженер]

Это понятно что неправильно. Мне не хватает функции: "НайтиПарентУзелДляТекущегоУзла(ТекУзел, ИскомыйТэг)"
Сейчас напишу эту функцию и буду выполнять поиск узлов "contours" во всех парент объектах начиная с узла с тэгом "cad_number"
Найденный ближайший парент узел "по логике" будет содержать координаты точек полигона для узла "cad_number".
А сейчас в программе для всех четырех узлов "cad_number" находятся одинаковые списки координат. Вот в этом я считаю ошибка на данный момент

[trir]

Мне не хватает функции: "НайтиПарентУзелДляТекущегоУзла(ТекУзел, ИскомыйТэг)"

parent:: — можно заменить на «..»

Но это не правильный метод - у land_records и build_records разный путь к геометрии

[МишаИнженер]

Главное выйти на объект IXMLDOMElement и затем на свойство список childNodes. Для каждого элемента этого списка надо воспользоваться методом

Код:

[Выделить все]

Set objSelPropNodes = objectNode.SelectNodes(propertyPath)

Если найденный объект будет содержать узлы, то это и будут те самые координаты. Спасибо за ..!

----- добавлено через ~50 мин. -----
trir, можно в твоем ответе между текстовыми пояснениями и фрагментами кода поставить символ ":"?

Сообщение от trir Получаю список узлов по пути //cadastral_blocks/cadastral_block/record_data/base_data/land_records Для каждого: Получаю кадастровый номер object/common_data/cad_number/text() Получаю полигоны contours_location/contours Линии contour/entity_spatial/spatials_elements/spatial_element Точки Point Path="ordinates/ordinate" Xattr="y/text()" Yattr="x/text()"

Я что то не могу понять как мне твои советы применить в коде
В первой строке вижу запрос

Код:

[Выделить все]

//cadastral_blocks/cadastral_block/record_data/base_data/land_records

для функции SelectNodes
В следующих 3 строках не понятно.
А в 4 строке

Код:

[Выделить все]

"ordinates/ordinate" Xattr="y/text()" Yattr="x/text()"

вроде не хватает двойных запятых для правильного запроса.
Или это отдельные строки кода?

[trir]

это я из своего xml'я надёргал
путь к узлу - ordinates/ordinate
а x/text() - получить значение X узла

[МишаИнженер]

Trir! В общем получилась прога для чтения координат на лист Excel, посмотри в прикрепленных файлах.
Теперь надо для проверки начертить эти контуры и проверять на пересечение с полилиниями полосы отвода
Потом вывести на лист сводную таблицу с информацией о найденных пересечениях и задача будет решена
Может есть "упрощающие фишки", позволяющие код получения координат контуров Росреестра сделать более простым и правильным?

[trir]

1. Я в #3 уже привёл код на VBA, который это делает
2. Проще это делать в БД https://habr.com/ru/post/307294/ - там есть специальная команда STIntersection
3. Вместо полилиний лучше использовать MPolygon'ы