很简单，用字符串查找函数就可以实现了。\x0d\x0a当在StrB查找到StrA字符串时，返回肯定是非0的数，值就是True，找不到为0或者-1，值就是Flase\x0d\x0a\x0d\x0a比如：\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码，Stu值就是True了。\x0d\x0a我觉得这样最简单有效。
疏附网站建设公司创新互联,疏附网站设计制作，有大型网站制作公司丰富经验。已为疏附成百上千提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的疏附做网站的公司定做！
正则表达式：“第\S{1,3}次”
1-3表示第和次之间可能存在1-3个字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的内容第一次第三次第十四次第七十七次替换为", "第\S{1,3}次")
MsgBox(i.value())
Next
简单点写。
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
