正则表达式 代码示例与教程链接

 功能:提取QQ号码

控件:Button

代码:

Public Class

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
For i = 0 To
"http://")
".qzone.qq.com")
CutLast(i) = Cut_3(0)
Next
Return
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
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
MsgBox(Adress)
For i = 0 To
MsgBox(Result(i))
Next
End Sub
End Class

相关文章:

链接1   

正则表达式30分钟入门教程

链接2

​​正则表达式之道​​