Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > xml

Автор: PalR 26.4.2009, 12:31

Вот такой код

Код


ShowMessage(node.ChildNodes[i].NodeName);

возвращает
NAME

Код


ShowMessage(node.ChildNodes[i].xml);

возвращает
<NAME value="basic-nt/msvcp71.dll"/>

Код


ShowMessage(node.ChildNodes[i].text);

возвращает пустую строку.

Как получить только "basic-nt/msvcp71.dll" без кавычек.

Автор: Лапоть 26.4.2009, 12:50

Для узла NAME надо взять значение самого атрибута - GetAttribute('value'); Тут где-то по соседству пару дней назад уже обсуждали чтение XML - http://forum.vingrad.ru/index.php?showtopic=256639&view=findpost&p=1850193

Автор: PalR 26.4.2009, 13:24

Всёравно не понял. smile

Автор: PalR 26.4.2009, 14:16

Код


ShowMessage(VarToWideStr(node.ChildNodes[i].NodeValue));

возвращает пустую строку.
Чо делать???

Автор: Лапоть 26.4.2009, 16:01

Да где ты этой экзотики набрался? smile

Для начала - прицепи кусок самого файла. Откуда я знаю, как ты вообще его читаешь - т.е. откуда появляется node.ChildNodes[i]?

Автор: PalR 26.4.2009, 17:57

xml можно взять http://dl1.antivir-pe.com/upd/idx/prem-nt-ru.info.gz
Задача создать список файлов с путём.
Без парсинга я наверно её уже бы решил.

Код


var
   i,k,j : integer;
  node : IXMLNode;
begin
  node := XML1.DocumentElement;
  for I := 0 to node.ChildNodes.Count - 1 do begin
    memo1.Lines.Add(node.ChildNodes[I].NodeName);
    node := node.ChildNodes.Nodes[i];
    memo2.Clear;
    for j := 0 to node.ChildNodes.Count-1 do begin
      memo2.Lines.Add(node.ChildNodes[j].NodeName);
      node := node.ChildNodes.Nodes[j];
      memo3.Clear;
      for k := 0 to node.ChildNodes.Count-1 do begin
        memo3.Lines.Add(node.ChildNodes[k].NodeName);
        ShowMessage(node.ChildNodes[k].NodeName);
        ShowMessage(node.ChildNodes[k].xml);
        ShowMessage(VarToWideStr(node.ChildNodes[k].NodeValue));
        ShowMessage(node.ChildNodes[k].Attributes[node.ChildNodes[k].NodeName]);
        //ShowMessage(node.Attributes[node.ChildNodes[k].NodeName]);
        //memo4.Lines.Add(node.ChildValues[k]);
      end;
      node := node.ParentNode;
    end;
    node := node.ParentNode;
  end;
end;

ShowMessage просто что бы видеть чего происходит smile

Автор: Лапоть 26.4.2009, 18:18

Код


<UPDATE>
  <VERSION value="0.0.0.1"/>
  <NAME value="AntiVir OEM"/>
  <DATE value="Tue Dec 09 08:37:15 2008"/>
  <MODULE NAME="SELFUPDATE">
    <DESTINATION value="%INSTALL_DIR%\;OS=ALL"/>
    <SOURCE value="winwks\ru\"/>
    <FILE>
        <NAME value="basic-nt/avinet.dll"/>
        <FILEMD5 value="3d3e03479a16bf8b80eb8709a1c31b29"/>
        <PEFILEMD5 value="e9acfb006e7bd415315b67bbec2de2f2"/>
        <FILESIZE value="10497"/>
        <ZIPMD5 value="b568854fe3950c8bf53bec898a124b1f"/>
        <ZIPSIZE value="4562"/>
        <OS value="ALL"/>
        <VERSION value="7.0.0.7"/>
    </FILE>
  </MODULE>
  .....
</UPDATE>

Ещё раз иди по ссылке и читай!
Кроме того, вот твой код

Код


    for j := 0 to node.ChildNodes.Count-1 do begin        // первый раз ты читаешь узел этого уровня
      memo2.Lines.Add(node.ChildNodes[j].NodeName);
      node := node.ChildNodes.Nodes[j];                        // а тут ты этот узел меняешь!

Не экономь на ловле блох! Создай столько переменных (node0 (root), node1...nodeN), сколько у тебя уровней в XML'е. И читай не мифические NodeValue, а именованные атрибуты! Там всё это есть!
А писать код за тебя я не буду.

Автор: PalR 26.4.2009, 18:48

Это черновик, как ты понимаешь.
В оригинале будет ещё с рекурсией.
Объясни зачем плодить переменные?
И тот код ни чем по сути от моего не отличается.

Код


var i,k,j,l  : integer;
    node     : IXMLNode;
begin
  node := XML1.DocumentElement;
  for i := 0 to node.ChildNodes.Count - 1 do begin
    memo1.Lines.Add(node.ChildNodes[i].NodeName);
    node := node.ChildNodes.Nodes[i];                             // а тут я этот узел меняю!
    memo2.Clear;
    for j := 0 to node.ChildNodes.Count-1 do begin
      memo2.Lines.Add(node.ChildNodes[j].NodeName);
      node := node.ChildNodes.Nodes[j];                           // и опять меняю!
      memo3.Clear;
      memo4.Clear;
      for k := 0 to node.ChildNodes.Count-1 do begin
        memo3.Lines.Add(node.ChildNodes[k].NodeName);
        node := node.ChildNodes.Nodes[k];                        // и снова меняю!
        if node.ChildNodes.Count = 0 then begin                // это просто так, типа дошли до конца
          memo4.Lines.Add(node.Attributes['value']);
          //ShowMessage(node.NodeName);
          //ShowMessage(node.xml);
          ShowMessage(node.Attributes['value']);               // а здесь спасибо, хотя node.text тоже должно было бы работать
        end;
        node := node.ParentNode;                                      // а тут возвращаюсь к родителю
      end;
      node := node.ParentNode;                                        // и тут
    end;
    node := node.ParentNode;                                          // и здесь
  end;
end;

я ошибочно считал что NAME -это атрибут, а это тоже узел, а атрибут -value
теперь буду рекурсию прикручивать