Получение погоды

[Proxy]

Вопрос: как получить погоду с gismeteo не прибегая к использованию их HTML шаблонов. Вобщем желательно, что бы оно вписывалось в специфический стиль моей проги на VB, без использования вэббраузер контрола, вобщем получить погоду по тому же протоколу, по какому получают проги типа SPB Weather на КПК. Надо получить только данные о погоде, притом не оплачивая гисметио за юзание их шаблонов. Их рук. проекта не отвечает на пиьма(
Вобщем может кто сталкивался и есть код? Ну или хотя бы понимание как это сделать / в каком виде и через что можно получить данные о погоде (как например у icq бота, они ж ничего гисметео не платят, это свободный проект без единого рекламного банера, т.е. свои $$$ автор за это не платит, а значит как-то законно (без HTML шаблона) запрашивает инфу). Вобщем любая информация приветствуется. А так же может кто знает что-нибудь наподобие погоды и не менее интересующего пользователя?

[AntonGV]

Получай погоду в xml формате. Ссылка для выбранного города: http://informer.gismeteo.ru/xml/[ID]_1.xml, вместо [ID] указывается id города, например для Москвы http://informer.gismeteo.ru/xml/27612_1.xml

Описание формата

Код: Выделить всё

TOWN   информация о пункте прогнозирования:
  index   уникальный пятизначный код города
  sname   закодированное название города
  latitude   широта в целых градусах
longitude   долгота в целых градусах
FORECAST   информация о сроке прогнозирования:
  day, month, year   дата, на которую составлен прогноз в данном блоке
  hour   местное время, на которое составлен прогноз
  tod   время суток, для которого составлен прогноз: 0 - ночь 1 - утро, 2 - день, 3 - вечер
  weekday   день недели, 1 - воскресенье, 2 - понедельник, и т.д.
  predict   заблаговременность прогноза в часах
PHENOMENA    атмосферные явления:
  cloudiness   облачность по градациям:  0 - ясно, 1- малооблачно, 2 - облачно, 3 - пасмурно
  precipitation   тип осадков: 4 - дождь, 5 - ливень, 6,7 – снег, 8 - гроза, 9 - нет данных, 10 - без осадков
  rpower   интенсивность осадков, если они есть. 0 - возможен дождь/снег, 1 - дождь/снег
  spower   вероятность грозы, если прогнозируется: 0 - возможна гроза, 1 - гроза
PRESSURE   атмосферное давление, в мм.рт.ст.
TEMPERATURE   температура воздуха, в градусах Цельсия
WIND   приземный ветер
  min, max   минимальное и максимальное значения средней скорости ветра, без порывов
  direction    направление ветра в румбах, 0 - северный, 1 - северо-восточный,  и т.д.
RELWET   относительная влажность воздуха, в %
HEAT   комфорт - температура воздуха по ощущению одетого по сезону человека, выходящего на улицу


[Proxy]

<?xml version="1.0" ?>
<MMWEATHER>
<REPORT type="frc3">
<TOWN index="27612" sname="%CC%EE%F1%EA%E2%E0" latitude="56" longitude="38">
<FORECAST day="6" month="10" year="2008" hour="22" tod="3" predict="18" weekday="2">
<PHENOMENA cloudiness="3" precipitation="4" rpower="0" spower="0"/>
<PRESSURE max="745" min="743"/>
<TEMPERATURE max="16" min="14"/>
<WIND min="3" max="6" direction="4"/>
<RELWET max="93" min="88"/>
<HEAT min="14" max="16"/>
</FORECAST>
<FORECAST day="7" month="10" year="2008" hour="4" tod="0" predict="24" weekday="3">
<PHENOMENA cloudiness="3" precipitation="4" rpower="1" spower="0"/>
<PRESSURE max="746" min="744"/>
<TEMPERATURE max="15" min="13"/>
<WIND min="1" max="3" direction="6"/>
<RELWET max="96" min="91"/>
<HEAT min="13" max="15"/>
</FORECAST>
<FORECAST day="7" month="10" year="2008" hour="10" tod="1" predict="30" weekday="3">
<PHENOMENA cloudiness="3" precipitation="4" rpower="0" spower="0"/>
<PRESSURE max="747" min="745"/>
<TEMPERATURE max="14" min="12"/>
<WIND min="2" max="5" direction="0"/>
<RELWET max="91" min="86"/>
<HEAT min="12" max="14"/>
</FORECAST>
<FORECAST day="7" month="10" year="2008" hour="16" tod="2" predict="36" weekday="3">
<PHENOMENA cloudiness="3" precipitation="4" rpower="0" spower="0"/>
<PRESSURE max="748" min="746"/>
<TEMPERATURE max="14" min="12"/>
<WIND min="2" max="5" direction="0"/>
<RELWET max="86" min="81"/>
<HEAT min="12" max="14"/>
</FORECAST>
</TOWN>
</REPORT>
</MMWEATHER>

Вот что получил. А где взять индекс AAAAA города N?

[AntonGV]

может где-то на сайте gismeteo.ru есть нормальный список, но я нашел только это (кусок js):

Gismeteo dbtlist.rar

(35.56 Кб) Скачиваний: 219

там массив, состоящий из кода и названия города, например "29865Абакан", везде первые 5 символов это id города, а дальше название

[Proxy]

Ок. Пасиб. Разобрался во всём, всё работает отлично. А есть что ещё из подобных сетевых удобств? Как и где например можно получить курс валют такой же XML структурой? Или ещё что есть? Просто не могу придумать, что бы ещё могло быть полезным пользователям калькулятора. Погода, курс валют, а вот что ещё не знаю.

[Antonariy]

Курсы английского, увеличение члена и сомнительные знакомства.

[Proxy]

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

[Debugger]

что бы ещё могло быть полезным пользователям калькулятора

Курсы английского, увеличение члена и сомнительные знакомства.

Навряд ли пользователям калькулятора поможет погода. Только курс валют и часики могут помочь.

[Proxy]

Ну это же не совсем простой калькулятор.

[Matew]

Курс валют можно получить с http://www.rbc.ru/
Вот так это делает 1С:

Адрес1 = "http://cbrates.rbc.ru/tsv/cb/"; // в интервале
Адрес2 = "http://cbrates.rbc.ru/tsv/"; // по 1 дате
Если НачДата=КонДата Тогда // по 1 дате
Адрес = Адрес2;
ТМП = "/"+ДатаГод(КонДата)+"/"+Формат(ДатаМесяц(КонДата),"Ч(0)2.0")+"/"+Формат(ДатаЧисло(КонДата),"Ч(0)2.0");
Иначе // в интервале
Адрес = Адрес1;
ТМП = "";
КонецЕсли;
Валюта=СоздатьОбъект("Справочник.Валюты");
Стр = "";
МахДата = Дата(0);
Для Н=1 По СписокВалют.РазмерСписка() Цикл
Если СписокВалют.Пометка(Н)=0 Тогда
Продолжить;
КонецЕсли;
ВалютаТМП = СписокВалют.ПолучитьЗначение(Н);
Если (Результат=1)И(Авто=0) Тогда
Сообщить("Загрузка курсов валюты: "+ВалютаТМП);
Сообщить("Дата"+СимволТабуляции+СимволТабуляции+"Курс"+СимволТабуляции+"Кратность");
КонецЕсли;
Если Авто=1 Тогда
Состояние("Загрузка курсов валюты: "+ВалютаТМП);
КонецЕсли;

Попытка
Соединение.ПолучитьКакСтроку(Адрес+Прав(ВалютаТМП.Код,3)+ТМП+".tsv", Стр);
Исключение
Сообщить("Неудачная попытка соединения.");
КонецПопытки;
Текст=СоздатьОбъект("Текст");
Текст.ДобавитьСтроку(Стр);

Курсы=СоздатьОбъект("Периодический");
Курсы.ИспользоватьОбъект("Курс",ВалютаТМП);
Кратности=СоздатьОбъект("Периодический");
Кратности.ИспользоватьОбъект("Кратность",ВалютаТМП);

НачальныйКурс=0;
НачальнаяКратность=0;
НачальнаяДатаКурса=Дата(0);
НачатьТранзакцию();
Для Инд=1 По Текст.КоличествоСтрок() Цикл
Стр=Текст.ПолучитьСтроку(Инд);
Если (Стр="")ИЛИ(Найти(Стр,СимволТабуляции)=0) Тогда
Продолжить;
КонецЕсли;
Если НачДата=КонДата Тогда
ДатаКурса=КонДата;
Иначе
ДатаКурсаСтр=ВыделитьПодСтроку(Стр);
ДатаКурса=Дата(Лев(ДатаКурсаСтр,4),Сред(ДатаКурсаСтр,5,2),Сред(ДатаКурсаСтр,7,2));
КонецЕсли;
Кратность=Число(ВыделитьПодСтроку(Стр));
Курс=Число(ВыделитьПодСтроку(Стр));

Если ДатаКурса>КонДата Тогда
Прервать;
КонецЕсли;

Если ДатаКурса<НачДата Тогда //Запоминание курса на начало интервала
Продолжить;
КонецЕсли;

Курсы.ВыбратьЗначения(ДатаКурса,ДатаКурса);
Курсы.ПолучитьЗначение();
Кратности.ВыбратьЗначения(ДатаКурса,ДатаКурса);
Кратности.ПолучитьЗначение();
Если (Курс<>Курсы.Значение) или (Кратность<>ВалютаТМП.Кратность.Получить(ДатаКурса)) Тогда
Курсы.ДатаЗнач=ДатаКурса;
Курсы.Значение=Курс;
Курсы.Записать();
Кратности.ДатаЗнач=ДатаКурса;
Кратности.Значение=Кратность;
Если ВалютаТМП.Кратность.Получить(ДатаКурса)<>Кратность Тогда
Кратности.Записать();
КонецЕсли;
Если (Результат=1)И(Авто=0) Тогда
Сообщить(Строка(ДатаКурса)+СимволТабуляции+Курс +СимволТабуляции+СимволТабуляции+ Кратность,"I");
КонецЕсли;
МахДата = макс(ДатаКурса,МахДата);
КонецЕсли;
Если (Результат=1)И(Авто=0) Тогда
Состояние("Загрузка курса на "+ДатаКурса+" - "+Курс);
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
КонецЦикла;

<Edit>
Подредактировал теги
</Edit>

[Antonariy]

Курсы валют — разумно, котировки ценных бумаг и рыночные индексы тоже, хотя мало кому нужно (у таких людей свои "калькуляторы"). Погода — нет. Что там считать? Среднюю температуру по области?

[Antonariy]

Вот так это делает 1С:

Оно говорит (в смысле 1с) !!!!! Оно хочет поработить мир!!!!!

[Денис]

Ага, да!
Matew должен был юзать тег Quote

[Proxy]

А как гисметео возвращает данные когда гроза и снег, или гроза и дождь? Гроза вместе с ними идёт одним полем Атмосферные явления. Суммой они возвращаться не могут, т.к. возникают неоднозначности. Сейчас нарисовал иконки (38 штук) для различных погодных условий и понял, что случаи совмещения атмосферных явлений рассматриваю только Дождь со Снегом (ибо так документировано), а как быть с грозой и <чем-нибудь>?

Вот ещё: стоит ли учитывать, что гисметео возвратит данные с наличием Атмосферных явлений при Ясной облачности? Вообще толькочто нашёл чужой иконпак с погодой, он тоже не учитывает, что гроза может происходить с другими Атмосферными явлениями и осадки при ясной облачности. Делать так же?

[Zenitchik]

У меня подозрение, что информер гонит туфту. Достоверные данные отображаются в поле "Текущая погода". Информер обновляется чаще, чем оно - это настораживает. Памятуя, что ихняя "Станция" безбожно режет пиковые значения температур...

[kibernetics]

AntonGV отличный хинт
спасибо