Парсинг XML

[KUM25]

Всем привет. Никак не могу побороть парсинг. Есть XML:

<DataSet xmlns="http://services.indexes.com/">
<xs:schema xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" id="NewDataSet">
<xs:element name="NewDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="tbCity">
<xs:complexType>
<xs:sequence>
<xs:element name="region" type="xs:string" minOccurs="0"/>
<xs:element name="district" type="xs:string" minOccurs="0"/>
<xs:element name="city" type="xs:string" minOccurs="0"/>
<xs:element name="id" type="xs : double" minOccurs="0"/>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
</xs:element>
</xs:schema>
<diffgr : diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns : diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">
<NewDataSet xmlns="">
<tbCity diffgr:id="tbCity1" msdata:rowOrder="0">
<region>Харківська</region>
<district>Дергачівський</district>
<city>Комунар</city>
<id>33000000081148</id>
</tbCity>
<tbCity diffgr:id="tbCity2" msdata:rowOrder="1">
<region>Харківська</region>
<district>Дергачівський</district>
<city>Пересічне</city>
<id>1008302397293</id>
</tbCity>
</NewDataSet>
</diffgr : diffgram>
</DataSet>

Как мне в Combobox записать города Харьков и Днепропетровск. В XML может быть 1,2,3 и т.д. городов. Заранее благодарю отозвавшимся.

[Аватар]

А как парсишь?

[min@y™]

парсер как называется-то?

[Человек_Борща]

это не XML, это XSD по которому XML можно прочекать на корректность. Зачем через него данные гонять... ужос.

[igh0st]

Я так понимаю у коллеги KUM25 города заключены в теги <city>Пересічне</city>. Можно не парсить, просто искать их поиском и отсекать все ненужное

...
N := Pos('<city>', StrData);
if N > 0 then
    StrData := RightStr(StrData, Length(StrData) - N - 6);
...

[Человек_Борща]

А,это XML сразу со схемой проверки целостности, прикольно.
Примерно так:

var
 xml: TXmlDocument;
 xmlNodes: TXMLNodes;
 node:TXMLNode;
 i:Integer;
begin
	xml := TXmlDocument.Create();
	xml.loadXML('путь к файлу');
	xmlNodes :=  xml.selectNodes('//diffgr:diffgram/NewDataSet/tbCity');
	for i:=0 to xmlNodes.Count -1 do
	...работа с содержимым городов
end;

[Аватар]

Похоже на выгруженный в xml датасет средствами ADO.NET.

[KUM25]

Сообщение от Человек_Борща

это не XML, это XSD по которому XML можно прочекать на корректность. Зачем через него данные гонять... ужос.

Вот такой чудо-результат возвращает наш корпоративный сайт

Сообщение от Человек_Борща

А,это XML сразу со схемой проверки целостности, прикольно.
Примерно так:

var
 xml: TXmlDocument;
 xmlNodes: TXMLNodes;
 node:TXMLNode;
 i:Integer;
begin
	xml := TXmlDocument.Create();
	xml.loadXML('путь к файлу');
	xmlNodes :=  xml.selectNodes('//diffgr:diffgram/NewDataSet/tbCity');
	for i:=0 to xmlNodes.Count -1 do
	...работа с содержимым городов
end;

Большое спасибо. Попробую

Сообщение от min@y™

парсер как называется-то?

Один раз в жизни парсил и то самый примитивный XML вот таким способом
Response.Text := IdHTTP1.Post('http://services.ukrposhta.com/barcodestatistic/barcodestatistic.asmx/GetBarcodeInfo', LoginData);
XMLDocument1.LoadFromXML(Response.T ext);
XMLDocument1.Active := True;
Memo1.Text := Trim(XMLDocument1.DocumentElement.C hildValues['eventdescription']);