189 8069 5689
正则表达式：“第\S{1,3}次”
创新互联建站是一家企业级云计算解决方案提供商,超15年IDC数据中心运营经验。主营GPU显卡服务器，站群服务器，西部信息服务器租用，海外高防服务器，机柜大带宽租用·托管，动态拨号VPS，海外云手机，海外云服务器，海外服务器租用托管等。
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
richtextbox有两种属性可以显示内容：分别是text和lines～～
text属性是对于单行，不需换行的～～
lines属性是对于多行的，他是一个数组～～
对于text属性可以使用以下代码：
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
变量A就是字符起始位置
lines属性是一个数组可以用循环每行比对