VPF::Распознавание атрибутов в XML - Форум программистов

Valery

Дата 29.8.2007, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 31.7.2006

Репутация: нет
Всего: нет

Привет всем. Кто может подсказать ? Допустим существует
следующий XML файл :
--------------------------------------------------------

Код


<?xml version="1.0" encoding="UTF-8"?>
<Weather ver="2.0">
<Head>
<Inf>текст</Inf>
</Head>
<cc>
<X1 Atr="0">текст</X1>
<X2 Atr1="aaa" Atr2="bbb">текст</X2>
</cc>
</Weather>

--------------------------------------------------------
Для распознавания данных XML я написал следующий код:
--------------------------------------------------------

Код


procedure ReadXML;
var 
mainNode: variant;
Atrib1,s1,s2,val1,val2,val3: string;
begin
     procedure LoadItems (Node: variant);
     var i: integer;
     begin
       if Node.nodeName <> '#text' then s1 := Node.nodeName;
       if Node.nodeName = '#text' then
          begin
          s2 := Node.nodeValue;
          if s1 = 'inf' then val1 := s2;
          if s1 = 'X1' then val2 := s2;
          if s1 = 'X2' then val3 := s2;
          end;
       for i:=0 to Node.childNodes.length-1 do LoadItems (Node.childNodes.item[i]);
     end;
XML := CreateOleObject('Microsoft.XMLDOM');
XML.load(NameFile);
mainNode := XML.documentElement;
for i:=0 to mainNode.attributes.length-1 do  //число атрибутов определяется 1
begin
if i=0 then Atrib1 := mainNode.attributes.item[0].text;   //данные атрибута Weather ver=
end;
LoadItems (mainNode);
end;

--------------------------------------------------------
У меня получается распознавание только всех первых атрибутов
Inf, X1, X2 и текст, а вложенные атрибуты Atr, Atr1, Atr2
не обнаруживаются.
Как на Delphi6 распознать и вложенные атрибуты Atr, Atr1, Atr2 ?
Не плохо было бы посмотреть пример или кто доработал бы мой код.
На примере все сразу понятно.

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?show_typ...howtopic=126445

Это сообщение отредактировал(а) Alexeis - 29.8.2007, 10:49

ALeXandrK

Дата 29.8.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 6

Цитата

mainNode.attributes.length

А ты уверен, что этот код определяет кол-во атрибутов, а не длину?
У меня дельфи вообще не выдает ни каких полей у attributes!

Проверь debuger-ом верно ли там определяется кол-во атрибутов!

И вообще получается что ты берешь кол-во атрибутов у главной ноды, а
хочешь взять их из дочерних! Алгоритм у тебя какой то странный мне кажется.

Вот посмотри как пример работы с XML документами.

Это сообщение отредактировал(а) ALeXandrK - 29.8.2007, 11:54

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »