ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / парсинг xml - value
4 сообщений из 4, страница 1 из 1
парсинг xml - value
    #39863045
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
Увожаемые знатоки, помогите мне получить из этой части XML документа значение VALUE..

Код: xml
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
<Address>
	<adrs:OKATO>40279562000</adrs:OKATO>
	<adrs:KLADR>78000000000078500</adrs:KLADR>
	<adrs:Region>78</adrs:Region>
	<adrs:Street Name="Маршала Захарова" Type="ул" />
	<adrs:Level1 Type="д" Value="12" />
	<adrs:Level2 Type="корп" Value="1" />
	<adrs:Level3 Type="литера" Value="А" />
	<adrs:Apartment Type="кв" Value="144" />
</Address>




привиденная ниже процедура рабочая, но я не могу понять как мне получить эти значения, сразу сделаю замечание, что значение Type может меняться..


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    sl:TStringList;
    s, sRow, sReestrExtract,sAdres: string;
    iPos1, iPos2, iOffset: integer;
begin
     sl:= TStringList.Create;
     sl.LoadFromFile('kv_0aa24c23-6862-49d3-a228-5d207b59f333(1).xml');
     iOffset := 1;
     iPos1 := 1;
while true do
     begin

         iPos1 := PosEx('<Right>', sl.Text, iOffset);
         if iPos1=0 then break;

         iPos2 := PosEx('</Right>', sl.Text, iOffset);
         iOffset := iPos2+1;

         sRow := Copy(sl.Text, iPos1, iPos2-iPos1);

         sAdres := Copy(sl.Text,  Pos('<Address>', sl.Text),  Pos('</Address>', sl.Text)-Pos('<Address>', sl.Text) );

         s :=Copy(sRow, Pos('<FamilyName>', sRow)+Length('<FamilyName>') , Pos('</FamilyName>', sRow)-Pos('<FamilyName>', sRow)-Length('<FamilyName>'));
         s := s+' '+ Copy(sRow, Pos('<FirstName>', sRow)+Length('<FirstName>') , Pos('</FirstName>', sRow)-Pos('<FirstName>', sRow)-Length('<FirstName>'));
         s := s+' '+ Copy(sRow, Pos('<Patronymic>', sRow)+Length('<Patronymic>') , Pos('</Patronymic>', sRow)-Pos('<Patronymic>', sRow)-Length('<Patronymic>'));

         showmessage(s);

   end;

end;
...
Рейтинг: 0 / 0
17.09.2019, 18:31
| Ответить | Цитировать | Написать  
парсинг xml - value
    #39863052
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
uses
  Xml.XmlIntf, Xml.XmlDoc;
...
var XmlDoc := LoadXMLDocument('kv_0aa24c23-6862-49d3-a228-5d207b59f333(1).xml');
var AddressNode := XmlDoc.DocumentElement;
var Element := AddressNode.ChildNodes.First();
while Assigned(Element) do
begin
  var AttrValue := Element.AttributeNodes.FindNode('Value');
  if Assigned(AttrValue) then
    ShowMessage(AttrValue.NodeValue);
  Element := Element.NextSibling();
end;
...
Рейтинг: 0 / 0
17.09.2019, 19:19
| Ответить | Цитировать | Написать  
парсинг xml - value
    #39863059
VladimirVVP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladimirVVP
Гость
X-Cite, Спасибо, но не то

мне нужна (явная выборка) надеюсь я правельно сказал, то есть взять значение Value из adrs:Level1 и ТД

С начало я получаю ФИО - это сделано, работает

далее мне нужно получить Value

Дом Кв .. и ТП
...

потом это все я записываю в БД и вывовожу в гриде...
...
Рейтинг: 0 / 0
17.09.2019, 19:51
| Ответить | Цитировать | Написать  
парсинг xml - value
    #39863061
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Обычно структура xml строго типизирована, ессно если у вас есть xsd схема для нее.
Если все ваши элементы обязательные, то через Element.nextSibling(); можно их перебрать зная порядок (гарантируется схемой)

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
var AddressNode := XmlDoc.DocumentElement;
var Temp := AddressNode.ChildNodes.First();
Temp := Temp.nextSibling();
Temp := Temp.nextSibling();
Temp := Temp.nextSibling();
var Level1 := Temp.nextSibling();
var Level2 := Level1.nextSibling();
var Level3 := Level2.nextSibling();



ну или так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
var AddressNode := XmlDoc.DocumentElement;
var Level1 := AddressNode.ChildNodes.FindNode('Level1', 'adrs');
if Assigned(Level1)
begin
  var AttrValue := Level1.AttributeNodes.FindNode('Value');
  if Assigned(AttrValue) then
    ShowMessage(AttrValue.NodeValue);
end;
var Level2 := AddressNode.ChildNodes.FindNode('Level2', 'adrs');
if Assigned(Level2)
begin
  var AttrValue := Level2.AttributeNodes.FindNode('Value');
  if Assigned(AttrValue) then
    ShowMessage(AttrValue.NodeValue);
end;



И вообще, если у вас структура xml постоянная, то воспользуйтесь мастером XML Data Binding
Он вам нарисует объектную модель под ваш xml и вы через свойства будете обращаться к значениям
Что-то типа такого:
Код: pascal
1.
2.
3.
4.
var Addr := LoadXml(...).Address;
ShowMessage(Addr.Level1.Value);
ShowMessage(Addr.Level2.Value);
ShowMessage(Addr.Level3.Value);
...
Рейтинг: 0 / 0
17.09.2019, 20:07
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / парсинг xml - value
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=62&tid=2039039]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 226ms
total:  355ms
созд. / загр.: 355ms
x
x
Закрыть


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