用正則表達式啊
成都創(chuàng)新互聯(lián)公司2013年成立,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務公司,擁有項目網(wǎng)站建設、網(wǎng)站制作網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元建陽做網(wǎng)站,已為上家服務,為建陽各地企業(yè)和個人服務,聯(lián)系電話:18980820575
如果是在webbrowser中,那更簡單了,直接有函數(shù)的可以提取的
但是,你那個TD沒有ID,沒有Name,所以可以用以下方法:
Dim straaa = WebBrowser1.Document.GetElementsByTagName("td")
straaa(num).InnerText 'num是所有td的序號
{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}這是個JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務。也可以利用第三方工具比如:Newtonsoft.Json.dll等,來完成任務。
如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具,網(wǎng)上有大量代碼,或參閱微軟在線幫助。這里就不貼了。
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
上面的代碼你試一下,可以根據(jù)加號來提取出每一個數(shù)字,這就是你所要求的核心代碼,其余的自己琢磨,呵呵!
可以如下截取056
Private Sub Command1_Click()
a = "123.45056"
Me.Caption = Mid(a, InStr(a, "056"), 3)
End Sub
Dim str0 As String, idx As Long, str1 As String, str2 As String
str0 = "122012312}R4561_456}7894321}1234123123}"
idx = str0.IndexOf("}")
Do While idx = 0
str1 = str0.Substring(0, idx)
str2 = str0.Substring(idx + 1)
'在文本框中添加顯示str1、str2,代碼略
str0 = str2
idx = str0.IndexOf("}")
Loop
分享文章:vbnet截取字符串 vb截取指定位置字符串
分享URL:http://chinadenli.net/article34/hgocpe.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供標簽優(yōu)化、商城網(wǎng)站、軟件開發(fā)、移動網(wǎng)站建設、全網(wǎng)營銷推廣、ChatGPT
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)