Récupérer les infos météos de yahoo ...

Tous les webservices qui vont agrémentés votre installation de domotique grùce à une connexion Internet.

Messagede DJMaboul » 15 Jan 2009, 06:44

Voici mon script pour Xoap.wheather.com

un peu hard mais ca marche avec la traduction FR du temp

Code: Tout sélectionner
Sub Main ()
   Dim XMLMeteo
   Dim test_dwl
   Dim meteojour
   Dim meteodemain
   Dim tmp
   Dim tmp2
   Dim tmph
   Dim actu
   
   XMLMeteo = hs.GetURLIE ("http://xoap.weather.com/weather/local/FRXX0100?cc=*&unit=m&ut=c&dayf=3", True)
   'hs.WriteLog "Info", XMLMeteo
   test_dwl = InStr (XMLMeteo , "weather")
   ' hs.WriteLog "Info", test_dwl
   If test_dwl > 0 Then
      XMLMeteo = Replace(XMLMeteo, chr(34)  , "")
      XMLMeteo = Replace(XMLMeteo, "<"  , "|")
      XMLMeteo = Replace(XMLMeteo, ">"  , "|")
      meteojour = ExtractStringBetweenTwoTags2("|day d=0", "|day d=1", XMLMeteo)
      meteodemain = ExtractStringBetweenTwoTags2("|day d=1", "|day d=2", XMLMeteo)
      XMLMeteo = ExtractStringBetweenTwoTags2("|weather", "|day d=0", XMLMeteo)
      ' tempĂ©rature du jour min
      hs.SetDeviceString "W1", ExtractStringBetweenTwoTags2("|low|", "|/low|", meteojour)
      ' tempĂ©rature du jour max
      hs.SetDeviceString "W2", ExtractStringBetweenTwoTags2("|hi|", "|/hi|", meteojour)
      ' tempĂ©rature extĂ©rieur
      hs.SetDeviceString "W3", ExtractStringBetweenTwoTags2("|tmp|", "|/tmp|", XMLMeteo)
      ' humiditĂ©
      hs.SetDeviceString "W4", ExtractStringBetweenTwoTags2("|hmid|", "|/hmid|", XMLMeteo)
      ' direction du vent
      tmp = ExtractStringBetweenTwoTags2("|t|", "|/t|", ExtractStringBetweenTwoTags2("|wind|", "|/wind|", XMLMeteo))
      tmp = Replace(tmp, "N"  , "Nord ")
      tmp = Replace(tmp, "S"  , "Sud ")
      tmp = Replace(tmp, "E"  , "Est ")
      tmp = Replace(tmp, "W"  , "Ouest ")
      tmp = Replace(tmp, "CALM"  , "Pas de vent")
      tmp = Replace(tmp, "calm"  , "Pas de vent")
      hs.SetDeviceString "W5", tmp
      ' visibilitĂ©
      hs.SetDeviceString "W6", ExtractStringBetweenTwoTags2("|vis|", "|/vis|", XMLMeteo) & " km"
      ' point de rosĂ©
      hs.SetDeviceString "W7", ExtractStringBetweenTwoTags2("|dewp|", "|/dewp|", XMLMeteo)
      ' pression
      hs.SetDeviceString "W8", ExtractStringBetweenTwoTags2("|r|", "|/r|", XMLMeteo)
      ' actualisĂ© le
      
      tmp = ExtractStringBetweenTwoTags2("|lsup|", "|/lsup|", XMLMeteo)
      tmp = split(tmp, " ")
      tmp2 =split(tmp(0), "/")
      ' actu = "le " & tmp2(1) & "/" & tmp2(0) & "/" & tmp2(2) & " Ă  "
      tmp2 =split(tmp(1), ":")
      if (tmp(2) = "PM") Then
         tmph = tmp2(0) + 12
      else
         tmph = tmp2(0)
      End if
      ' actu = actu & tmph & "h" & tmp2(1)
      actu = tmph & "h" & tmp2(1)
      
      hs.SetDeviceString "W9", actu
      ' tempĂ©rature ressentie
      hs.SetDeviceString "W10", ExtractStringBetweenTwoTags2("|flik|", "|/flik|", XMLMeteo)
      ' force vent
      tmp = ExtractStringBetweenTwoTags2("|s|", "|/s|", XMLMeteo)
      tmp = Replace(tmp, "CALM"  , "Pas de vent")
      tmp = Replace(tmp, "calm"  , "Pas de vent")
      hs.SetDeviceString "W11", tmp
      ' ciel actuel
      hs.SetDeviceString "W12", Traduire(ExtractStringBetweenTwoTags2("|t|", "|/t|", XMLMeteo))
      ' ciel demain
      hs.SetDeviceString "W13", Traduire(ExtractStringBetweenTwoTags2("|bt|", "|/bt|", meteodemain))
      ' temp max demain
      hs.SetDeviceString "W14", ExtractStringBetweenTwoTags2("|hi|", "|/hi|", meteodemain)
      ' temp min demain
      hs.SetDeviceString "W15", ExtractStringBetweenTwoTags2("|low|", "|/low|", meteodemain)
      ' direction du vent
      hs.SetDeviceString "W16", ExtractStringBetweenTwoTags2("|d|", "|/d|", ExtractStringBetweenTwoTags2("|wind|", "|/wind|", XMLMeteo))
   End If
End Sub

Function extractStringBetweenTwoTags2(astrBegin, astrEnd, astrBuffer)
   Dim aintBegin
   Dim aintEnd
   
   aintBegin = instr(astrBuffer,astrBegin)
   If aintBegin > 0 Then
      aintBegin = aintBegin + len(astrBegin)
      aintEnd = instr(aintBegin,astrBuffer,astrEnd)
      ExtractStringBetweenTwoTags2 = mid(astrBuffer,aintBegin,aintEnd - aintBegin)    
   Else
      ExtractStringBetweenTwoTags2 = ""
End if
End Function

Function Traduire(txt)

Traduire = txt

if txt = "A Few Clouds" Then
   Traduire = "Quelques nuages"
End if
if txt = "A Few Clouds and Breezy" Then
   Traduire = "Quelques nuages et Frais"
End if
if txt = "A Few Clouds and Windy" Then
   Traduire = "Quelques nuages et  et grand vent"
End if
if txt = "A Few Clouds with Haze" Then
   Traduire = "Quelques nuages et brume"
End if
if txt = "AM Clouds / PM Sun" Then
   Traduire = "Matin nuages / AprĂšs-Midi Soleil"
End if
if txt = "AM Rain / Snow Showers" Then
   Traduire = "Matin pluie / averses neigeuses"
End if
if txt = "AM Showers" Then
   Traduire = "Averses matinales"
End if
if txt = "AM Snow Showers" Then
   Traduire = "Averses de neige le matin"
End if
if txt = "AM T-Storms" Then
   Traduire = "Orages le matin"
End if
if txt = "Blowing Dust" Then
   Traduire = "Vent de poussiĂšre"
End if
if txt = "Blowing Sand" Then
   Traduire = "Vent de sable"
End if
if txt = "Blowing Snow" Then
   Traduire = "Vent de neige"
End if
if txt = "Blowing Snow in Vicinity" Then
   Traduire = "Vent de neige dans les environs"
End if
if txt = "Clear" Then
   Traduire = "Clair"
End if
if txt = "Clear / Wind" Then
   Traduire = "Clair / vent"
End if
if txt = "Clear and Breezy" Then
   Traduire = "Clair et frais"
End if
if txt = "Clear with Haze" Then
   Traduire = "Clair avec brume lĂ©gĂšre"
End if
if txt = "Cloudy Clair" Then
   Traduire = "Nuageux clair"
End if
if txt = "Clouds Early / Clearing Late" Then
   Traduire = "Nuages matinaux suivis d'Ă©claircies"
End if
if txt = "Cloudy" Then
   Traduire = "Nuageux"
End if
if txt = "Cloudy / Wind" Then
   Traduire = "Nuageux / Vent"
End if
if txt = "Cloudy / Windy" Then
   Traduire = ""
End if
if txt = "Drifting Snow" Then
   Traduire = "Amoncellement de neige"
End if
if txt = "Drizzle" Then
   Traduire = "Crachin"
End if
if txt = "Drizzle Fog/Mist" Then
   Traduire = "Crachin brouillard/brume"
End if
if txt = "Drizzle Fog" Then
   Traduire = "Crachin brouillard"
End if
if txt = "Drizzle Ice Pellets" Then
   Traduire = "Crachin grĂȘlons"
End if
if txt = "Drizzle Snow" Then
   Traduire = "Crachin neige"
End if
if txt = "Dust" Then
   Traduire = "PoussiĂšre"
End if
if txt = "Dust Storm in Vicinity" Then
   Traduire = "TempĂȘte de poussiĂšre dans les environs"
End if
if txt = "Dust Storm" Then
   Traduire = "TempĂȘte de poussiĂšre"
End if
if txt = "Dust/Sand Whirls" Then
   Traduire = "Tourbillons de poussiĂšre/sable"
End if
if txt = "Dust/Sand Whirls in Vicinity" Then
   Traduire = "Tourbillons de poussiĂšre/sable dans les environs"
End if
if txt = "Fair" Then
   Traduire = "Ciel dĂ©gagĂ©"
End if
if txt = "Fair/ Windy" Then
   Traduire = "Ciel dĂ©gagĂ© / grand vent"
End if
if txt = "Fair and Breezy" Then
   Traduire = "Ciel dĂ©gagĂ© et frais"
End if
if txt = "Fair and Windy" Then
   Traduire = "Ciel dĂ©gagĂ© et grand vent"
End if
if txt = "Fair with Haze" Then
   Traduire = "Ciel dĂ©gagĂ© avec brume lĂ©gĂšre"
End if
if txt = "Few Showers" Then
   Traduire = "Quelques averses"
End if
if txt = "Few Snow Showers" Then
   Traduire = "Quelques averses de neige"
End if
if txt = "Few Snow Showers / Wind" Then
   Traduire = "Quelques averses de neige / Vent"
End if
if txt = "Fog" Then
   Traduire = "Brouillard"
End if
if txt = "Fog in Vicinity" Then
   Traduire = "Brouillard dans les environs"
End if
if txt = "Fog/Mist" Then
   Traduire = "Brouillard/brume"
End if
if txt = "Freezing Drizzle" Then
   Traduire = "Crachin givrant"
End if
if txt = "Freezing Drizzle in Vicinity" Then
   Traduire = "Crachin givrant dans les environs"
End if
if txt = "Freezing Drizzle Rain" Then
   Traduire = "Crachin pluie givrant "
End if
if txt = "Freezing Drizzle Snow" Then
   Traduire = "Crachin neige givrant"
End if
if txt = "Freezing Fog" Then
   Traduire = "Brouillard givrant"
End if
if txt = "Freezing Fog in Vicinity" Then
   Traduire = "Brouillard givrant dans les environs"
End if
if txt = "Freezing Rain" Then
   Traduire = "Pluie givrante"
End if
if txt = "Freezing Rain in Vicinity" Then
   Traduire = "Pluie givrante dans les environs"
End if
if txt = "Freezing Rain Snow" Then
   Traduire = "Pluie neige givrante dans les environs"
End if
if txt = "Frigid" Then
   Traduire = "Grand froid"
End if
if txt = "Funnel Cloud in Vicinity" Then
   Traduire = "Nuage en entonnoir dans les environs"
End if
if txt = "Funnel Cloud" Then
   Traduire = "Nuage en entonnoir"
End if
if txt = "Hail" Then
   Traduire = "GrĂȘle"
End if
if txt = "Hail Showers" Then
   Traduire = "Averses de grĂȘle"
End if
if txt = "Haze" Then
   Traduire = "Brume lĂ©gĂšre"
End if
if txt = "Heavy Drizzle" Then
   Traduire = "Gros Crachin "
End if
if txt = "Heavy Drizzle Fog/Mist" Then
   Traduire = "Gros Crachin Brouillard/brume"
End if
if txt = "Heavy Drizzle Fog" Then
   Traduire = "Gros Crachin Brouillard"
End if
if txt = "Heavy Drizzle Ice Pellets" Then
   Traduire = "Gros Crachin GrĂȘlons"
End if
if txt = "Heavy Drizzle Snow" Then
   Traduire = "Gros Crachin Neige"
End if
if txt = "Heavy Dust Storm" Then
   Traduire = "Grosse tempĂȘte de poussiĂšre"
End if
if txt = "Heavy Freezing Drizzle Rain" Then
   Traduire = "Gros Crachin verglassant Pluie"
End if
if txt = "Heavy Freezing Drizzle Snow" Then
   Traduire = "Gros Crachin verglassant Neige"
End if
if txt = "Heavy Freezing Drizzle" Then
   Traduire = "Gros Crachin verglassant"
End if
if txt = "Heavy Freezing Fog" Then
   Traduire = "Gros brouillard verglassant"
End if
if txt = "Heavy Freezing Rain Snow" Then
   Traduire = "Grosse pluie verglassante Neige"
End if
if txt = "Heavy Freezing Rain" Then
   Traduire = "Grosse pluie verglassante"
End if
if txt = "Heavy Ice Pellets" Then
   Traduire = "Gros GrĂȘlons"
End if
if txt = "Heavy Ice Pellets Drizzle" Then
   Traduire = "Gros GrĂȘlons Crachin"
End if
if txt = "Heavy Ice Pellets Rain" Then
   Traduire = "Gros GrĂȘlons Pluie"
End if
if txt = "Heavy Rain" Then
   Traduire = "Grosse pluie"
End if
if txt = "Heavy Rain Fog/Mist" Then
   Traduire = "Grosse pluie Brouillard/brume"
End if
if txt = "Heavy Rain Fog" Then
   Traduire = "Grosse pluie Brouillard"
End if
if txt = "Heavy Rain Freezing Drizzle" Then
   Traduire = "Grosse pluie Crachin verglassant"
End if
if txt = "Heavy Rain Freezing Rain" Then
   Traduire = "Grosse pluie Pluie verglassante"
End if
if txt = "Heavy Rain Ice Pellets" Then
   Traduire = "Grosse pluie GrĂȘlons"
End if
if txt = "Heavy Rain Icy" Then
   Traduire = "Grosse pluie verglassante"
End if
if txt = "Heavy Rain Showers Fog/Mist" Then
   Traduire = "Grosse pluie Averses Brouillard/brume"
End if
if txt = "Heavy Rain Showers" Then
   Traduire = "Grosse pluie Averses"
End if
if txt = "Heavy Rain Snow" Then
   Traduire = "Grosse pluie Neige"
End if
if txt = "Heavy Sand Storm" Then
   Traduire = "Grosse tempĂȘte de sable "
End if
if txt = "Heavy Showers Rain Fog/Mist" Then
   Traduire = "Grosses averses Pluie Brouillard/brume"
End if
if txt = "Heavy Showers Rain" Then
   Traduire = "Grosses averses Pluie"
End if
if txt = "Heavy Showers Snow Fog/Mist" Then
   Traduire = "Grosses Neige Pluie Brouillard/brume"
End if
if txt = "Heavy Showers Snow Fog" Then
   Traduire = "Grosses averses Neige Brouillard"
End if
if txt = "Heavy Showers Snow" Then
   Traduire = "Grosses averses Neige"
End if
if txt = "Heavy Snow" Then
   Traduire = "Beaucoup de neige"
End if
if txt = "Heavy Snow Drizzle" Then
   Traduire = "Beaucoup de neige Crachin"
End if
if txt = "Heavy Snow Fog/Mist" Then
   Traduire = "Beaucoup de neige Brouillard/brume"
End if
if txt = "Heavy Snow Fog" Then
   Traduire = "Beaucoup de neige Brouillard"
End if
if txt = "Heavy Snow Freezing Drizzle" Then
   Traduire = "Beaucoup de neige Crachin verglassant"
End if
if txt = "Heavy Snow Freezing Rain" Then
   Traduire = "Beaucoup de neige Pluie verglassante"
End if
if txt = "Heavy Snow Rain" Then
   Traduire = "Beaucoup de neige Pluie"
End if
if txt = "Heavy Snow Showers Fog/Mist" Then
   Traduire = "Beaucoup de neige Averses Brouillard/brume"
End if
if txt = "Heavy Snow Showers Fog" Then
   Traduire = "Beaucoup de neige Averses Brouillard"
End if
if txt = "Heavy Snow Showers" Then
   Traduire = "Beaucoup de neige Averses"
End if
if txt = "Heavy T-Storm" Then
   Traduire = "Gros orage"
End if
if txt = "Heavy T-Storms Rain Fog/Mist" Then
   Traduire = "Gros orage Brouillard/brume"
End if
if txt = "Heavy T-Storms Rain Fog" Then
   Traduire = "Gros orage Brouillard"
End if
if txt = "Heavy T-Storms Rain Hail Fog/Mist" Then
   Traduire = "Gros orage GrĂȘle Brouillard/brume"
End if
if txt = "Heavy T-Storms Rain Hail Fog" Then
   Traduire = "Gros orage GrĂȘle  Brouillard"
End if
if txt = "Heavy T-Storms Rain Hail Haze" Then
   Traduire = "Gros orage GrĂȘle Brume lĂ©gĂšre"
End if
if txt = "Heavy T-Storms Rain Hail" Then
   Traduire = "Gros orage GrĂȘle"
End if
if txt = "Heavy T-Storms Rain Haze" Then
   Traduire = "Gros orage Brume lĂ©gĂšre"
End if
if txt = "Heavy T-Storms Rain" Then
   Traduire = "Gros orage Pluie"
End if
if txt = "Heavy T-Storms Snow" Then
   Traduire = "Gros orage Neige"
End if
if txt = "Ice Crystals" Then
   Traduire = "Cristaux de glace"
End if
if txt = "Ice Pellets Drizzle" Then
   Traduire = "GrĂȘlons Crachin"
End if
if txt = "Ice Pellets in Vicinity" Then
   Traduire = "GrĂȘlons dans les environs "
End if
if txt = "Ice Pellets Rain" Then
   Traduire = "GrĂȘlons Pluie"
End if
if txt = "Ice Pellets" Then
   Traduire = "GrĂȘlons"
End if
if txt = "Isolated T-Storms" Then
   Traduire = "Orages isolĂ©s"
End if
if txt = "Light Drizzle" Then
   Traduire = "LĂ©ger crachin"
End if
if txt = "Light Drizzle Fog/Mist" Then
   Traduire = "LĂ©ger crachin Brouillard/brume"
End if
if txt = "Light Drizzle Fog" Then
   Traduire = "LĂ©ger crachin Brouillard"
End if
if txt = "Light Drizzle Ice Pellets" Then
   Traduire = "LĂ©ger crachin GrĂȘlons"
End if
if txt = "Light Drizzle Snow" Then
   Traduire = "LĂ©ger crachin Neige"
End if
if txt = "Light Freezing Drizzle" Then
   Traduire = "LĂ©ger crachin verglassant"
End if
if txt = "Light Freezing Drizzle Rain" Then
   Traduire = "LĂ©ger crachin verglassant Pluie"
End if
if txt = "Light Freezing Drizzle Snow" Then
   Traduire = "LĂ©ger crachin verglassant Neige"
End if
if txt = "Light Freezing Fog" Then
   Traduire = "LĂ©ger brouillard verglassant"
End if
if txt = "Light Freezing Rain" Then
   Traduire = "LĂ©gĂšre pluie verglassante"
End if
if txt = "Light Freezing Rain Snow" Then
   Traduire = "LĂ©gĂšre pluie verglassante Neige"
End if
if txt = "Light Ice Pellets Drizzle" Then
   Traduire = "Petit GrĂȘlons Crachin"
End if
if txt = "Light Ice Pellets Rain" Then
   Traduire = "Petit GrĂȘlons Pluie"
End if
if txt = "Light Ice Pellets" Then
   Traduire = "Petit GrĂȘlons"
End if
if txt = "Light Rain" Then
   Traduire = "LĂ©gĂšre Pluie"
End if
if txt = "Light Rain Early" Then
   Traduire = "LĂ©gĂšre Pluie matinal"
End if
if txt = "Light Rain Fog/Mist" Then
   Traduire = "LĂ©gĂšre Pluie Brouillard/brume"
End if
if txt = "Light Rain Fog" Then
   Traduire = "LĂ©gĂšre Pluie Brouillard"
End if
if txt = "Light Rain Freezing Drizzle" Then
   Traduire = "LĂ©gĂšre Pluie Crachin verglassant"
End if
if txt = "Light Rain Freezing Rain" Then
   Traduire = "LĂ©gĂšre Pluie Pluie verglassante"
End if
if txt = "Light Rain Ice Pellets" Then
   Traduire = "LĂ©gĂšre Pluie GrĂȘlons"
End if
if txt = "Light Rain Icy" Then
   Traduire = "LĂ©gĂšre pluie verglassante"
End if
if txt = "Light Rain Late" Then
   Traduire = "LĂ©gĂšre Pluie tardive"
End if
if txt = "Light Rain Shower" Then
   Traduire = "LĂ©gĂšre pluie Averse"
End if
if txt = "Light Rain Shower and Windy" Then
   Traduire = "LĂ©gĂšre pluie Averses et Vent"
End if
if txt = "Light Rain Showers" Then
   Traduire = "LĂ©gĂšres pluie Averses"
End if
if txt = "Light Rain Snow" Then
   Traduire = "LĂ©gĂšres pluie Neige"
End if
if txt = "Light Rain with Thunder" Then
   Traduire = "LĂ©gĂšre Pluie avec tonnerre"
End if
if txt = "Light Showers Rain" Then
   Traduire = "LĂ©gĂšre averses Pluie"
End if
if txt = "Light Showers Rain Fog/Mist" Then
   Traduire = "LĂ©gĂšre averses Pluie Brouillard/brume"
End if
if txt = "Light Showers Snow" Then
   Traduire = "LĂ©gĂšre averses Neige"
End if
if txt = "Light Showers Snow Fog" Then
   Traduire = "LĂ©gĂšre averses Neige Brouillard"
End if
if txt = "Light Showers Snow Fog/Mist" Then
   Traduire = "LĂ©gĂšre averses Neige Brouillard/brume"
End if
if txt = "Light Snow" Then
   Traduire = "Peu de neige"
End if
if txt = "Light Snow Drizzle" Then
   Traduire = "Peu de neige Crachin"
End if
if txt = "Light Snow Fall" Then
   Traduire = "LĂ©gĂšre chutes de neige"
End if
if txt = "Light Snow Fog/Mist" Then
   Traduire = "Peu de neige Brouillard/brume"
End if
if txt = "Light Snow Fog" Then
   Traduire = "Peu de neige Brouillard"
End if
if txt = "Light Snow Freezing Drizzle" Then
   Traduire = "Peu de neige Crachin verglassant"
End if
if txt = "Light Snow Freezing Rain" Then
   Traduire = "Peu de neige Pluie Verglassante"
End if
if txt = "Light Snow Grains" Then
   Traduire = "Quelques flocons de neige"
End if
if txt = "Light Snow Rain" Then
   Traduire = "Peu de neige Pluie"
End if
if txt = "Light Snow Shower" Then
   Traduire = "LĂ©gĂšre averse de neige"
End if
if txt = "Light Snow Showers Fog/Mist" Then
   Traduire = "LĂ©gĂšre averses de neige Brouillard/brume"
End if
if txt = "Light Snow Showers Fog" Then
   Traduire = "LĂ©gĂšre averses de neige Brouillard"
End if
if txt = "Light T-Storms Rain Fog/Mist" Then
   Traduire = "LĂ©ger orages Pluie Brouillard/brume"
End if
if txt = "Light T-Storms Rain Fog" Then
   Traduire = "LĂ©ger orages Pluie Brouillard"
End if
if txt = "Light T-Storms Rain Hail Fog/Mist" Then
   Traduire = "LĂ©ger orages Pluie GrĂȘle Brouillard/brume"
End if
if txt = "Light T-Storms Rain Hail Fog" Then
   Traduire = "LĂ©ger orages Pluie GrĂȘle Brouillard"
End if
if txt = "Light T-Storms Rain Hail Haze" Then
   Traduire = "LĂ©ger orages Pluie GrĂȘle Brume lĂ©gĂšre"
End if
if txt = "Light T-Storms Rain Hail" Then
   Traduire = "LĂ©ger orages Pluie GrĂȘle"
End if
if txt = "Light T-Storms Rain Haze" Then
   Traduire = "LĂ©ger orages Pluie Brume lĂ©gĂšre"
End if
if txt = "Light T-Storms Rain" Then
   Traduire = "LĂ©ger orages Pluie"
End if
if txt = "Light T-Storms Snow" Then
   Traduire = "LĂ©ger orages Neige"
End if
if txt = "Lightening" Then
   Traduire = "Eclairs"
End if
if txt = "Lightenings" Then
   Traduire = "Eclairs"
End if
if txt = "Mostly Clear" Then
   Traduire = "Ciel plutĂŽt dĂ©gagĂ©"
End if
if txt = "Mostly Cloudy" Then
   Traduire = "PlutĂŽt nuageux"
End if
if txt = "Mostly Cloudy and Breezy" Then
   Traduire = "PlutĂŽt nuageux et Venteux"
End if
if txt = "Mostly Cloudy and Windy" Then
   Traduire = "PlutĂŽt nuageux et Grand vent"
End if
if txt = "Mostly Cloudy with Haze" Then
   Traduire = "PlutĂŽt nuageux avec LĂ©gĂšre Brume"
End if
if txt = "Mostly Sunny" Then
   Traduire = "PlutĂŽt ensoleillĂ©"
End if
if txt = "Mostly Sunny / Wind" Then
   Traduire = "PlutĂŽt ensoleillĂ© / vent"
End if
if txt = "Overcast" Then
   Traduire = "Couvert"
End if
if txt = "Overcast and Breezy" Then
   Traduire = "Couvert et Venteux"
End if
if txt = "Overcast and Windy" Then
   Traduire = "Couvert et Grand vent"
End if
if txt = "Overcast with Haze" Then
   Traduire = "Couvert avec lĂ©gĂšre brume"
End if
if txt = "Partial Fog" Then
   Traduire = "Banc de Brouillard"
End if
if txt = "Partial Fog in Vicinity" Then
   Traduire = "Banc de Brouillard dans les environs"
End if
if txt = "P Cloudy" Then
   Traduire = "Partiellement nuageux"
End if
if txt = "Partly Cloudy" Then
   Traduire = "Partiellement nuageux"
End if
if txt = "Partly Cloudy and Breezy" Then
   Traduire = "Partiellement nuageux et Venteux"
End if
if txt = "Partly Cloudy and Windy" Then
   Traduire = "Partiellement nuageux et Grand vent"
End if
if txt = "Partly Cloudy / Wind" Then
   Traduire = "Partiellement nuageux / Vent"
End if
if txt = "Partly Cloudy/ Windy" Then
   Traduire = "Partiellement nuageux / Venteux"
End if
if txt = "Party Cloudy with Haze" Then
   Traduire = "Partiellement nuageux avec lĂ©gĂšre brume"
End if
if txt = "Partly Sunny" Then
   Traduire = "Partiellement ensoleillĂ©"
End if
if txt = "Patches of Fog" Then
   Traduire = "Nappes de Brouillard"
End if
if txt = "Patches of Fog in Vicinity" Then
   Traduire = "Nappes de Brouillard dans les environs"
End if
if txt = "PM light rain" Then
   Traduire = "PM LĂ©gĂšre Pluie"
End if
if txt = "PM Rain / Snow" Then
   Traduire = "PM Pluie / Neige"
End if
if txt = "PM Rain / Wind" Then
   Traduire = "PM Pluie / Vent"
End if
if txt = "PM Showers" Then
   Traduire = "PM Averses"
End if
if txt = "PM Snow Showers" Then
   Traduire = "PM averses neigeuses"
End if
if txt = "PM T-Storms" Then
   Traduire = "Orages l aprĂšs-midi"
End if
if txt = "Rain" Then
   Traduire = "Pluie"
End if
if txt = "Rain / Snow" Then
   Traduire = "Pluie / neige"
End if
if txt = "Rain / Snow Showers" Then
   Traduire = "Pluie / averses neigeuses"
End if
if txt = "Rain / Snow Showers Early" Then
   Traduire = "Pluie / averses neigeuses matinales"
End if
if txt = "Rain / Thunder" Then
   Traduire = "Pluie / Tonnerre"
End if
if txt = "Rain / Wind" Then
   Traduire = "Pluie / Vent"
End if
if txt = "Rain and Snow" Then
   Traduire = "Pluie et Neige"
End if
if txt = "Rain Early" Then
   Traduire = "Pluie matinale"
End if
if txt = "Rain Fog/Mist" Then
   Traduire = "Pluie Brouillard/brume"
End if
if txt = "Rain Fog" Then
   Traduire = "Pluie Brouillard"
End if
if txt = "Rain Freezing Drizzle" Then
   Traduire = "Pluie Crachin verglassant"
End if
if txt = "Rain Freezing Rain" Then
   Traduire = "Pluie Pluie Verglassante"
End if
if txt = "Rain Ice Pellets" Then
   Traduire = "Pluie GrĂȘlons"
End if
if txt = "Rain Shower" Then
   Traduire = "Pluie Averses"
End if
if txt = "Rain Showers Fog/Mist" Then
   Traduire = "Pluie Averses Brouillard/brume"
End if
if txt = "Rain Showers in Vicinity Fog/Mist" Then
   Traduire = "Pluie Averses dans les environs Brouillard/brume"
End if
if txt = "Rain Showers in Vicinity" Then
   Traduire = "Pluie Averses dans les environs"
End if
if txt = "Rain Snow" Then
   Traduire = "Pluie Neige"
End if
if txt = "Rain to Snow" Then
   Traduire = "Pluie vers Neige"
End if
if txt = "Sand Storm" Then
   Traduire = "TempĂȘte de Sable"
End if
if txt = "Sand Storm in Vicinity" Then
   Traduire = "TempĂȘte de Sable dans les environs"
End if
if txt = "Sand" Then
   Traduire = "Sable"
End if
if txt = "Shallow Fog" Then
   Traduire = "Brouillard superficiel"
End if
if txt = "Shallow Fog in Vicinity" Then
   Traduire = "Brouillard superficiel dans les environs"
End if
if txt = "Scattered Showers" Then
   Traduire = "Averses Ă©parses"
End if
if txt = "Scattered Showers / Wind" Then
   Traduire = "Averses Ă©parses / Vent"
End if
if txt = "Scattered Snow Showers" Then
   Traduire = "Averses neigeuses Ă©parses"
End if
if txt = "Scattered Snow Showers / Wind" Then
   Traduire = "Averses neigeuses Ă©parses / Vent"
End if
if txt = "Scattered Strong Storms" Then
   Traduire = "Violents orages locals"
End if
if txt = "Scattered T-Storms" Then
   Traduire = "Orages Ă©parses"
End if
if txt = "Showers" Then
   Traduire = "Averses"
End if
if txt = "Showers / Wind" Then
   Traduire = "Averses / Vent"
End if
if txt = "Showers Hail" Then
   Traduire = "Averses GrĂȘle"
End if
if txt = "Showers Ice Pellets" Then
   Traduire = "Averses GrĂȘlons"
End if
if txt = "Showers in the Vicinity" Then
   Traduire = "Averses dans les environs"
End if
if txt = "Showers in Vicinity Fog/Mist" Then
   Traduire = "Averses dans les environs Brouillard/brume"
End if
if txt = "Showers in Vicinity Fog" Then
   Traduire = "Averses dans les environs Brouillard"
End if
if txt = "Showers in Vicinity Haze" Then
   Traduire = "Averses dans les environs Brume lĂ©gĂšre"
End if
if txt = "Showers in Vicinity Snow" Then
   Traduire = "Averses dans les environs Neige"
End if
if txt = "Showers Early" Then
   Traduire = "Averses matinales"
End if
if txt = "Showers Late" Then
   Traduire = "Averses tardives"
End if
if txt = "Showers Rain" Then
   Traduire = "Averses Pluie"
End if
if txt = "Showers Rain Fog/Mist" Then
   Traduire = "Averses Pluie Brouillard/brume"
End if
if txt = "Showers Rain in Vicinity" Then
   Traduire = "Averses Pluie dans les environs"
End if
if txt = "Showers Rain in Vicinity Fog/Mist" Then
   Traduire = "Averses Pluie dans les environs Brouillard/brume"
End if
if txt = "Showers Snow" Then
   Traduire = "Averses Neige"
End if
if txt = "Showers Snow Fog" Then
   Traduire = "Averses Neige Brouillard"
End if
if txt = "Showers Snow Fog/Mist" Then
   Traduire = "Averses Neige Brouillard/brume"
End if
if txt = "Smoke" Then
   Traduire = "fumĂ©e"
End if
if txt = "Snow" Then
   Traduire = "Neige"
End if
if txt = "Snow / Rain Icy Mix" Then
   Traduire = "MĂ©lange Neige / Pluie Verglassante"
End if
if txt = "Snow and Fog" Then
   Traduire = "Neige et Brouillard"
End if
if txt = "Snow Drizzle" Then
   Traduire = "Neige Crachin"
End if
if txt = "Snow Fog/Mist" Then
   Traduire = "Neige Brouillard/brume"
End if
if txt = "Snow Freezing Drizzle" Then
   Traduire = "Neige Crachin verglassant"
End if
if txt = "Snow Freezing Rain" Then
   Traduire = "Neige Pluie verglassante"
End if
if txt = "Snow Rain" Then
   Traduire = "Neige Pluie"
End if
if txt = "Snow Shower" Then
   Traduire = "Averses de neige"
End if
if txt = "Snow Shower / Wind" Then
   Traduire = "Averses de neige / vent"
End if
if txt = "Snow Shower Early" Then
   Traduire = "Averses de neige matinales"
End if
if txt = "Snow Showers Fog/Mist" Then
   Traduire = "Averses de neige Brouillard/brume"
End if
if txt = "Snow Showers Fog" Then
   Traduire = "Averses de neige Brouillard"
End if
if txt = "Snow Showers in Vicinity" Then
   Traduire = "Averses de neige dans les environs"
End if
if txt = "Snow Showers in Vicinity Fog" Then
   Traduire = "Averses de neige dans les environs Brouillard"
End if
if txt = "Snow Showers in Vicinity Fog/Mist" Then
   Traduire = "Averses de neige dans les environs Brouillard/brume"
End if
if txt = "Snow Showers Late" Then
   Traduire = "Averses de neige tardives"
End if
if txt = "Snow to Rain" Then
   Traduire = "Neige vers Pluie"
End if
if txt = "Snowflakes" Then
   Traduire = "Flocons de neige"
End if
if txt = "Sunny" Then
   Traduire = "EnsoleillĂ©"
End if
if txt = "Sunny / Wind" Then
   Traduire = "EnsoleillĂ© / Vent"
End if
if txt = "Sunny Day" Then
   Traduire = "JournĂ©e ensoleillĂ©"
End if
if txt = "Thunder" Then
   Traduire = "Tonnerre"
End if
if txt = "Thunder in the Vicinity" Then
   Traduire = "Tonnerre dans les environs"
End if
if txt = "T-Storms" Then
   Traduire = "Orages"
End if
if txt = "T-Storms Early" Then
   Traduire = "Orages matinaux"
End if
if txt = "T-Storms Fog" Then
   Traduire = "Orages Brouillard"
End if
if txt = "T-Storms Hail Fog" Then
   Traduire = "Orages GrĂȘle Brouillard"
End if
if txt = "T-Storms Hail" Then
   Traduire = "Orages GrĂȘle"
End if
if txt = "T-Storms Haze in Vicinity Hail" Then
   Traduire = "Orages brume dans les environs GrĂȘle"
End if
if txt = "T-Storms Haze in Vicinity" Then
   Traduire = "Orages brume dans les environs"
End if
if txt = "T-Storms Heavy Rain" Then
   Traduire = "Orages Grosse Pluie"
End if
if txt = "T-Storms Heavy Rain Fog" Then
   Traduire = "Orages Grosse Pluie Brouillard"
End if
if txt = "T-Storms Heavy Rain Fog/Mist" Then
   Traduire = "Orages Grosse pluie Brouillard/brume"
End if
if txt = "T-Storms Heavy Rain Hail Fog" Then
   Traduire = "Orages Grosse Pluie GrĂȘle Brouillard"
End if
if txt = "T-Storms Heavy Rain Hail Fog/Mist" Then
   Traduire = "Orages Grosse Pluie GrĂȘle Brouillard/brume"
End if
if txt = "T-Storms Heavy Rain Hail Haze" Then
   Traduire = "Orages Grosse Pluie GrĂȘle Brume lĂ©gĂšre"
End if
if txt = "T-Storms Heavy Rain Hail" Then
   Traduire = "Orages Grosse Pluie GrĂȘle"
End if
if txt = "T-Storms Heavy Rain Haze" Then
   Traduire = "Orages Grosse Pluie Brume lĂ©gĂšre"
End if
if txt = "T-Storms Ice Pellets" Then
   Traduire = "Orages GrĂȘlons"
End if
if txt = "T-Storms in Vicinity" Then
   Traduire = "Orages dans les environs"
End if
if txt = "T-Storms in Vicinity Fog" Then
   Traduire = "Orages dans les environs Brouillard"
End if
if txt = "T-Storms in Vicinity Fog/Mist" Then
   Traduire = "Orages dans les environs Brouillard/brume"
End if
if txt = "T-Storms in Vicinity Hail Fog/Mist" Then
   Traduire = "Orages dans les environs GrĂȘle Brouillard/brume"
End if
if txt = "T-Storms in Vicinity Hail Haze" Then
   Traduire = "Orages dans les environs GrĂȘle Brume lĂ©gĂšre"
End if
if txt = "T-Storms in Vicinity Hail" Then
   Traduire = "Orages dans les environs GrĂȘle"
End if
if txt = "T-Storms in Vicinity Haze" Then
   Traduire = "Orages dans les environs Brume lĂ©gĂšre"
End if
if txt = "T-Storms Light Rain" Then
   Traduire = "Orages LĂ©gĂšre pluie"
End if
if txt = "T-Storms Light Rain Fog" Then
   Traduire = "Orages LĂ©gĂšre pluie Brouillard"
End if
if txt = "T-Storms Light Rain Fog/Mist" Then
   Traduire = "Orages LĂ©gĂšre pluie Brouillard/brume"
End if
if txt = "T-Storms Light Rain Hail" Then
   Traduire = "Orages LĂ©gĂšre pluie GrĂȘle"
End if
if txt = "T-Storms Light Rain Hail Fog" Then
   Traduire = "Orages LĂ©gĂšre pluie GrĂȘle Brouillard"
End if
if txt = "T-Storms Light Rain Hail Fog/Mist" Then
   Traduire = "Orages LĂ©gĂšre pluie GrĂȘle Brouillard/brume"
End if
if txt = "T-Storms Light Rain Hail Haze" Then
   Traduire = "Orages LĂ©gĂšre pluie GrĂȘle Brume lĂ©gĂšre"
End if
if txt = "T-Storms Light Rain Haze" Then
   Traduire = "Orages LĂ©gĂšre pluie Brume lĂ©gĂšre"
End if
if txt = "T-Storms Rain Fog/Mist" Then
   Traduire = "Orages Pluie Brouillard/brume"
End if
if txt = "T-Storms Rain Hail Fog/Mist" Then
   Traduire = "Orages Pluie GrĂȘle Brouillard/brume"
End if
if txt = "T-Storms Showers in Vicinity" Then
   Traduire = "Orages Averses dans les environs"
End if
if txt = "T-Storms Showers in Vicinity Hail" Then
   Traduire = "Orages Averses dans les environs GrĂȘle"
End if
if txt = "T-Storms Snow" Then
   Traduire = "Orages Neige"
End if
if txt = "Windy" Then
   Traduire = "Grand vent"
End if
if txt = "Windy / Snowy" Then
   Traduire = "Grand vent / neigeux"
End if
if txt = "Windy Rain" Then
   Traduire = "giboulĂ©es"
End if
if txt = "Wintry Mix" Then
   Traduire = "MĂ©langes pluie/neige"
End if
if txt = "Wintry Mix / Wind" Then
   Traduire = "MĂ©langes pluie/neige / vent"
End if

End Function
Serveur
Microsoft Win7 32bit, Apache, PHP, Mysql, Juliette AT&T
Intel Dual Core 2.6Mhz, 2Go Ram, 300Go
Homeseer 2.4.0.6, PLCBUS, 1-Wire(USB), SIP, HSFlash, RFXCOM, Nabaztag tag
Avatar de l’utilisateur
DJMaboul
Dieu de domotique
 
Messages: 515
Inscription: 09 Sep 2007, 06:24
Localisation: Tours

Messagede varaderiste » 15 Jan 2009, 11:09

Merci beaucoup, en effet c'est un gros script :D

Bon voila ce que j'ai fait, j'ai mis ce script (copier coller) dans un event manuel, et test.

Rien ne c'est passé (j'ai p'tet pas regardé ou il fallait)

J'ai été voir le log et voici ce qui est ecrit :

10:58:18~!~Error~!~Script error in file: essai météo.txt: 9:Indice en dehors de la plage: '[number: 0]' in line 49

Alors peut etre je n'ai pas fait ce qu'il fallait ( creation de device ?)

C'est peut etre aussi parceque je débute ... :oops:

Merci d'Ă©clairer ma bougie ( c'est pas encore une lanterne .. lol)

quel serait le resultat ?

mon but etant :

avec une declanchement manuel ou programmé : HS qui me dit : il fait beau (ou pas) il fait XX degres dehors etc ...


Merciiiiiii :roll:
varaderiste
Membre un peu timide !
 
Messages: 4
Inscription: 26 Mai 2008, 20:35

Messagede varaderiste » 15 Jan 2009, 11:24

Que pensez-vous de ceci ?

sub main()

dim w_today
dim w_tonight
dim w_tomorrow
dim w_2day
dim i
dim s
dim daynum
dim dayname
dim zip
dim all_w


zip = hs.GetINISetting("location","zip","")
if zip = "" then
zip = inputbox("Please enter your zip code for the weather:")
hs.SaveINISetting "location","zip",zip
end if


system.speak "Getting the weather. Hold On."

' get todays weather
w_today = hs.GetURL("www.accuweather.com","/uwp/weather.asp/"+zip+"/Today",1,80)
fixtxt w_today


' get tonights weather
w_tonight = hs.GetURL("www.accuweather.com","/uwp/weather.asp/"+zip+"/Tonight",1,80)
fixtxt w_tonight

' get tomorrows weather
daynum = WeekDay(date)
daynum = daynum+1
if daynum > 7 then daynum = 1
dayname = WeekdayName(daynum)
w_tomorrow = hs.GetURL("www.accuweather.com","/uwp/weather.asp/"+zip+"/"+dayname,1,80)
fixtxt w_tomorrow

' get weather for day after tommorrow
daynum = daynum+1
if daynum > 7 then daynum = 1
dayname = WeekdayName(daynum)
w_2day = hs.GetURL("www.accuweather.com","/uwp/weather.asp/"+zip+"/"+dayname,1,80)
fixtxt w_2day

' speak all in one call incase user hangs up the phone before it stops
all_w = w_today & "." & w_tonight & "." & w_tomorrow & "." & w_2day
all_w = replace(all_w,","," ")
system.speak all_w,false


end sub

sub fixtxt(txt)
' convert all carriage-return-linefeed pairs to ", " so it speaks properly
do
i = instr(1,txt,vbcrlf)
if i = 0 then exit do
txt = replace(txt,vbcrlf,", ")
loop

do
i = instr(1,txt,"/")
if i = 0 then exit do
txt = replace(txt,"/"," ")
loop
txt = Replace(txt,"AccuWeather, Inc,","")


end sub

sub hs_install()
dim zip



if hs.EventExists("get weather") then
' delete the event and re-create
hs.DeleteEvent "get weather"
end if

' create a new event
set ev = hs.NewEventEx("get weather")

zip = inputbox("Please enter your zip code for the weather:","Weather")
hs.SaveINISetting "location","zip",zip

' set the action to run a script
ev.scripts = "weather.txt"

' put it in the system group
ev.group = "system"

' enable the voice command over the MIC
ev.misc = ev.misc OR 8

' enable the voice command over the phone
ev.misc2 = ev.misc2 OR 1

' save the voice command and update HS
ev.vcmd = "get weather"

' tell HS about our changes so the new event is saved and any voice commands are built
hs.SaveEventsDevices

' give user some help
msgbox "To get the weather, say: get weather",,"Weather help"

' log an entry that job was completed
hs.WriteLog "Info","Weather script installed successfully"
end sub




Il me demande un zip code, je pense que c'est mon emplacement geographique, mais avec mon code postal, ca marche pas !!! :?




une idée ???
varaderiste
Membre un peu timide !
 
Messages: 4
Inscription: 26 Mai 2008, 20:35

Messagede thierryp44 » 09 Jan 2010, 02:03

Salut à tous, comment faite vous pour avoir la mise à jour de vos devices météo, maintenant que le site à changé.
j'ai le message suivant dans mon log:

08/01/2010 20:46:46 Info Event Trigger "Telecharger Meteo"
08/01/2010 20:46:46 Info Running script in background: modules\GET.METEO.FROM.YAHOO\scripts\get-meteo.vbs
08/01/2010 20:46:54 Error Getting URL using IE, could not create IE object: Cannot create ActiveX component.
08/01/2010 20:46:54 SEVERE GET.METEO.FROM.YAHOO, get-meteo.vbs, 08/01/2010 20:46:54, Error during the download of the following url http://fr.weather.yahoo.com/GPXX/GPXX0002/index_c.html
thierryp44
P'tit Guru de domotique
 
Messages: 73
Inscription: 20 Mai 2007, 15:25
Localisation: NANTES

Re: GET.METEO.FROM.YAHOO et non FILES

Messagede jeje66 » 20 Jan 2010, 19:56

domotics a Ă©crit:Ya une petite erreur dans mon message, il faut mettre le contenu du zip dans "c:\Program Files\Homeseer\scripts\modules\GET.METEO.FROM.YAHOO"

Est ce que tu as fait ?




bonsoir a tout un peut d'aide pour un nobbb ;) pour l'install dans le repertoitre"scripts "il n'y a pas "modules" je n'est pas du suivre correctement merci pour votre aide
a bientot jerome
jeje66
Guru de domotique
 
Messages: 122
Inscription: 13 Avr 2009, 09:28

Précédente

Retourner vers Les Webservices pour la domotique : Météo, Traffic routier, ...

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités

Copyright © 2011 - Touteladomotique.com - Tous droits rĂ©servĂ©s
Les blogs partenaires : Abavala, Domo-Blog, Domotique34, Maison et Domotique


cron