扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
在VB中是这样的，没学过VB点虐 ，你变换一下就可以了
专业从事企业网站建设和网站设计服务，包括网站建设、主机域名、虚拟主机、企业邮箱、微信公众号开发、微信支付宝小程序定制开发、app软件定制开发、软件开发、等服务。公司始终通过不懈的努力和以更高的目标来要求自己,在不断完善自身管理模式和提高技术研发能力的同时，大力倡导推行新经济品牌战略，促进互联网事业的发展。
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
substring 就是对一个指定的字符窜进行字符窜截取的方法。
运用的形式差不多如下：
截取后的字符窜 = 指定字符窜.substring（开始截取位置[第一位从0开始],截取长度）
Dim str As String = "dsk_cy"
Dim resultStr As String = str.substring(0,2)'截取最左边的两个字符 即 resultStr = “ds”
Dim reulst As String = str.substring(1,2) '截取从最左边数第二位开始的两个字符 即 result = “sk”
这种情况不建议使用正则做匹配，而且从你贴出来的这一小部分代码里也看不出什么规律。
建议使用 HtmlAgilityPack 或者 NSoup 一类的库，就可以把 HTML 文档变成类似于 jQuery 选择的方式来处理了，容错性和便捷度都更高。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网