Распарсить Atom

[arriah]

Привет всем, помогите решить задчку:

Есть RSS Atom, структура известна, вопросов не возникает. Использую XMLDocument1

Структура atom:

<entry>
  <tilte></title>
  <published></published>
  <link rel='replies' href='...'>
  <link rel='replies' href='...'>
  <link rel='edit' href='...'>
  <link rel='alternate' href='...'>
</entry>

Все нужные ноды вытаскиваются без проблем, за исключением <link>
Мне нужен именно <link rel='alternale' href='...'>
А вот как до него добраться? Он берет только первый.
Варианту меня только один, пройтись циклом по всем <link> сравнивать атрибут rel и при нужном выдергивать атрибут 'href'.
Но вот как определить количество <link> внутри узла <entry>?
Или может есть еше какие варианты?

[Alex11223]

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

Но вот как определить количество <link> внутри узла <entry>?

Причем тут link? В цикле вам все элементы в entry надо проходить.

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

Или может есть еше какие варианты?

Взять какую-нибудь библиотеку умеющую например XPath
http://stackoverflow.com/questions/5...d-txmldocument
https://www.google.com/search?q=delphi+xpath

nodes := SelectNodes('//link[@rel="alternate" and @href]');

[arriah]

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

Причем тут link? В цикле вам все элементы в entry надо проходить.

Так я вроде как прохожу всем циклом:

RootXML:=XMLDocument1.DocumentElement;

 for i:= 0 to RootXML.ChildNodes.Count - 1 do begin
  if RootXML.ChildNodes[i].NodeName='entry' then
  begin
     Memo1.Lines.Add(RootXML.ChildNodes[i].ChildNodes['title'].Text);
     Memo1.Lines.Add(RootXML.ChildNodes[i].ChildNodes['published'].Text);

     //вот здесь надо получить линк
     memo1.Lines.Add(VarToStr(RootXML.ChildNodes[i].ChildNodes['link'].Attributes['href']));
  end;
end;

В таком виде он выдергивает первый <link>

[Alex11223]

Так они ж не на том уровне, не в RootXML.

[arriah]

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

Так они ж не на том уровне, не в RootXML.

То есть RootXML.ChildNodes[i].ChildNodes['link'] != RootXML.<entry>.<link>?

Тогда нифига не понимаю как мне вытащить данные при такой структуре:

<>мусор<>
<>мусор<>
<>мусор<>
<>мусор<>
<>мусор<>
<entry>
  <tilte></title>
  <published></published>
  <link rel='replies' href='...'>
  <link rel='replies' href='...'>
  <link rel='edit' href='...'>
  <link rel='alternate' href='...'>
</entry>

<entry>
  <tilte></title>
  <published></published>
  <link rel='replies' href='...'>
  <link rel='replies' href='...'>
  <link rel='edit' href='...'>
  <link rel='alternate' href='...'>
</entry>

<entry>
  <tilte></title>
  <published></published>
  <link rel='replies' href='...'>
  <link rel='replies' href='...'>
  <link rel='edit' href='...'>
  <link rel='alternate' href='...'>
</entry>

</feed>

[Alex11223]

ChildNodes['link'] видимо только первый достает, а не все.

[arriah]

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

ChildNodes['link'] видимо только первый достает, а не все.

Я вобще что-либо перестал понимать
Вот нашел же себе RSS для изучения структуры атома ССылка http://ussrlife.blogspot.com/feeds/posts/default

Загрузили xml, далее делаю

showmessage(IntToStr(RootXML.ChildNodes['entry'].ChildNodes.Count));

Ответ 16.

Я так понимаю что узлов <entry> в данном XML файле - 16 штук.
Но я ж не поверил! Загрузил его в нотпад, посчитал - а там ответ 25...
Посчитал ручками - 25, загрузил его через оперу - посчитал - 25..

Я глючу или XMLDocument?

[Alex11223]

Что написали, то и вывело.
Это количество элементов в первом entry.

[arriah]

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

Это количество элементов в первом entry.

Это я уже понял. Смутило то что внутри <entry> есть узел <author>

<author>
 <name></name>
 <email></email>
</author>

и он в узле считается как одна строка

Вобщем в таком виде все заработало как надо:

 for i:= 0 to RootXML.ChildNodes.Count - 1 do begin
  if RootXML.ChildNodes[i].NodeName='entry' then
  begin
     Memo1.Lines.Add(RootXML.ChildNodes[i].ChildNodes['title'].Text);
     Memo1.Lines.Add(RootXML.ChildNodes[i].ChildNodes['published'].Text);
     for k:=0 to RootXML.ChildNodes[i].ChildNodes.Count-1 do begin
        if VarToStr(RootXML.ChildNodes[i].ChildNodes[k].Attributes['rel'])='alternate' then begin
           Memo1.Lines.Add(RootXML.ChildNodes[i].ChildNodes[k].Attributes['href']);
        end;
     end;
  end;
 end;