Imports System.IO Imports System.Net Imports System.Text Imports System.Text.RegularExpressions Imports System
Public Class GetUrl Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents urlTextBox As System.Web.UI.WebControls.TextBox Protected WithEvents scrapeButton As System.Web.UI.WebControls.Button Protected WithEvents TipResult As System.Web.UI.WebControls.Label Protected WithEvents resultLabel As System.Web.UI.WebControls.TextBox
#Region " Web 窗体设计器生成的代码 "
该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 Label1.Text = "请输入一个URL地址:" scrapeButton.Text = "分离Href链接" End Sub Private report As New StringBuilder() Private webPage As String Private countOfMatches As Int32
Public Sub scrapeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) webPage = GrabUrl() Dim myDelegate As New MatchEvaluator(AddressOf MatchHandler)
Dim linksExpression As New Regex( _ "/<a.+?href=[""](?!http/:)(?!mailto/:)(?>foundAnchor>[^"">]+?)[^>]*?/>", _ RegexOptions.Multiline Or RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace)
Dim newWebPage As String = linksExpression.Replace(webPage, myDelegate)
Public Function MatchHandler(ByVal m As Match) As String Dim link As String = m.Groups("foundAnchor").Value Dim rToL As New Regex("^", RegexOptions.Multiline Or RegexOptions.RightToLeft) Dim col, row As Int32 Dim lineBegin As Int32 = rToL.Match(webPage, m.Index).Index
row = rToL.Matches(webPage, m.Index).Count col = m.Index - lineBegin
report.AppendFormat( _ "Link <b>{0}</b>, fixed at row: {1}, col: {2}{3}", _ Server.HtmlEncode(m.Groups(0).Value), _ row, _ col, _ Environment.NewLine _ ) Dim newLink As String If link.StartsWith("/") Then newLink = link.Substring(1) Else newLink = link End If
countOfMatches += 1 Return m.Groups(0).Value.Replace(link, newLink) End Function
Private Function GrabUrl() As String Dim wc As New WebClient() Dim s As Stream = wc.OpenRead(urlTextBox.Text) Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default) GrabUrl = sr.ReadToEnd s.Close() wc.Dispose() End Function