vb点虐 截取字符函数 vb截取字符串函数

Vb点虐 字符串截取

｛“Xm”：孙毕茄“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三数漏方工具比如：Newtonsoft.Json.dll等，来完成任务。

创新互联公司主营博湖网站建设的网络公司,主营网站建设方案,成都APP应用开发,博湖h5小程序制作搭建,博湖网站营销推广欢迎博湖等地区企业咨询

如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮则察助。这里就不贴了。

vb点虐 怎么提取字符串？

在VB中是这样的，没学过VB点虐 ，你变换一下就可以了

按你说的，用用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点虐 大神,将字符串分割，急！！！！

原字符串里：00.0 R-1 SW_STOP 6-9 之间是不是有空格？

如果是的话

Dim STR1, STR2() As String

Dim arr1 As New ArrayList

STR1 = ":00.00 R-1 Sw_STOP 6-9" '你原来的字符串

STR2 = STR1.Split(" ") ‘按空格符截取

Dim i As Integer

For i = 0 To STR2.Length - 1 Step 1

If STR2(i) "" Then

arr1.Add(STR2(i))

End If

Next

最磨扮后得到的 arr1 就是分割后的字符串集合

如果原字符串咐升没有空格，并且字符串长度固定，截取出来的部分也固定

那么就用 substring函数 一个一个的截取也就试了

如果原字符串长衡游老度也不固定，那么要根据你的截取规则来做。如果上述两个答案不能解决的话还需要更详细的问题