Seit kurzem funktioniert der Abruf der Datei bei weather365 nicht mehr. Es gibt immer einen Zugriffsfehler beim Abruf.
Dies kann z.B durch das externe Programm wget behoben werden. Dies gibt es hier
Anstatt dem skript weather15_http-get.vbs ruft ihr die Batchdatei weather15_http-get.bat (StartProgram "e:\my_sps\script\weather15_2_txt.vbs", "", hmiShowMinimized, hmiYes) aus dem WCCF-Projekt auf.
wget legt die heruntergeladene Datei in dem Ordner ab der beim Aufruf aktiv ist. Die Batch müsst ihr euren Gegebenheiten anpassen.
Weiterhin hat sich das Format der heruntergeladenen Datei etwas verändert beim Regenrisiko.
Folgende Anpassung am skript weather15_2_txt.vbs vornehmen
Code:
ersetze
startpos = instr(inzeile,chr(34)&"day1e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+53,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+53,endpos-startpos-54)
outdatei.writeline tag1_niederschlag
end if
durch
startpos = instr(inzeile,chr(34)&"day1e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+1,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+41,endpos-startpos-42)
outdatei.writeline tag1_niederschlag
end if
ersetze
startpos = instr(inzeile,chr(34)&"day2e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+53,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+53,endpos-startpos-54)
outdatei.writeline tag1_niederschlag
end if
durch
startpos = instr(inzeile,chr(34)&"day2e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+1,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+41,endpos-startpos-42)
outdatei.writeline tag1_niederschlag
end if
ersetze
startpos = instr(inzeile,chr(34)&"day3e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+53,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+53,endpos-startpos-54)
outdatei.writeline tag1_niederschlag
end if
durch
startpos = instr(inzeile,chr(34)&"day3e"&chr(34))
if startpos > 0 then
endpos=instr(startpos+1,inzeile,"<")
tag1_niederschlag = mid(inzeile,startpos+41,endpos-startpos-42)
outdatei.writeline tag1_niederschlag
end if
Sonderzeichen ersetzen
Code:
ersetze
tag1_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
durch
tag1_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
tag1_wetter = replace(tag1_wetter,"ö","ö")
tag1_wetter = replace(tag1_wetter,"ä","ä")
ersetze
tag2_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
durch
tag2_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
tag2_wetter = replace(tag2_wetter,"ö","ö")
tag2_wetter = replace(tag2_wetter,"ä","ä")
ersetze
tag2_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
durch
tag3_wetter = mid(inzeile,startpos+15,endpos-startpos-15)
tag3_wetter = replace(tag3_wetter,"ö","ö")
tag3_wetter = replace(tag3_wetter,"ä","ä")
Bookmarks