vb.net中的正则用法

Imports System.Text.RegularExpressions

Public Class frmMain
    Inherits System.Windows.Forms.Form

    Dim oWebClient As New System.Net.WebClient
    Dim bSourceCode() As Byte

 

    Function GetSourceCode(ByVal sUrl As String) As String
        '取得网页的网址并取得文本代码
        bSourceCode = oWebClient.DownloadData(sUrl)
        GetSourceCode = System.Text.Encoding.Default.GetString(bSourceCode)
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strTemp As String
        strTemp = GetSourceCode("网页地址")

        Dim objRegExp As Regex
        Dim objMatch As Match
        Dim objMatchs As MatchCollection
        objMatchs = objRegExp.Matches(strTemp, "http:([/w.]+//?)/S*")
        For Each objMatch In objMatchs
            Debug.WriteLine(objMatch.Value)
        Next

    End Sub

End Class