189 8069 5689
｛“Xm”：“李明”，“Dh”：“123456”，“Nl”：“30”｝这是个JSON串，在序列化后，可以得到值。你可以使用System.Web.Script.Serialization.JavaScriptSerializer类来完成任务。也可以利用第三方工具比如：Newtonsoft.Json.dll等，来完成任务。
霍尔果斯网站建设公司创新互联公司,霍尔果斯网站设计制作，有大型网站制作公司丰富经验。已为霍尔果斯上千提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的霍尔果斯做网站的公司定做！
如何使用System.Web.Script.Serialization.JavaScriptSerializer类或第三方工具，网上有大量代码，或参阅微软在线帮助。这里就不贴了。
你好，截取用mid函数就可以。
比如：a="1234567" 要想截取第5个字5，就写 b=(a,5,1)
函数名称：MID
主要功能：从一个字符串的指定位置开始，截取指定数目的字符。
使用格式：MID(text,start_num,num_chars)
参数说明：text代表一个文本字符串；start_num表示指定的起始位置；num_chars表示要截取的数目。
VB内部采用Unicode编码，在这种编码格式下，任何字符（包括半角的字母、数字、符号以及全角的汉字、符号）都是占用两个字节的。因此，Len("1111徐")的返回值是5，表示5个字符，而LenB("1111徐")的返回值是10，表示占用10个字节。
要想按ANSI编码格式来获取字符串的字节数，必须这样：
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦，虽然返回值是6，但这个数与这个字符串在内存中的实际占用字节数是不相符的哦！
1 已知Long型 直接获取前3字节
Msgbox HAABBCCDD And H00FFFFFF
HAABBCCDD处为你的Long型变量或常量
例如：
Dim a as long:a = H11223344
msgbox "0x11223344在内存中前3个字节为: 0x" hex(a and H00ffffff)
数字高位对应内存高位 因此截16进制下右侧6位。
2.通过复制内存实现（慢很多）：
private declare sub rtlmovememory lib "kernel32" (dst as any,src as any,byval l as long)
使用：
Dim a as long,l as long
l = HAABBCCDD
rtlmovememory a,l,3
msgbox hex(a)
3.如果你要分离4个字节：
最好的办法是用And和除法
B = (Color And HFF)
G = (Color And HFF00) \ H100
R = (Color And HFF0000) \ H10000
A = (Color And HFF000000) \ H1000000
第二的办法是用修改SafeArray数组（对于一次性处理多个Long 则此方法最佳）
第三的办法是CopyMemory到一个结构体，结构体第一个成员即它的第一个字节
4.储存long到结构体：
直接用copymemory（RtlMoveMemory）方法 复制long型变量到4个字节长度的结构体变量，复制大小4字节。