vb.net 运用正则表达式 提取以http://开头， 以.qzone.qq.com结尾的中间部分的字符串

Dim mc As MatchCollection = Regex.Matches(yourStr, "(?<=http://)\d+(?=\.qzone\.qq\.com)")

For Each m As Match In mc

    RichTextBox2.Text += m.Value & vbCrLf

Next

Public Class Form1



    Private Function QQ(ByVal Adress As String) As Object

        Dim Cut_1() As String

        Dim Cut_2() As String

        Dim Cut_3() As String

        Dim CutLast() As String

        Cut_1 = Split(Adress, Chr(10))

        ReDim CutLast(Cut_1.Length - 1)

        For i = 0 To Cut_1.Length - 1

            Cut_2 = Split(Cut_1(i), "http://")

            Cut_3 = Split(Cut_2(1), ".qzone.qq.com")

            CutLast(i) = Cut_3(0)

        Next

        Return CutLast

    End Function



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

        Dim Adress As String = "http://147551.qzone.qq.com " & Chr(10) & "http://13454.qzone.qq.com " & Chr(10) & "http://87565451.qzone.qq.com " & Chr(10) & "http://43564.qzone.qq.com " & Chr(10) & "http://345551.qzone.qq.com " & Chr(10) & "http://746768.qzone.qq.com"

        Dim Result() As String = QQ(Adress)

        MsgBox(Adress)

        For i = 0 To Result.Length - 1

            MsgBox(Result(i))

        Next

    End Sub

End Class

Public Class Form1



    Private Function QQ(ByVal Adress As String) As String

        Dim Cut_1() As String

        Dim Cut_2() As String

        Cut_1 = Split(Adress, "http://")

        Cut_2 = Split(Cut_1(1), ".qzone.qq.com")

        Return Cut_2(0)

    End Function



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

        MsgBox(QQ("http://123456789.qzone.qq.com"))

    End Sub

End Class