重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Form_Load()
创新互联公司主要从事成都网站设计、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务保德,十余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
s = "123456"
n = 3 '从第三个字符
j = 2 '向左截取2个
For i = n To 1 Step -1
l = l + 1
ss = ss Mid(s, i, 1)
ss1 = Mid(s, i, 1) ss1
If l = j Then Exit For
Next
MsgBox ss
msgbox ss1
End Sub
使用InStr函数和InStrRev得到“”的位置,如果有多个“”,计算出相邻两个的位置,再使用Mid函数截取。
PS:多个“”的话,InStr函数和InStrRev这两个函数都要使用。
{“Xm”:“李明”,“Dh”:“123456”,“Nl”:“30”}这是个JSON串,在序列化后,可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如:Newtonsoft.Json.dll等,来完成任务。
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具,网上有大量代码,或参阅微软在线帮助。这里就不贴了。