｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。
十多年的大武口网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整大武口建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“大武口网站设计”,“大武口网站推广”以来，每个客户项目都认真落实执行。
如何使用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
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中的小写字母转化成大写字母。
