13518219792
这种情况不建议使用正则做匹配，而且从你贴出来的这一小部分代码里也看不出什么规律。
创新互联专注于会昌企业网站建设,自适应网站建设,成都做商城网站。会昌网站建设公司,为会昌等地区提供建站服务。全流程按需网站设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
建议使用 HtmlAgilityPack 或者 NSoup 一类的库，就可以把 HTML 文档变成类似于 jQuery 选择的方式来处理了，容错性和便捷度都更高。
用 Like
% = 任意数量的字符
？= 单个字符
类似简易的正规则比对。
具体可参照MSDN
例：(以下代码可以直接放到程序里执行)
dim str as string
str = "abc123"
if str like "a%" then msgbox "yes"
if str like "%a%2%" then msgbox "yes"
if str like "%3" then msgbox "yes"
if str like "%3?" = false then msgbox "no"
有一个字符串函数：Instr(n,S1,S2)
该函数的功能：从字符串S1的左起第N位开始，向右逐位进行搜索匹配字符串S2，如果找到匹配，就返回一个整数指明匹配的位置，否则就返回0。如果缺省n，就是默认从字符串S1的左起第1位开始，进行搜索匹配字符串S2。
例如1：Instr(1,"abcde","a")，返回1
例如2：Instr(3,"abcde","a")，返回0
例如3：Instr(1,"abcde","c")，返回3
例如4：Instr(1,"abcde","cde")，返回3
例如5：Instr(4,"ab12cd12e12","12")，返回7，这里从字符串"ab12cd12e12"左起第4位开始向右搜索匹配字符串"12"，找到的是中间一个“12”，这个“12”是位于字符串"ab12cd12e12"左起的第7个字符。
而：Instr(1,"ab12cd12e12","12")，返回3
Instr("ab12cd12e12","12")，返回3
简单点写。
Module Program
Sub Main()
Console.WriteLine("Hello World!")
Dim t As String, a() As String, c As Integer
t="/admin/index/login/defasd.php"
a=t.Split("/"c)
c=0
For Each p In a
If c0 Then
Console.WriteLine("/"+p)
End If
c+=1
Next
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
========
Hello World!
/admin
/index
/login
/defasd.php
很简单，用字符串查找函数就可以实现了。
当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase
比如：
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)
这运行段代码，Stu值就是True了。
我觉得这样最简单有效。
#是特殊字符，你可以用 “ if "1#仓库" like "1[#]仓库" then msgbox "True"”试试看。
若要与左方括号 ([)、问号 (?)、数字号 (#) 和星号 (*) 这些特殊字符匹配，必须用方括号将它们括起。右方括号 (]) 不能在组中用来与自身匹配，但它可用在组外作为单个字符。
可以将字符序列 [] 视为零长度字符串 ("")；但不能将其作为括在括号中的字符列表的一部分。如果要检查 string 中的某个位置是包含一组字符还是不包含任何字符，可以使用两次 Like。有关示例，请参见如何：将字符串与模式相匹配。
