Парсинг XML

[[Smarik]]

Не могу сообразить как парсить вот такую структуру

<iq from="vjud.jabber.snc.ru" to="" id="" type="result">
<item>
<field var="jid">
<value></value>
</field>
<field var="fn">
<value></value>
</field>
<field var="last">
<value/>
</field>
<field var="first">
<value/>
</field>
<field var="middle">
<value/>
</field>
<field var="nick">
<value></value>
</field>
<field var="bday">
<value></value>
</field>
<field var="ctry">
<value></value>
</field>
<field var="locality">
<value></value>
</field>
<field var="email">
<value></value>
</field>
<field var="orgname">
<value/>
</field>
<field var="orgunit">
<value/>
</field>
</item>
</iq>

мне нужно получить содержимое value при условии что field var = jid
пробовал так

  fset.XMLDocument1.LoadFromXML(XMLMessage);
  fset.XMLDocument1.Active := true;
  if fset.XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes['iq'].Attributes['from'] = 'jud.jabber.ru' then
    if fset.XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes['fields'].Attributes['var'] = 'jid' then
      fset.jids.Items.Add(fset.XMLDocument1.ChildNodes[2].ChildNodes['value'].Text);
    fset.XMLDocument1.Active := false;

[Terikon]

т.е. если var="jid" то вытаскивать значения <value> если нет то не вытаскивать? Получиить значения всех <value> ? или только для<field var="jid"> ? Думаю проще будет использовать Pos Copy, или регулярные значения.

[[Smarik]]

Нужны value только при условии <field var="jid">

[[Smarik]]

Попробовал еще так

  XMLParser := TGmXML.Create(self);
  XMLParser.Text := XMLMessage;
  XMLItem := XMLParser.Nodes.Root;
  if XmlItem.Params.Values['from'] = fset.transport.Text then
    if XMLItem.Children.NodeByName['field'].Params.Values['var'] = 'jid' then
      fset.Caption:=XMLItem.Children.NodeByName['value'].AsString;
  XMLParser.free;

первое условие проходит нормально, а второе не выполняется...

[psycho-coder]

Ну, тогда можно с помощью костылей:

uses StrUtils;
begin
  sPos := Pos('var="jid"', Str);
  if sPos > 0 then
  begin
    sPos := PosEx('<value>', Str, sPos) + 7; // Длина <value>
    value := Copy(Str, sPos, PosEx('</value>', Str, sPos) - sPos);
  end;
end;

P.S. Писал на форум, так что могут быть ошибки.

[[Smarik]]

Ну я пришел к таким же костылям

_begin := Pos('<value>',_msg) + Length('<value>');
_end := Pos('</value>',_msg);
_result := Copy(_msg, _begin, _end-_begin);

Проблема в том, что в строке надо выловить 30 таких моментов, а ловится только первый, это надо функцией delete удалять то, что уже просмотрели и циклом слать опять читать строку... Но не могу сообразить какие параметры передать в delete чтоб это работало правильно.

[psycho-coder]

Сообщение от [Smarik]

Ну я пришел к таким же костылям

_begin := Pos('<value>',_msg) + Length('<value>');
_end := Pos('</value>',_msg);
_result := Copy(_msg, _begin, _end-_begin);

Проблема в том, что в строке надо выловить 30 таких моментов, а ловится только первый, это надо функцией delete удалять то, что уже просмотрели и циклом слать опять читать строку... Но не могу сообразить какие параметры передать в delete чтоб это работало правильно.

Не нужно ничего удалять))

uses StrUtils;
begin
while sPos > 0 do
begin
  sPos := PosEx('var="jid"', Str, sPos);
  if sPos > 0 then
  begin
    sPos := PosEx('<value>', Str, sPos) + 7; // Длина <value>
    value := Copy(Str, sPos, PosEx('</value>', Str, sPos) - sPos);
  end;
end;
end;