用正則表達式啊
站在用戶的角度思考問題,與客戶深入溝通,找到滑縣網站設計與滑縣網站推廣的解決方案,憑借多年的經驗,讓設計與互聯網技術結合,創造個性化、用戶體驗好的作品,建站類型包括:成都網站建設、成都網站設計、企業官網、英文網站、手機端網站、網站推廣、空間域名、雅安服務器托管、企業郵箱。業務覆蓋滑縣地區。
如果是在webbrowser中,那更簡單了,直接有函數的可以提取的
但是,你那個TD沒有ID,沒有Name,所以可以用以下方法:
Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")
straaa(num).InnerText 'num是所有td的序號
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim result As String = ""
Dim str As String = TextBox1.Text
Dim substr As String
Dim split() As Char = { "+"}
For Each substr In str.Split(split)
result += substr + ControlChars.CrLf
Next
TextBox2.Text = result
End Sub
上面的代碼你試一下,可以根據加號來提取出每一個數字,這就是你所要求的核心代碼,其余的自己琢磨,呵呵!
在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
有問題請追問,滿意請采納!
{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}這是個JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務。也可以利用第三方工具比如:Newtonsoft.Json.dll等,來完成任務。
如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具,網上有大量代碼,或參閱微軟在線幫助。這里就不貼了。
在VB中是這樣的,沒學過VB.net,你變換一下就可以了
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
網頁題目:vb.net提取文本串 vb提取字符串
瀏覽路徑:http://vcdvsql.cn/article14/hpgpde.html
成都網站建設公司_創新互聯,為您提供動態網站、靜態網站、電子商務、App設計、搜索引擎優化、品牌網站設計
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯