正則表達式:“第\S{1,3}次”
成都創(chuàng)新互聯(lián)提供高防物理服務器租用、云服務器、香港服務器、成都服務器托管等
1-3表示第和次之間可能存在1-3個字符。
For Each i In System.Text.RegularExpressions.Regex.Matches("你的內容第一次第三次第十四次第七十七次替換為", "第\S{1,3}次")
MsgBox(i.value())
Next
在VB中是這樣的,沒學過VB.net,你變換一下就可以了
按你說的,用用Left,Right和Mid
Option?Explicit
Private?Sub?Command1_Click()
Dim?Num(2)
Num(0)?=?Val(Left(Label1.Caption,?2))
Num(1)?=?Val(Mid(Label1.Caption,?3,?1))
Num(2)?=?Val(Right(Label1.Caption,?2))
MsgBox?"Num(0)="??Num(0)??vbCrLf??"Num(1)="??Num(1)??vbCrLf??"Num(2)="??Num(2)
'如果想測試是不是可以計算,可以用這一句
'MsgBox?"Num(0)+1="??Num(0)?+?1??vbCrLf??"Num(1)+1="??Num(1)?+?1??vbCrLf??"Num(2)+1="??Num(2)?+?1
End?Sub
Private?Sub?Form_Load()
Label1.Caption?=?"12345"
End?Sub
有問題請追問,滿意請采納!
很簡單,用字符串查找函數(shù)就可以實現(xiàn)了。\x0d\x0a當在StrB查找到StrA字符串時,返回肯定是非0的數(shù),值就是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我覺得這樣最簡單有效。
VB.net里有Split函數(shù)嗎?
我的思路是,先尋找http://字符,然后向后尋找第一個在鏈接中肯定不會出現(xiàn)的字符,比如 ' " ; , 等等,截取中間這段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",發(fā)現(xiàn)在第19個字符處(一定要注意,VB.net第一個字符的索引值下標為0,所以h是第20個字母,搜索所得到的結果就是19)
然后從19向后搜索異常字符( " ' ; , )之類,得到第二個搜索結果,將這兩個結果中間的部分截取就是鏈接啦
簡單點寫。
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
新聞名稱:vb.net尋找字符串 vb 查找字符串
本文URL:http://m.newbst.com/article44/hjheee.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站改版、微信公眾號、關鍵詞優(yōu)化、外貿建站、Google、全網(wǎng)營銷推廣
聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)