Har problem med encodingen på de websidor jag läser in med följande kodsnutt. Vissa websidor måste jag köra encoding.default och vissa encoding.utf8 för att det ska bli korrekt.
När vissa sidor fungerar med encoding.default så får andra sidor skräptecken istället för de svenska tecknen.
När jag kör encoding.utf8 så fungerar dessa "skräpteckens-sidor" medans andra får sina svenska tecken borttagna.
Hur gör man för att gardera sig mot båda fallen?
Function getHttpContent(ByVal sURL As String) As String
Dim result As String = ""
Try
Dim objRequest As HttpWebRequest = System.Net.HttpWebRequest.Create(sURL)
objRequest.Timeout = 4000
Dim encode As Encoding = System.Text.Encoding.Default
Dim sr As New StreamReader(objRequest.GetResponse().GetResponseStream(), encode)
result = sr.ReadToEnd()
sr.Close()
sr = Nothing
objRequest = Nothing
Catch ex As Exception
Return ""
End Try
result = System.Web.HttpUtility.HtmlEncode(result) ' Just in case
Return result
End Function