怎么提起指定数据

来源：百度知道 编辑：UC知道 时间：2024/09/13 01:54:37
[{"uid":12458265,"real_name":"\u8521\u52b2\u677e","real_name_unsafe":"\u8521\u52b2\u677e"},{"uid":14139408,"real_name":"\u9648\u67f3\u8c0a","real_name_unsafe":"\u9648\u67f3\u8c0a"}]

比如说我要提取”real_name“后的数据，同时还要把冒号后的双引号去掉，并且把提取的这些数据读入到数组中去，请高手指教
最好有程序段，同时说明的是，我不需要用分割函数split（）来进行求解

首先必须要搜索“"real_name"”出现的位置，这个双引号用Chr$()函数可以取得的，之后向后使用Instr()函数寻找第一个引号和第二个，截取中间的字串就可以了，示例如下，出现错误请见谅：

dim str as string,result as string
dim p1,p2 as long

'取得出现"real_name"的位置
p1=Instr(1,str,chr$(34) & "real_name" & chr$(34))
p1=p1+len("real_name") '向后移动对应的长度
p1=Instr(p1,str,chr$(34)) '找到第一个引号
p2=Instr(p1+1,str,chr$(34))
result =mid$(str,p1,p2-p1)

不用sqlit可以用下面的吗？如果不行用手可以吗?
instr
instrrev
mid
left
right
len