Hente temperatur fra web

En liten demo på streng behandling av data fra web. Tallet som returneres blir ofte lavt.

  Imports System, System.Net, System.Text.RegularExpressions
    ...
    Function hentTempFraWeb() As Integer
        Dim url As String =  "http://www.yr.no/place/Norway/M%C3%B8re_og_Romsdal/Molde/Molde/"
        'http://met.no/more_og_romsdal/molde.html?steder"
        Dim req As WebRequest = WebRequest.Create(url)
        Dim resp As WebResponse = req.GetResponse()

        Dim inndata As IO.StreamReader = New IO.StreamReader(resp.GetResponseStream())
        Dim innString = inndata.ReadToEnd()

        Dim monster As String = "\d+.deg;"
        Dim minLeter As Regex = New Regex(monster)
        Dim treff As Match
        treff = minLeter.Match(innString)
        Dim funn As String = treff.ToString().Substring(0, 2)
        Return CInt(funn)
    End Function