正則表達(dá)式:“第\S{1,3}次”
創(chuàng)新互聯(lián)建站是一家企業(yè)級云計(jì)算解決方案提供商,超15年IDC數(shù)據(jù)中心運(yùn)營經(jīng)驗(yàn)。主營GPU顯卡服務(wù)器,站群服務(wù)器,西部信息服務(wù)器租用,海外高防服務(wù)器,機(jī)柜大帶寬租用·托管,動態(tài)撥號VPS,海外云手機(jī),海外云服務(wù)器,海外服務(wù)器租用托管等。
1-3表示第和次之間可能存在1-3個字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的內(nèi)容第一次第三次第十四次第七十七次替換為", "第\S{1,3}次")
MsgBox(i.value())
Next
簡單點(diǎn)寫。
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有兩種屬性可以顯示內(nèi)容:分別是text和lines~~
text屬性是對于單行,不需換行的~~
lines屬性是對于多行的,他是一個數(shù)組~~
對于text屬性可以使用以下代碼:
Dim
A
As
Integer
A
=
InStr(RichTextBox1.Text,
"查找字符")
變量A就是字符起始位置
lines屬性是一個數(shù)組可以用循環(huán)每行比對