VB可使用Split函数取出问帖所要的斜杠后右侧字符串。
站在用户的角度思考问题，与客户深入沟通，找到聂拉木网站设计与聂拉木网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都网站制作、成都网站设计、外贸营销网站建设、企业官网、英文网站、手机端网站、网站推广、空间域名、网页空间、企业邮箱。业务覆盖聂拉木地区。
Split函数：
描述
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
实现代码如下：
Private Sub Command1_Click()
Dim strsj As String
Dim i As Long
Dim rightStr
strsj = "
rightStr = Split(strsj, "/")
i = UBound(rightStr)
Debug.Print rightStr(i)
End Sub
1、Trim(C)：去掉字符串C两端的空格。
2、Left(C,n)：截取C最左边的n个字符。
3、Right(C,n)：截取C最右边的n个字符。
4、Mid(C,m,n)：截取C中从第m个字符开始的n个字符。
5、Len(C)：返回C包含的字符数，汉字空格都算一个字符。
6、Lcase(C)：将C中的大写字母转化成小写字母。
7、Ucase(C)：将C中的小写字母转化成大写字母。
｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。
Dim str0 As String, idx As Long, str1 As String, str2 As String
str0 = "122012312｝R4561_456}7894321}1234123123}"
idx = str0.IndexOf("}")
Do While idx = 0
str1 = str0.Substring(0, idx)
str2 = str0.Substring(idx + 1)
'在文本框中添加显示str1、str2,代码略
str0 = str2
idx = str0.IndexOf("}")
Loop
使用mid函数 参数1是文本内容 参数2是起始位置 参数3是截取的数量
Private Sub Command1_Click()
MsgBox Mid(Text1.Text, Val(Text2.Text), Val(Text3.Text) - Val(Text2.Text) + 1)
End Sub
你自己的代码问题是 参数3 题目说到第几个字符 你应该是用这个数减去起始位置+1 才是数量
因为不一定从第一个开始
