Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Вопрос про XML   Найти похожие ветки 

 
vegarulez   (2010-04-15 09:45) [0]

Привет всем мастерам!
Вопрос состоит в следующем есть XML файл состоящий из большого количества секций.
Вида :


<?xml version="1.0" encoding="windows-1251"?>

<response>
<a id="1" name="Иванов" pr="инженер">
<prs id="S" wtime="40" z="7000"/>
</a>

<a id="2" name="Петров" pr="повар">
<prs id="S" wtime="35" z="4000"/>
</a>
...
и т.д.
</response>


для получения параметров из XML до этого использовал код вот такого вида:



var
 objXMLDoc : IXMLDOMDocument;
 Node : IXMLDOMElement;
 List,ListPrinc : IXMLDOMNodeList;
 s_xml:AnsiString;
 s_err:String;
 id,name,pr:String;
begin

          objXMLDoc.async := False;
          objXMLDoc.loadXML(trim(Data.Text));
          s_xml:=objXMLDoc.text;
          Node := objXMLDoc.DocumentElement;
          if Node<>nil then
           Try
             id := Node.selectNodes("/response/a/@id").Item[0].Text;
             name := Node.selectNodes("/response/a/@name").Item[0].Text;
             ...
            s_err:="Разобран успешно.";
           except on E:exception do
            s_err:="Ошибка разбора. "+ E.Message;
           End;   //10
end;


Вопрос, когда одна запись в XML так можно сделать но как мне прочитать 2-ую и последующие записи, когда у них начальная ветка имеет одинаковое название - "a"?


 
vegarulez   (2010-04-15 10:24) [1]

Сижу, пытаюсь... вроде - получается считывать... при
считывании через счётчик при подстановке счёчика в

Item[i].Text;

но тогда вопрос, а как я узнаю когда остановить счётчик i?
т.е. что записи уже закончились.
Как определить количество записией включений тэга <a>?


 
Плохиш ©   (2010-04-15 10:44) [2]

цикл и childNodes


 
vegarulez   (2010-04-15 10:53) [3]

for i:=0 to Node.childNodes.length-1 do
оно?


 
Медвежонок Пятачок ©   (2010-04-15 10:56) [4]

цикл по элементам IXMLDOMNodeList


 
Медвежонок Пятачок ©   (2010-04-15 10:57) [5]

оно?

нет не оно


 
Медвежонок Пятачок ©   (2010-04-15 11:21) [6]

Рисуем одну полезную библиотечную функцию

function GetXPathValue(iNode : IXMLDOMNode; const AXPath : string; AWholeNode : boolean) : OleVariant;
var vNode : IXMLDOMNode;
begin
Result := Unassigned;
vNode := iNode.selectSingleNode(AXPath);
if vNode <> nil then
 if AWholeNode then Result := vNode.text else Result := vNode.nodeValue;
end;

на базе нее создаем производные

function GetXPathValueStr(iNode : IXMLDOMNode; const AXPath : string; AWholeNode : boolean) : string;
function GetXPathValueInt(iNode : IXMLDOMNode; const AXPath : string; AWholeNode : boolean) : integer;
function GetXPathValueDbl(iNode : IXMLDOMNode; const AXPath : string; AWholeNode : boolean) : Double;

И все. Навсегда забываем про чайлдов парентов и прочий навигационный подход.

Далее:

List := objXMLDoc.SelectNodes("/response/a");
if (List <> nil) and (List.Length > 0) then
for i := 0 to Pred(List.length) do
 begin
  name := GetXPathValueStr(List.items[i],"./@name",False);
  id   := GetXPathValueInt(List.items[i],"./@id",False);
 end;


 
vegarulez   (2010-04-15 12:57) [7]

Спасибо большое! Очень помогло!


 
vegarulez   (2010-04-15 14:27) [8]

по мере продвижения впрёд появляются ещё вопросы...

вопрос таакой...
добрался до места где xml ветка имеет вот такую структуру

<a id="65" name="Зверев" pr="Слесарь">
<prs id="A" wtime="5" z="1000"/>
<prs id="S" wtime="10" z="1500"/>
<prs id="M" wtime="20" z="2000"/>
</a>


Вопрос -  как можно выкусить ветку:

<prs id="A" wtime="5" z="1000"/>
<prs id="S" wtime="10" z="1500"/>
<prs id="M" wtime="20" z="2000"/>


в отдельную переменную для записи в текстовом виде в бд. Т.е. просто целиком этот кусок без разбора в текстовом виде? Т.е. кусочек из этой ветки.


 
Медвежонок Пятачок ©   (2010-04-15 14:49) [9]

Получить узел a, дальше

ShowMessage(a.xml)

будет вместе с содержимым самого "а", но оно никак не помешает добраться до вложенных узлов после загрузки сохраненного текста обратно в документ


 
vegarulez   (2010-04-15 14:55) [10]

т.е. я пытаюсь это с делать в текущей ветке, в которой сечас производиться разбор, как посоветовал Медвежонок Пятачок ©   (15.04.10 11:21) [6], потом - выкусить эту информацию с тегами prs записать в бд, потом в следующей, опять начать разбор, потом информацию с тегами prs опять выкусить записать в бд и т.д, по всему xml документу.

Я так полагаю если в List содержится текущий элемент разбора проще всего тогда в каждый текущий разбор новой ветки брать оттуда этот набор prs тегов.

Подскажите как это сделать?

пытаюсь сделать вот так -


var
s:string;
j:integer;
ListPrs: IXMLDOMNodeList;
...

              ListPrs := objXMLDoc.SelectNodes("/response/a/prs");
              j:=ListPrs.length;
              for j:=0 to ListPrs.length-1 do
               s:=s+ListPrs.item[j].xml;


но в этом случае он дёргает все постепенно, а мне нужно только в текущей ветке которую в i момент времени разбираю с помощью Медвежонок Пятачок ©   (15.04.10 11:21) [6].


 
Медвежонок Пятачок ©   (2010-04-15 15:20) [11]

в таком случае текущий узел должен быть элементом списка полученным через
selectnodes("/response/a");

это будет полным списком всех узлов "а", которые есть дети респонса в первом поколении


 
vegarulez   (2010-04-15 15:32) [12]

Сдеал вот так:

             
           
              ListPrs:=List.item[i].childNodes;
              for j:=0 to ListPrs.length-1 do
               if ListPrs.item[j].nodeName="prs" then
                s:=s+ListPrs.item[j].xml;


Прокомментируй плиз этот кусочек... так как руки пока ещё не совсем оттуда откуда надо растут... может что переделать, но вроде рабит - выдаёт что требуется...


 
Медвежонок Пятачок ©   (2010-04-15 17:13) [13]

а что надо получить-то в итоге?


 
vegarulez   (2010-04-16 09:00) [14]

Ну нужно получить нужно строку, чтобы в базу записать, чтобы при надобности прочесть. Т.е. часть параметров нужно сразу прочесть и на основании их записать часть параметров виде xml строки в базу, чтобы потом при обращении к этой записи прочесть нужные параметры, записанные в xml формате. поэтому я парсю тем кодом который ты дал и внутри каждой ветки, выкусываю xml строку, кодом который привёл в [12], чтобы записать её (строку) в бд в том виде в котором она есть. воть...

посоветуй и прокементируй плз,  у тя опыта побольше...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.49 MB
Время: 0.078 c
4-1237444361
Demt
2009-03-19 09:32
2010.08.27
Задать нестандартный атрибут для файла.


15-1274076594
Anatoly Podgoretsky
2010-05-17 10:09
2010.08.27
Выбор писалки DVD


6-1197627723
Palladin
2007-12-14 13:22
2010.08.27
Indy и SSL


2-1268475991
Fr
2010-03-13 13:26
2010.08.27
Сохранение TChart


15-1267488778
Дмитрий
2010-03-02 03:12
2010.08.27
игры на delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский