Was ist zu tun:
Prinzipell gleiche Vorgehensweise wie beim OpenWeatherMap-Skript beschrieben.
1) free API-Key beantragen: https://developer.accuweather.com/
2) Orts-ID des eigenen Orts herausfinden - in AccuWeather nach dem eigenen Ort suchen. Die Nummer am Ende der URl ist die Orts-ID. Oder man nutzt die entsprechende API
Hier z.B. 178087 für Berlin:
https://www.accuweather.com/de/de/berli ... ast/178087
Code: Alles auswählen
!-=== Hier anpassen ===
string OrtsID = "123456"; !- Hier ID für den Ort eintragen
string APIKey = "AAAAAAABBBBBBBBBBCCCCCCCCCDDDDDD"; !- Hier API-Key eintragen
string CUXD_Device = "CUxD.CUX2801001:1"; !- Hier CUxD-Device konfigurieren Es kann auch nicht schaden sich den Timeout für den genutzten CUxD-Kanal anzusehen (Eigenschaft EXEC_TIMEOUT in den Geräteeinstellungen - 1 Minute maximal. Wenn der Server bis dahin keine Antwort geliefert hat, kommt auch keine mehr)
3) Das Skript ruft die 12h Vorhersage ab. Ein Aufruf alle 12 Stunden wäre daher sinnvoll. Man hat 50 freie Abrufe in 24 Stunden. Wird das überschritten, gibt es keine Daten... Ändert man in den Parametern den Wert "Stunden" auf 1, dann kann man mit einem stündlichen Abruf die Daten für die jeweils nächste Stunde erhalten. Häufigere Abrufe sind allerdings recht sinnfrei! Wohlgemerkt es handelt sich um Vorhersagen, also keine aktuellen Messdaten. Dafür gibt es bei AccuWeather eine andere API, die prinzipiell mit diesem Programm auch nutzbar wäre, wenn man die URL anpasst und ggf. die Tags. Aber die 50 Abrufe pro Tag bleiben das Limit beim kostenlosen Zugang.
4) Dieses Skript einfügen und im Deklarationsteil sorgfältig anpassen.Insbesondere sind wahlweise die im Skript unter string NameSVavg0 und folgende genannten Systemvariablen anzulegen oder man trägt dort Namen bereits existierender SV ein. Existiert eine SV nicht, passiert nichts weiter, diese wird einfach ignoriert. Braucht man einen Wert nicht, dann kann man den Eintrag für die SV löschen - aber Achtung nicht das Komma löschen!
Nicht vergessen vorher die Systemvariablen anzulegen, die die Daten aufnehmen sollen. Die Systemvariablen müssen vom Typ Zahl sein (Ausnahme ist weiter unten beschrieben) und einen ausreichend großen Wertebereich haben. Der Name der SV's ist frei wählbar; sollte sicherheitshalber einmalig sein (also nicht identisch mit Programm, Gerät oder Kanal-Namen) und wird dann im Deklarationsteil des Skripts in die Listen NameSVavg0, etc. eingetragen. Vorschlag für typische Daten:
- Temperatur -50 - 50 (°C)
- Luftfeuchte / Bewölkungsgrad 0 - 100 (%)
- Niederschlag 0 - 1000 (mm)
- Windgeschwindigkeit 0 - 300 (km/h)
Code: Alles auswählen
!-=== Hier anpassen ===
integer AnzahlTags = 7; !-Anzahl der eingetragenen XML-Tags
string xmlTagStart = 'Temperature,RealFeelTemperature,RelativeHumidity,CloudCover,TotalLiquid,EpochDateTime,IconPhrase'; !-XML-Start-Tag
string xmlTagEnd = 'RealFeelTemperature,WetBulbTemperature,IndoorRelativeHumidity,MobileLink,Rain,WeatherIcon,Precipitation'; !-XML-End-Tag
string xmlWertStart = 'Value,Value,:,:,Value,:,:'; !-Suchstring vor dem Wert
string xmlWertEnd = 'Unit,Unit,",",Unit,",Has'; !-Suchstring nach dem Wert
string xmlWertStartOffset = "7,7,1,1,7,1,2"; !-Länge Wert-Suchstring + Anzahl Zeichen bis zum Wert
string xmlWertEndOffset = "9,9,2,2,9,2,5"; !-StartOffset + Anzahl Zeichen zwischen Zahl und Ende-String
string NameSVavg0 = "Forecast_Temp_AVG,FC_feel_AVG,Forecast_Feuchte_AVG,FC_Wolken_AVG,FC_Regen_gesamt,,FC_Text_Phrase"; !- Namen der Systemvariablen fuer Durchschnitt aktueller Tag
string NameSVmin0 = "FC_Temp_min,FC_feel_min,FC_Feuchte_min,FC_Wolken_min,FC_Regen_min,FC-Timestamp-von,"; !- Namen der Systemvariablen fuer min-Wert
string NameSVmax0 = "FC_Temp_max,FC_feel_max,FC_Feuchte_max,FC_Wolken_max,FC_Regen_max,FC-Timestamp-bis,"; !- Namen der Systemvariablen fuer max-Wert
integer RegenFlag = 4; !- Position der Regendaten (ab 0 zählen) zur Ausgabe der Gesamtmenge - auf 999 setzen, wenn stattdessen der Tagesdurchschnitt gewünscht ist
integer Stunden = 12; !- Anzahl der Stunden, die ausgewertet werden (min 1 / max 12)
boolean SAVE = true; !- in SV speichern: auf false für Testbetrieb, sonst true2) xmlTagStart und xmlTagEnd: der Text, der den jeweiligen Wert im JSON einrahmt (kann man sich im Browser ansehen)
3) xmlWertStart und xmlWertEnd: Texte vor und hinter dem gesuchten Wert. Man kann - wie bei xmlWertEnd gezeigt auch nach " suchen, muss den String dann aber vorne und hinten mit ' statt wie üblich mit " einrahmen!
4) xmlWertStartOffset und xmlWertEndOffset: entsprechend anpassen, Erklärung im Quelltext
Woher weiß man, was man unter xmlTagStart oder xmlWertEnd eintragen muss? Einfach nach diesem Schema vorgehen:
Hier beispielsweise die Ausgabe der API. Anhand dieses Aufbaus kann man die Parameter für weitere Werte anpassen. Erweitert man die Parameter, dann muss man beachten, das der Suchstring möglichst eindeutig ist! Will man Rain auswerten, dann darf man nicht nur nach Rain suchen, da dann das vorherige RainProbability gefunden wird. Also dann nach Rain" (mit ") suchen. Hat man den gesuchten Wert sauber durch einen Suchbegriff vorher und nachher definiert, dann muss man nur noch beachten, das die Suchbegriffe für xmlWertStart und xmlWertEnd innerhalb dieses eingegrenzten Bereichs eindeutig sind. Der End-Begriff wird immer NACH dem Vorkommen des Start-Begriff gesucht. Wichtig: setzt man ein " als Suchbegriff ein, muss die gesamte Werteliste in ' (Hochkomma) statt " (Anführungszeichen) gesetzt werden, wie bei xmlWertEnd gezeigt!
Code: Alles auswählen
[
{
"DateTime": "2020-06-15T15:00:00+02:00",
"EpochDateTime": 1592226000,
"WeatherIcon": 6,
"IconPhrase": "Stark bewölkt",
"HasPrecipitation": false,
"IsDaylight": true,
"Temperature": {
"Value": 22.7,
"Unit": "C",
"UnitType": 17
},
"RealFeelTemperature": {
"Value": 23.9,
"Unit": "C",
"UnitType": 17
},
"WetBulbTemperature": {
"Value": 15.5,
"Unit": "C",
"UnitType": 17
},
"DewPoint": {
"Value": 10.7,
"Unit": "C",
"UnitType": 17
},
"Wind": {
"Speed": {
"Value": 11.1,
"Unit": "km/h",
"UnitType": 7
},
"Direction": {
"Degrees": 288,
"Localized": "WNW",
"English": "WNW"
}
},
"WindGust": {
"Speed": {
"Value": 16.7,
"Unit": "km/h",
"UnitType": 7
}
},
"RelativeHumidity": 47,
"IndoorRelativeHumidity": 47,
"Visibility": {
"Value": 16.1,
"Unit": "km",
"UnitType": 6
},
"Ceiling": {
"Value": 4359,
"Unit": "m",
"UnitType": 5
},
"UVIndex": 3,
"UVIndexText": "Mittel",
"PrecipitationProbability": 34,
"RainProbability": 34,
"SnowProbability": 0,
"IceProbability": 0,
"TotalLiquid": {
"Value": 0,
"Unit": "mm",
"UnitType": 3
},
"Rain": {
"Value": 0,
"Unit": "mm",
"UnitType": 3
},
"Snow": {
"Value": 0,
"Unit": "cm",
"UnitType": 4
},
"Ice": {
"Value": 0,
"Unit": "mm",
"UnitType": 3
},
"CloudCover": 80,
"MobileLink": "http://m.accuweather.com/de/de/sterkrade/46145/hourly-weather-forecast/170293?day=1&hbhhour=15&unit=c",
"Link": "http://www.accuweather.com/de/de/sterkrade/46145/hourly-weather-forecast/170293?day=1&hbhhour=15&unit=c"
},
z.B.
string NameSVavg0 = ",,,,,";
würde keinerlei Durchschnittswerte abspeichern
string NameSVmax0 = "Forecast_Temp,,Forecast_Feuchte,,,";
speichert Maximalwerte für Temperatur und Feuchtigkeit in den SVs Forecast_Temp und Forecast_Feuchte - und sonst nichts
EDIT: Die V1.3 kann nun auch mit Systemvariablen des Typs String umgehen. Damit ist es nun prinzipiell möglich auch Text abzufragen. ABER: da man aus Texten schlecht einen Mittelwert oder min/max ermitteln kann.... funktioniert das nur mit den Variablennamen, die unter NameSVavg0 eingetragen sind. Gespeichert werden alle ausgelesenen Texte in einer Tabulator (Trennzeichen kann man anpassen, siehe Variable Trenner im Deklarationsteil) getrennten Liste, die man z.B. mit foreach weiter verarbeiten kann. Ich habe es hier im Beispiel mal mit "IconPhrase" gezeigt. Dafür muss eine Systemvariable "FC_Text_Phrase" mit dem Typ Zeichenkette angelegt sein. Und fragt man nun 12 Stunden ab, bekommt man die IconPhrasen der 12 Stunden angezeigt.
6) RegenFlag: Position der Regendaten in der Auflistung. Dabei startet die Zählung mit 0. Will man statt Tages-Gesamtmenge doch den Durchschnitt, oder wertet gar keinen Regen aus, dann trägt man hier 999 ein.
7) Stunden: Anzahl der Stunden, die ausgewertet werden. Die API liefert max. 12, größere Zahlen führen zu nichts. Weniger als 1 auch nicht. Will man z.B. nur die Daten der nächsten 3 Stunden wissen, trägt man dort 3 ein.
8 ) SAVE: dient zum Debugging. Insbesondere wenn man in seinen Programmen auf Änderungen der beschriebenen SV's reagiert, kann es ganz hilfreich sein, das während der Testphase nicht ständig irgendwelche Dinge triggern. Trägt man bei SAVE false ein, dann kann man unter "Skript testen" alle Debuggingausgaben sehen, ohne das die SV geändert werden! Dazu kann ich auch nur dringend beim Anpassen von Parametern raten, das ganze erst einmal im "Skript testen" Fenster laufen zu lassen, damit man den Erfolg der Maßnahmen überprüfen kann. War der Test erfolgreich, endet die Debugging-Ausgabe mit:
Code: Alles auswählen
*Temperature* avg/min/max:19.7/17.1/23.4
*RealFeelTemperature* avg/min/max:17.3/14.4/22.0
*RelativeHumidity* avg/min/max:79.7/61.0/93.0
*CloudCover* avg/min/max:92.9/81.0/94.0
*TotalLiquid* avg/min/max:10.7/0.0/1.8
*EpochDateTime* avg/min/max:1595716200.0/1595696400.0/1595736000.0
*IconPhrase* avg/min/max:Mostly cloudy/3000000000.0/-1000.0
Bei Fragen fragen. ABER - ich beantworte keine "geht bei mir nicht" Beiträge. Möglichst viel Input liefern. Läuft die Originalversion? Systemvariablen angelegt? Screenshot! URL im Browser funktioniert? WAS wurde geändert? Als CODE in den Beitrag kopieren! Wie sieht die Ausgabe aus? WAS ist der Fehler: Also was für eine Ausgabe wird erwartet? Welche Ausgabe (STDOUT) erhält man, wenn man es unter "Skript testen" laufen lässt? Als CODE in den Beitrag kopieren!
CODE - was ist das?
- CODE.JPG (15.58 KiB) 685 mal betrachtet
Code: Alles auswählen
!- aktuelle 12h-Wettervorhersage V1.3 AccuWeather universell (MichaelN 25.07.2020)
!- V1.3 verarbeitet auch Stringwerte in den avg-Variablen
!- benötigte Systemvariablen anlegen: siehe Inhalt von NameSVxxx0
!-=== Hier anpassen ===
string OrtsID = "123456"; !- Hier ID für den Ort eintragen
string APIKey = "AAAAAAABBBBBBBBBBCCCCCCCCCDDDDDD"; !- Hier API-Key eintragen
string CUXD_Device = "CUxD.CUX2801001:1"; !- Hier CUxD-Device konfigurieren
!-=== Hier anpassen ===
integer AnzahlTags = 7; !-Anzahl der eingetragenen XML-Tags
string xmlTagStart = 'Temperature,RealFeelTemperature,RelativeHumidity,CloudCover,TotalLiquid,EpochDateTime,IconPhrase'; !-XML-Start-Tag
string xmlTagEnd = 'RealFeelTemperature,WetBulbTemperature,IndoorRelativeHumidity,MobileLink,Rain,WeatherIcon,Precipitation'; !-XML-End-Tag
string xmlWertStart = 'Value,Value,:,:,Value,:,:'; !-Suchstring vor dem Wert
string xmlWertEnd = 'Unit,Unit,",",Unit,",Has'; !-Suchstring nach dem Wert
string xmlWertStartOffset = "7,7,1,1,7,1,2"; !-Länge Wert-Suchstring + Anzahl Zeichen bis zum Wert
string xmlWertEndOffset = "9,9,2,2,9,2,5"; !-StartOffset + Anzahl Zeichen zwischen Zahl und Ende-String
string NameSVavg0 = "Forecast_Temp_AVG,FC_feel_AVG,Forecast_Feuchte_AVG,FC_Wolken_AVG,FC_Regen_gesamt,,FC_Text_Phrase"; !- Namen der Systemvariablen fuer Durchschnitt aktueller Tag
string NameSVmin0 = "FC_Temp_min,FC_feel_min,FC_Feuchte_min,FC_Wolken_min,FC_Regen_min,FC-Timestamp-von,"; !- Namen der Systemvariablen fuer min-Wert
string NameSVmax0 = "FC_Temp_max,FC_feel_max,FC_Feuchte_max,FC_Wolken_max,FC_Regen_max,FC-Timestamp-bis,"; !- Namen der Systemvariablen fuer max-Wert
integer RegenFlag = 4; !- Position der Regendaten (ab 0 zählen) zur Ausgabe der Gesamtmenge - auf 999 setzen, wenn stattdessen der Tagesdurchschnitt gewünscht ist
integer Stunden = 12; !- Anzahl der Stunden, die ausgewertet werden (min 1 / max 12)
boolean SAVE = true; !- in SV speichern: auf false für Testbetrieb, sonst true
!- === ab hier nichts mehr anpassen ===
!- Suchstrings und Offset-Werte zum extrahieren der Zeit
string xmlTimeStart = "EpochDateTime";
integer xmlSkip = 100;
!- XML Accuweather
string recXML;
string func = "wget -q -O - 'http://dataservice.accuweather.com/forecasts/v1/hourly/12hour/"#OrtsID#"?apikey="#APIKey#"&details=true&metric=true'";
!- Arbeitsvariablen
string wert1;
string wert2;
time zeit;
integer counter; !- Sicherheitszaehler gegen Endlosschleife
integer StartPos;
integer EndPos;
integer index;
var Wert_avg;
var Wert_min;
var Wert_max;
var Wert_tmp;
object SV;
integer SVTyp = 4; !- V1.3
string Trenner = "\t";
!- Diese Variablen enthalten am Schluss die Ergebnisse
string Day0_avg = "";
!- ENDE Deklarationen und Initialisierungen
!- ******************************************************************************************
!- Abruf der Daten
dom.GetObject(CUXD_Device#".CMD_SETS").State(func);
dom.GetObject(CUXD_Device#".CMD_QUERY_RET").State(1);
recXML = dom.GetObject(CUXD_Device#".CMD_RETS").State();
if(!recXML)
{
(dom.GetObject(ID_DATAPOINTS)).Get(CUXD_Device#".CMD_EXEC").State("logger -t script -p user.debug [MichaelN Script AccuWeather V1.2: keine Antwort vom Wetter-Server!]");
WriteLine("MichaelN Script AccuWeather V1.2: keine Antwort vom Wetter-Server!");
quit;
}
!- *** DEBUG recXML = dom.GetObject (ID_SYSTEM_VARIABLES).Get ("xxTest").State();
!- *** DEBUG dom.GetObject (ID_SYSTEM_VARIABLES).Get ("xxTest").State(recXML);
xmlSkip = recXML.Find(xmlTimeStart); !- ersten Block beschneiden
recXML = recXML.Substr(xmlSkip);
WriteLine(recXML);
!- Werte auslesen
counter = 0;
index = 0;
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",0));
while ( (StartPos>=0) && (counter<100) ){
if (counter < Stunden) {
index = 0;
while ( index < AnzahlTags ) {
StartPos = recXML.Find(xmlTagStart.StrValueByIndex(",",index));
EndPos = recXML.Substr(StartPos).Find(xmlTagEnd.StrValueByIndex(",",index));
if ( EndPos == -1 )
{
EndPos = 5;
WriteLine("DEBUG Z96: EndPos nicht gefunden!");
}
EndPos = EndPos + StartPos;
wert2 = recXML.Substr(StartPos, EndPos-StartPos); !- nur das relevante Tag
WriteLine("DEBUG TAG: "#wert2);
StartPos = wert2.Find(xmlWertStart.StrValueByIndex(",",index));
EndPos = wert2.Substr(StartPos).Find(xmlWertEnd.StrValueByIndex(",",index));
if ( EndPos == -1 )
{
EndPos = 5;
WriteLine("DEBUG Z106: EndPos nicht gefunden!");
}
EndPos = EndPos + StartPos;
wert2 = wert2.Substr(StartPos+xmlWertStartOffset.StrValueByIndex(",",index).ToInteger(),(EndPos-StartPos)-xmlWertEndOffset.StrValueByIndex(",",index).ToInteger());
WriteLine("DEBUG WERT: "#wert2#" --- Start:"#StartPos#" --- End:"#EndPos);
Day0_avg = Day0_avg # wert2 # ","; !- V1.3
!- *** DEBUG
WriteLine("c/i/w2:"#counter#"/"#index#"/"#wert2);
index = index + 1;
}
}
StartPos = recXML.Find(xmlTimeStart);
xmlSkip = StartPos+xmlTimeStart.Length(); !- abgearbeiteten Block ausschneiden
recXML = recXML.Substr(xmlSkip);
StartPos = recXML.Find(xmlTimeStart);
if ( StartPos > -1 ) { recXML = recXML.Substr(StartPos); }
!- *** DEBUG
!- WriteLine("DEBUG SKIP: c"#counter#" --- Start:"#StartPos#" --- "#recXML);
counter = counter + 1;
}
!- Werte aus Ergebnisliste fischen und wieder richtig zuordnen
counter = 0;
wert1 = "";
while ( counter < AnzahlTags ) {
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVavg0.StrValueByIndex(",",counter)); !- V1.3
if ( SV ) { SVTyp = SV.ValueType(); } else { SVTyp = 4; }
index = AnzahlTags;
Wert_avg = 0.0;
Wert_min = 3000000000.0;
Wert_max = -1000.0;
EndPos = 0;
foreach(wert2,Day0_avg.Split(",")) {
if ( (index % AnzahlTags) == counter ) {
!- jeden x. Eintrag auslesen
if ( SVTyp == 4 ) {
!- SV Zahl (V1.3)
Wert_tmp = wert2.ToFloat();
Wert_avg = Wert_avg + Wert_tmp;
EndPos = EndPos + 1;
Wert_min = Wert_min.Min(Wert_tmp);
Wert_max = Wert_max.Max(Wert_tmp);
} elseif ( SVTyp == 20 ) {
!- SV String
if ( Wert_avg.VarType() == 4 )
{ Wert_avg = Wert_avg # Trenner # wert2; } else
{ Wert_avg = wert2; }
} else {
!- SV keine Zahl, kein String, keine Ergebnisse
Wert_avg = 0;
}
!- *** DEBUG
WriteLine("c/i/EP/w:"#counter#"/"#index#"/"#EndPos#"/"#wert2);
}
index = index + 1;
}
!- Durchschnitt berechnen
if ( (RegenFlag <> counter) && ( SVTyp == 4 ) ) {
Wert_avg = Wert_avg/EndPos; }
!- Werte in die SV schieben
!- *** DEBUG
WriteLine("*** DEBUG Werte für SV ***");
WriteLine("--AVG--"#NameSVavg0.StrValueByIndex(",",counter)#": "#Wert_avg);
WriteLine("--MIN--"#NameSVmin0.StrValueByIndex(",",counter)#": "#Wert_min);
WriteLine("--MAX--"#NameSVmax0.StrValueByIndex(",",counter)#": "#Wert_max);
if ( SV && SAVE ) {SV.State(Wert_avg);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmin0.StrValueByIndex(",",counter));
if ( SV && SAVE ) {SV.State(Wert_min);}
SV = dom.GetObject(ID_SYSTEM_VARIABLES).Get(NameSVmax0.StrValueByIndex(",",counter));
if ( SV && SAVE ) {SV.State(Wert_max);}
!- *** DEBUG
wert1 = wert1 #"*"# xmlTagStart.StrValueByIndex(",",counter) #"* avg/min/max:"# Wert_avg.ToString(1) #"/"# Wert_min.ToString(1) #"/"# Wert_max.ToString(1) # "\n";
counter = counter + 1;
}
!- *** DEBUG
WriteLine(wert1);
WriteLine("===ENDE===");
