Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Чтение XML файла 
:(
    Опции темы
Lockdog88
Дата 5.8.2010, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Добрый день!
У меня есть вот такой XML файл:
Код

<MMWEATHER>
    <REPORT type="frc3">
        <TOWN index="27612" sname="%CC%EE%F1%EA%E2%E0" latitude="56" longitude="38">
            <FORECAST day="05" month="08" year="2010" hour="03" tod="0" predict="0" weekday="5">
                <PHENOMENA cloudiness="0" precipitation="10" rpower="0" spower="0"/>
                <PRESSURE max="747" min="745"/>
                <TEMPERATURE max="23" min="21"/>
                <WIND min="1" max="3" direction="3"/>
                <RELWET max="35" min="33"/>
                <HEAT min="20" max="22"/>
            </FORECAST>
            <FORECAST day="05" month="08" year="2010" hour="09" tod="1" predict="0" weekday="5">
                <PHENOMENA cloudiness="1" precipitation="10" rpower="0" spower="0"/>
                <PRESSURE max="749" min="747"/>
                <TEMPERATURE max="31" min="29"/>
                <WIND min="1" max="3" direction="3"/>
                <RELWET max="38" min="36"/>
                <HEAT min="27" max="29"/>
            </FORECAST>
            <FORECAST day="05" month="08" year="2010" hour="15" tod="2" predict="0" weekday="5">
                <PHENOMENA cloudiness="0" precipitation="10" rpower="0" spower="0"/>
                <PRESSURE max="749" min="747"/>
                <TEMPERATURE max="39" min="37"/>
                <WIND min="3" max="5" direction="3"/>
                <RELWET max="17" min="15"/>
                <HEAT min="34" max="36"/>
            </FORECAST>
            <FORECAST day="05" month="08" year="2010" hour="21" tod="3" predict="0" weekday="5">
                <PHENOMENA cloudiness="1" precipitation="10" rpower="0" spower="0"/>
                <PRESSURE max="749" min="747"/>
                <TEMPERATURE max="29" min="27"/>
                <WIND min="2" max="4" direction="2"/>
                <RELWET max="34" min="32"/>
                <HEAT min="25" max="27"/>
            </FORECAST>
        </TOWN>
    </REPORT>
</MMWEATHER>


Нужно считывать значения из каждого блока FORECAST
Если я пишу так:
Код

cloud := XMLDocument1.DocumentElement.ChildNodes['REPORT'].ChildNodes['TOWN'].ChildNodes['FORECAST'].ChildNodes['PHENOMENA'].GetAttribute('cloudiness');


то узнаю значение только из первого блока, как мне считать значения тех же параметров из остальных блоков FORECAST?
PM MAIL   Вверх
xkor
Дата 5.8.2010, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Код

for i:=0 to XMLDocument1.DocumentElement.ChildNodes['REPORT'].ChildNodes['TOWN'].ChildNodes.Count do
  cloud[i] := XMLDocument1.DocumentElement.ChildNodes['REPORT'].ChildNodes['TOWN'].ChildNodes[i].ChildNodes['PHENOMENA'].GetAttribute('cloudiness');

PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Lockdog88
Дата 7.8.2010, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Огромное спасибо!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

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


 




[ Время генерации скрипта: 0.1623 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.