Что нового

Как выцепить погоду из xml файла ?

vaf

Новичок
Сообщения
189
Репутация
2
Всем привет.
Подскажите как максимально эффективно выдернуть из xml погоду из URL
http://informer.gismeteo.ru/rss/27953.xml
по идее нужны только значени в тегах<title></title> и <description></description>, но только в тех где содержится информация о городе и погоде, т.е.

<title>GISMETEO.RU .... </title>
<description>Текущая погода и точный прогноз погоды по всему миру...</description>
не нужны
 
Автор
V

vaf

Новичок
Сообщения
189
Репутация
2
Сделал вот такой код - код кривой, но работает :smile:

Код:
#include <Array.au3>
ConsoleWrite (Weather ('http://informer.gismeteo.ru/rss/27953.xml'))

Func Weather ($wURL)
   $wString = ''
   InetGet ($wURL, '_weather.txt', 1) ; Считываем погоду во временный файл
   $wText = FileRead(@ScriptDir & '\_weather.txt')
   $wText = StringReplace ($wText, '<title>', '###')
   $wText = StringReplace ($wText, '</title>', '###')
   $wText = StringReplace ($wText, '<description>', '###')
   $wText = StringReplace ($wText, '</description>', '###')
   $aWeather = StringSplit ($wText, '###', 1)
   $wCity = StringSplit ($aWeather[8], ': ', 1)
   $wCity = $wCity[1] & ': '
   $wString &= $aWeather[8] & ' ' & $aWeather[10] & ' ' & StringReplace ($aWeather[12], $wCity, '') & ' ' & $aWeather[14] & ' ' & StringReplace ($aWeather[16], $wCity, '') & ' ' & $aWeather[18]  & ' ' & StringReplace ($aWeather[20], $wCity, '') & ' ' & $aWeather[22]

   Return $wString
EndFunc
 
Верх