這種情況不建議使用正則做匹配,而且從你貼出來的這一小部分代碼里也看不出什么規律。
創新互聯專注于會昌企業網站建設,自適應網站建設,成都做商城網站。會昌網站建設公司,為會昌等地區提供建站服務。全流程按需網站設計,專業設計,全程項目跟蹤,創新互聯專業和態度為您提供的服務
建議使用 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。有關示例,請參見如何:將字符串與模式相匹配。
網站題目:vb.net匹配字符串,vb中字符串拼接
本文鏈接:http://m.newbst.com/article8/hseiip.html
成都網站建設公司_創新互聯,為您提供建站公司、網站設計、虛擬主機、網頁設計公司、網站制作、用戶體驗
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯