Помогите понять как обработать XML с префиксами

BarakudaX777 · #1 11.09.2017, 08:49

Добрый день знатокам!
Написал программу которая обрабатывает XML документы и загружает данные файла в программу (ГИС "Ингео"). Строю объект по координатам с данного файла и переношу семантику.
Программа работает, данные переносятся, но возникла проблема что в файлах XML которые скачивает пользователь почему то меняются префиксы (или как они точнее называются). Пример:

Код:

<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="https://portal.rosreestr.ru/xsl/EGRP/Reestr_Extract_Gkn/ZU/07/Common.xsl"?>
<KPZU xmlns="urn://x-artefacts-rosreestr-ru/outgoing/kpzu/6.0.1" xmlns:smev="urn://x-artefacts-smev-gov-ru/supplementary/commons/1.0.1" 
xmlns:num="urn://x-artefacts-rosreestr-ru/commons/complex-types/numbers/1.0" xmlns:adrs="urn://x-artefacts-rosreestr-ru/commons/complex-types/address-output/4.0.1" 
xmlns:spa="urn://x-artefacts-rosreestr-ru/commons/complex-types/entity-spatial/5.0.1" 
xmlns:cer="urn://x-artefacts-rosreestr-ru/commons/complex-types/certification-doc/1.0" 
xmlns:doc="urn://x-artefacts-rosreestr-ru/commons/complex-types/document-output/4.0.1" 
xmlns:nobj="urn://x-artefacts-rosreestr-ru/commons/complex-types/natural-objects-output/1.0.1">
    <Parcel CadastralNumber="56:43:0110026:24" State="06" DateCreated="2008-03-19" Method="4">
         <EntitySpatial EntSys="ID0">
            <spa:SpatialElement>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="1">
                    <spa:Ordinate X="372630.97" Y="3329297.42" OrdNmb="1" DeltaGeopoint="0.1" />
                </spa:SpelementUnit>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="2">
                    <spa:Ordinate X="372649.52" Y="3329313.77" OrdNmb="1" DeltaGeopoint="0.1" />
                </spa:SpelementUnit>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="3">
                    <spa:Ordinate X="372673.14" Y="3329286.6" OrdNmb="1" DeltaGeopoint="0.1" />
                </spa:SpelementUnit>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="4">
                    <spa:Ordinate X="372654.37" Y="3329270.19" OrdNmb="1" DeltaGeopoint="0.1" GeopointZacrep="626002000000" />
                </spa:SpelementUnit>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="5">
                    <spa:Ordinate X="372631.37" Y="3329296.97" OrdNmb="1" DeltaGeopoint="0.3" GeopointZacrep="626002000000" />
                </spa:SpelementUnit>
                <spa:SpelementUnit TypeUnit="Точка" SuNmb="1">
                    <spa:Ordinate X="372630.97" Y="3329297.42" OrdNmb="1" DeltaGeopoint="0.1" />
                </spa:SpelementUnit>
            </spa:SpatialElement>
        </EntitySpatial>
</Parcel>
</KPZU>

Пример 2:

Код:

<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href="https://portal.rosreestr.ru/xsl/GKN/Vidimus/07/common.xsl"?>
<KVZU
	xmlns:ns2="urn://x-artefacts-rosreestr-ru/commons/complex-types/numbers/1.0"
	xmlns:ns3="urn://x-artefacts-rosreestr-ru/commons/complex-types/entity-spatial/5.0.1"
	xmlns:adrOut4="urn://x-artefacts-rosreestr-ru/commons/complex-types/address-output/4.0.1"
	xmlns:ns5="urn://x-artefacts-rosreestr-ru/commons/complex-types/natural-objects-output/1.0.1"
	xmlns:ns6="urn://x-artefacts-smev-gov-ru/supplementary/commons/1.0.1"
	xmlns:ns7="urn://x-artefacts-rosreestr-ru/commons/complex-types/document-output/4.0.1"
	xmlns:ns8="urn://x-artefacts-rosreestr-ru/commons/complex-types/certification-doc/1.0"
	xmlns="urn://x-artefacts-rosreestr-ru/outgoing/kvzu/7.0.1">
	<Parcel CadastralNumber="56:18:0601002:361" State="06" DateCreated="2012-12-17">
               <EntitySpatial EntSys="ID1">
						<ns3:SpatialElement>
							<ns3:SpelementUnit TypeUnit="Точка" SuNmb="5">
								<ns3:Ordinate X="385907.66" Y="3364855.93" OrdNmb="1" />
							</ns3:SpelementUnit>
							<ns3:SpelementUnit TypeUnit="Точка" SuNmb="2">
								<ns3:Ordinate X="385906.23" Y="3364855.79" OrdNmb="1" DeltaGeopoint="0.20" />
							</ns3:SpelementUnit>
							<ns3:SpelementUnit TypeUnit="Точка" SuNmb="3">
								<ns3:Ordinate X="385903.48" Y="3364883.70" OrdNmb="1" DeltaGeopoint="0.20" />
							</ns3:SpelementUnit>
							<ns3:SpelementUnit TypeUnit="Точка" SuNmb="6">
								<ns3:Ordinate X="385904.92" Y="3364883.84" OrdNmb="1" />
							</ns3:SpelementUnit>
							<ns3:SpelementUnit TypeUnit="Точка" SuNmb="5">
								<ns3:Ordinate X="385907.66" Y="3364855.93" OrdNmb="1" />
							</ns3:SpelementUnit>
						</ns3:SpatialElement>
						<ns3:Borders>
							<ns3:Border Spatial="1" Point1="5" Point2="2">
								<ns3:Edge>
									<ns3:Length>1.44</ns3:Length>
									<ns3:DirectionAngle>
										<ns3:Degree>185</ns3:Degree>
										<ns3:Minute>35</ns3:Minute>
									</ns3:DirectionAngle>
								</ns3:Edge>
							</ns3:Border>
							<ns3:Border Spatial="1" Point1="2" Point2="3">
								<ns3:Edge>
									<ns3:Length>28.05</ns3:Length>
									<ns3:DirectionAngle>
										<ns3:Degree>95</ns3:Degree>
										<ns3:Minute>38</ns3:Minute>
									</ns3:DirectionAngle>
								</ns3:Edge>
							</ns3:Border>
							<ns3:Border Spatial="1" Point1="3" Point2="6">
								<ns3:Edge>
									<ns3:Length>1.45</ns3:Length>
									<ns3:DirectionAngle>
										<ns3:Degree>5</ns3:Degree>
										<ns3:Minute>33</ns3:Minute>
									</ns3:DirectionAngle>
								</ns3:Edge>
							</ns3:Border>
							<ns3:Border Spatial="1" Point1="6" Point2="5">
								<ns3:Edge>
									<ns3:Length>28.04</ns3:Length>
									<ns3:DirectionAngle>
										<ns3:Degree>275</ns3:Degree>
										<ns3:Minute>36</ns3:Minute>
									</ns3:DirectionAngle>
								</ns3:Edge>
							</ns3:Border>
						</ns3:Borders>
					</EntitySpatial>
</Parcel>
</KPZU>

В первом случае префикс "spa:", в другом уже "ns3". Может как то можно игнорировать данный префикс и как это сделать?

Для поиска дочерних элементов использую функцию

Код:

function TXMLParserForm.GetNodeByPath(Root: IXMLNode; Path,Namespace: string): IXMLNode;
var tempNode:IXMLNode;
  currentElement:string;
  delimPos:integer;
begin
  tempNode:=nil;
  if Root=nil then begin result:=nil;exit;end;
  if Path<>'' then begin
      delimPos := pos('\',Path);
      tempNode:=Root;
      while delimPos>0 do begin    //Усли имеется несколько элементов
          currentElement := Copy(Path,1,delimPos-1);
          Path := Copy(Path,delimPos+1,length(Path)-delimPos);
          if currentElement='..' then begin
            tempNode:=tempNode.ParentNode;
          end else begin
            tempNode:=tempNode.ChildNodes.FindNode(currentElement,Namespace);
          end;
          if tempNode=nil then begin result:=nil;exit;end;
          delimPos := pos('\',Path);
      end;
      if (delimPos=0) then begin
        if Path='..' then tempNode:=tempNode.ParentNode else tempNode := tempNode.ChildNodes.FindNode(Path,Namespace);
        if tempNode=nil then begin result:=nil;exit;end;
        result := tempNode;
        exit;
      end;
  end;
end;

Вызываю следующим способом:

Код:

currNode := GetNodeByPath(RootNode,Root+'\'+Path,'');

Где передается корневой элемент и путь вида "Ветка1\Ветка2\Ветка.."
В конкретном случае

Код:

currNode := GetNodeByPath(RootNode,Root+'EntitySpatial\spa:SpatialElement','');

Alegun · #2 11.09.2017, 14:04

А какую инфу вы выдираете - координаты Х/У плюс дельта?
Можно ведь и "ручками" это делать, без прокладок типа IXMLParser,
чисто по тегам

BarakudaX777 · #3 11.09.2017, 14:24

Цитата:

Сообщение от Alegun

А какую инфу вы выдираете - координаты Х/У плюс дельта?
Можно ведь и "ручками" это делать, без прокладок типа IXMLParser,
чисто по тегам

Это чисто пример проблемного элемента! сам XML Документ достаточно огромный. Представляет собой выписку по земельному участку, в которой есть информация об объектах, правообладателях, видах собственности, кадастровых номерах, зонах и так далее.
Программа делается в помощь муниципальному образованию обрабатывать схемы росреестра. Проблема таится в том что иногда файлы xml документов имеют разный префикс (или именное пространство). Не знаю зачем это так сделано. Но это приводит к трудностям. Программа работает работает работает а потом раз поменялись на ns7 или pt1 и тому подобно. Из за того что я в программе указываю ветку с указанием префикса, а namespace ставлю пустым, при смене префикса ветки уже не будет. следовательно ничего не выполнится с этой веткой

BarakudaX777 · #4 11.09.2017, 14:32

Программа позволяет импортировать данные в ГИС «ИНГЕО» из XML файлов. Так как структура XML файлов различна и со временем изменяется, было решено разрабатывать схему обработчика XML документа. Данная схема так же пишется на XML и представляет собой последовательность действий, которых программа должна предпринять, для обработки XML файла.
Используя данный подход к обработке XML Документов становится возможно разрабатывать схемы обработки новых документов не внося изменения в логику самой программы.

Но с учетом прописывания веток с префиксом, в некоторых случаях приходится править схему

Прикреплю описание как я сделал схему и что она умеет.
Описание схем обработки XML документов

Alegun · #5 11.09.2017, 15:26

Тогда здесь само напрашивается применение сравнения if then или, если заковыристых тегов много, то case, и если "префикс" отличается от стандарта, то обрабатывать это место следует с другими параметрами поиска указателей, другими словами, похоже "гибкости" нужно добавить, чтоб правильно всё фунциклило

BarakudaX777 · #6 11.09.2017, 17:25

Условия не использовать то что префиксы меняются, какие становятся никто не узнает пока не скачает XML. Не предугадаешь что за префиксы сегодня а что будут потом. я все же смотрю в сторону того чтобы просто их игнорировать, убирая той части что за двоеточием, просто отбрасывая ее. Вот только думал может есть какой то способ это сделать на уровне API а не изобретать велосипед.
По сути эти префиксы не нужны мне и их можно просто удалять.

Alegun · #7 11.09.2017, 18:24

Цитата:

Сообщение от BarakudaX777

...я все же смотрю в сторону того чтобы просто их игнорировать, убирая той части что за двоеточием, просто отбрасывая ее...

Наверное, нужно до двоеточия, и ещё закрывающий тег убрать, вот как это можно реализовать

Код:

Delete(s,1,Pos(':',s));
Delete(s,Length(s)-2,3);

З.Ы. А ведь можно ещё после получения "абзаца"
с изменёнными префиксами заменить их на свои,
константные перед последующей обработкой,
это чтоб логику сильно не ломать работающей
части приведённой функции

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты