Public Class MainClass
Public Shared Sub Main()
System.Console.WriteLine(StripTags(GetPageHTML("http://www.g.com/")))
End Sub
Public Shared Function StripTags(ByVal HTML As String) As String
Return System.Text.RegularExpressions.Regex.Replace(HTML, "<[^>]*>", "")
End Function
Public Shared Function GetPageHTML(ByVal URL As String) As String
Dim objWC As New System.Net.WebClient()
Return New System.Text.UTF8Encoding().GetString(objWC.DownloadData(URL))
End Function
End Class
|