vbnet Get HTML title
Private Function GetTitle() As String 'retrieves the <title> from a given Url Dim uri As New Uri(UrlIn) Dim request As HttpWebRequest Dim response As HttpWebResponse Dim Title As String = "" 'returned <title> Dim HTML As String = "" 'html returned from web request Dim TempArray As Array 'array used to strip out the <title> Dim Temp As String = "" Dim DelimiterA() As String = {"<title>"} Dim DelimiterB() As String = {"</title>"} Try If (uri.Scheme = uri.UriSchemeHttp) Then request = HttpWebRequest.Create(uri) request.Method = WebRequestMethods.Http.Get request.Timeout = 60000 '1000ms = 1 second response = request.GetResponse Dim reader As New StreamReader(response.GetResponseStream()) HTML = reader.ReadToEnd response.Close() Else HTML = "" End If If HTML <> "" Then If (InStr(HTML, "<title>") > 0) And (InStr(HTML, "</title>") > 0) Then TempArray = HTML.Split(DelimiterA, StringSplitOptions.None) Temp = TempArray(1) TempArray = Temp.Split(DelimiterB, StringSplitOptions.None) Title = TempArray(0) End If End If Catch ex As Exception Title = "" End Try Return Title End Function
Gets the <title> element from another website - as used on slck.it
Updated: Tuesday 12th October 2010, 19:09am
There are 0 comments
Comments are currently closed.