Det nye script er lagt i dk.binaer
Husk lige at ændre byen til den rigtige. Den er sat til at vise m/sec.
Function Wind
If checkright = "OK" Then
Wind = GetHTMLValue("<!-- insert wind --> ","</TD>", "")
If mph = false then
spos = instrrev(Wind, "at ")+3
chrs = instrrev(Wind, " ") - spos
speed = Mid(wind, spos, chrs)
nspeed = round(speed * 1.609344 * 0.278) --------- Her er tilføjer "*
0.278" hvilket er udregningen fra km/t til m/sec
Wind = replace(wind, speed, nspeed)
Wind = replace(wind, "mph", "m/sek") -------- Her er "km/h" ændret til
"m/sec" Dette kan ændres som man har lyst til
End If
Else
Win = "N/A"
End If
End Function
SonofonoS
"Svend Emil" <svendemil@hotmail.com> skrev i en meddelelse
news:3da0125e$0$18159$edfadb0f@dspool01.news.tele.dk...
> > Det er vel bare at kigge lidt nærmere på scriptet. Der kan du sikkert
> > hurtigt se, hvor den henter vinden. Så er det jo bare at tilføje
> > omregningen... Jeg kan da lige prøve at kigge på det, men det bliver
først
> > lidt senere. Så kan jeg lige sende resultatet.
>
> Det vil jeg blive meget glad for du ! :)
> --
> ---
Svend Emil (o: ---
>
>