{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}這是個JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer類來完成任務(wù)。也可以利用第三方工具比如:Newtonsoft.Json.dll等,來完成任務(wù)。
創(chuàng)新互聯(lián)專注于臨西企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),成都做商城網(wǎng)站。臨西網(wǎng)站建設(shè)公司,為臨西等地區(qū)提供建站服務(wù)。全流程按需定制開發(fā),專業(yè)設(shè)計,全程項目跟蹤,創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
如何使用System.Web.Script.Serialization.JavaScriptSerializer類或第三方工具,網(wǎng)上有大量代碼,或參閱微軟在線幫助。這里就不貼了。
在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中是這樣的,沒學過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
有問題請追問,滿意請采納!
本文名稱:vb.net取字符串,VB中字符串
網(wǎng)站地址:http://muchs.cn/article34/hcgsse.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、網(wǎng)站導航、微信公眾號、域名注冊、移動網(wǎng)站建設(shè)、網(wǎng)站設(shè)計公司
聲明:本網(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)