Scripts

Temperaturen weergeven

Door yoran -14-01-2003 00:00 -9.146 views

als je nog een beetje met php kunt werken kun je ook een script maken waarmee je kunt kiezen waarvan je het weer wilt weten. veel succes ermee! --laatse update-- ik heb in plaats het veranderen van $stadcode een formuliertje gemaakt die dat automatisch doet. :)

Download alle bestanden als ZIP

temperaturen-weergeven

<form action="weer.php" method="post"> 
<select name="code"> 
<option value="">Kies Stad 
<option value="06283">Achterhoek 
<option value="06243">Alkmaar 
<option value="06289">Almelo 
<option value="06266">Almere 
<option value="06250">Ameland 
<option value="06265">Amersfoort 
<option value="06240">Amsterdam 
<option value="06272">Apeldoorn 
<option value="06275">Arnhem 
<option value="06284">Assen 
<option value="06340">Breda 
<option value="06346">Delft 
<option value="06369">Den Bosch 
<option value="06211">Den Haag 
<option value="06235">Den Helder 
<option value="06282">Drenthe ZW 
<option value="06274">Ede 
<option value="w0637">Egmond 
<option value="06370">Eindhoven 
<option value="06287">Emmen 
<option value="06290">Enschede 
<option value="06273">Friese Meren 
<option value="06281">Friesl. ZO 
<option value="06378">Geleen 
<option value="06345">Gouda 
<option value="u0637">Groene Hart 
<option value="06280">Groningen 
<option value="06241">Haarlem 
<option value="06291">Hengelo 
<option value="06270">Leeuwarden 
<option value="06210">Leiden 
<option value="06269">Lelystad 
<option value="06380">Maastricht 
<option value="06279">Meppel 
<option value="06376">Nijmegen 
<option value="06254">Noordwijk 
<option value="a0637">Peel 
<option value="06377">Roermond 
<option value="06344">Rotterdam 
<option value="b6370">Scheveningen 
<option value="06277">Schiermonnikoog 
<option value="06251">Terschelling 
<option value="06229">Texel 
<option value="06350">Tilburg 
<option value="06260">Utrecht 
<option value="b0637">Veluwemeer 
<option value="06262">Veluwe/Mid. 
<option value="06263">Veluwe N. 
<option value="06261">Veluwe Z 
<option value="06242">Vlieland 
<option value="06310">Vlissingen 
<option value="06375">Volkel 
<option value="06276">Wageningen 
<option value="w6240">Zaanstad 
<option value="v0637">Zandvoort 
<option value="a6370">Zeeland 
<option value="u6370">Zuid-Limburg 
<option value="x0637">Zwolle 
</select> 
<input type="submit" name="submit" value="Go!"></form><br> 
<?  
//mede mogelijk gemaakt door WEERONLINE.NL
$stadcode="$code";  
$fd=file("http://www.weeronline.nl/cgi-bin/citytext?WMO=$stadcode&LANG=nl");  
$weer=array();  
for($i=0;$i<count($fd);$i++){  
if(eregi("de verwachting",$fd[$i])){  
  $line=$fd[$i];  
  $start=strpos($line, "de verwachting voor de regio/plaats:");  
  $start+=37;  
  $stop=strpos($line,"</b>");  
  $stop=$stop-$start;  
  $plaats=substr($line,$start,$stop);  
};  
if(eregi("&deg;",$fd[$i])){  
  $line=$fd[$i];  
  $stop=strpos($line, "&deg;");  
  $stop2=strpos($line, "<b>");  
  $stop3=$stop-$stop2-3;  
  $eind=strpos($line, "</b>");  
  $eind=$eind-$stop;  
  $temp=Substr($line, $stop-$stop3, $eind);  
  $weer[]=$temp;  
};  
};  
echo"  
<b>Het weer in: $plaats</b> 
<table border=1> 
<tr> 
    <td></td> 
    <td>vandaag</td> 
    <td>morgen</td> 
    <td>overmorgen</td> 
</tr> 
<tr> 
    <td>Max Temp</td> 
    <td>$weer[0]</td> 
    <td>$weer[1]</td> 
    <td>$weer[2]</td> 
</tr> 
<tr> 
    <td>Min Temp</td> 
    <td>$weer[3]</td> 
    <td>$weer[4]</td> 
    <td>$weer[5]</td> 
</tr> 
</table> 
";?>