在VB中是這樣的,沒(méi)學(xué)過(guò)VB.net,你變換一下就可以了
創(chuàng)新互聯(lián)公司是一家專注于做網(wǎng)站、成都網(wǎng)站建設(shè)與策劃設(shè)計(jì),天峨網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:天峨等地區(qū)。天峨做網(wǎng)站價(jià)格咨詢:13518219792
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)
'如果想測(cè)試是不是可以計(jì)算,可以用這一句
'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
用正則表達(dá)式啊
如果是在webbrowser中,那更簡(jiǎn)單了,直接有函數(shù)的可以提取的
但是,你那個(gè)TD沒(méi)有ID,沒(méi)有Name,所以可以用以下方法:
Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")
straaa(num).InnerText 'num是所有td的序號(hào)
{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}這是個(gè)JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來(lái)完成任務(wù)。也可以利用第三方工具比如:Newtonsoft.Json.dll等,來(lái)完成任務(wù)。
如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具,網(wǎng)上有大量代碼,或參閱微軟在線幫助。這里就不貼了。
第一個(gè)問(wèn)題有個(gè)簡(jiǎn)單的方法,把字符串變量賦值到一個(gè)textbox里面,利用textbox.lines實(shí)現(xiàn)。如:
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定義變量
textbox1.text=a ‘賦值
message.show(textbox1.lines(2).tostring) ‘顯示第三行內(nèi)容。
第二個(gè)問(wèn)題結(jié)合第一個(gè)問(wèn)題,用循環(huán)逐行查找,就可知道字符串第一次出現(xiàn)在哪行。
在VB中是這樣的,沒(méi)學(xué)過(guò)VB.net,你變換一下就可以了
按你說(shuō)的,用用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)
'如果想測(cè)試是不是可以計(jì)算,可以用這一句
'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
有問(wèn)題請(qǐng)追問(wèn),滿意請(qǐng)采納!
本文題目:vb.net字符串提取 VB字符串截取
文章來(lái)源:http://chinadenli.net/article46/dodcheg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)建站、定制網(wǎng)站、網(wǎng)站建設(shè)、App開(kāi)發(fā)、App設(shè)計(jì)、定制開(kāi)發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)