189 8069 5689
在VB中是这样的，没学过VB.net，你变换一下就可以了
创新互联公司是一家专注于做网站、成都网站建设与策划设计,天峨网站建设哪家好?创新互联公司做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:天峨等地区。天峨做网站价格咨询: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)
'如果想测试是不是可以计算，可以用这一句
'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
用正则表达式啊
如果是在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类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。
第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量
textbox1.text=a ‘赋值
message.show(textbox1.lines(2).tostring) ‘显示第三行内容。
第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。
在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
有问题请追问，满意请采纳！