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

 功能:提取QQ号码

控件:Button

代码:

1. Public Class Form1
3.     Private Function QQ(ByVal Adress As String) As Object
4.         Dim Cut_1() As String
5.         Dim Cut_2() As String
6.         Dim Cut_3() As String
7.         Dim CutLast() As String
8.         Cut_1 = Split(Adress, Chr(10))
9.         ReDim CutLast(Cut_1.Length - 1)
10.         For i = 0 To Cut_1.Length - 1
11.             Cut_2 = Split(Cut_1(i), "http://")
12.             Cut_3 = Split(Cut_2(1), ".qzone.qq.com")
13.             CutLast(i) = Cut_3(0)
14.         Next
15.         Return CutLast
16.     End Function
18.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
19.         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"
20.         Dim Result() As String = QQ(Adress)
21.         MsgBox(Adress)
22.         For i = 0 To Result.Length - 1
23.             MsgBox(Result(i))
24.         Next
25.     End Sub
26. End Class

相关文章:

链接1   

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

链接2

正则表达式之道