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点虐 字符串截取

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

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

vb点虐 如何取出多行字符串中的指定的一行

第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：

dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量

textbox1.text=a ‘赋值

message.show(textbox1.lines(2).tostring) ‘显示第三行内容。

第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。

分享文章：vbnet字符串提取 vb获取字符串长度
分享网址：http://scyanting.com/article/ddggpsh.html