str123<tr>(?<num>/w+)<tr>str999(?<mail>[/w|/d|/w/d]+@/d+/./w+)798722<
Dim str As String = "str123<tr>main<tr>str999wan168@122.com798722<"
Dim reg As Regex = New Regex(TextBox1.Text)
Dim mt As Match = reg.Match(str)
Response.Write(mt.Groups("mail").Value + "<br>")
Response.Write(mt.Groups("num").Value)
<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>