重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用正则表达式啊
成都创新互联公司2013年成立,是专业互联网技术服务公司,拥有项目网站建设、网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元建阳做网站,已为上家服务,为建阳各地企业和个人服务,联系电话:18980820575
如果是在webbrowser中,那更简单了,直接有函数的可以提取的
但是,你那个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类或第三方工具,网上有大量代码,或参阅微软在线帮助。这里就不贴了。
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
上面的代码你试一下,可以根据加号来提取出每一个数字,这就是你所要求的核心代码,其余的自己琢磨,呵呵!
可以如下截取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