|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
各位老师好
先看一段代码
Sub b()
Dim jsstr As String
Dim age As String
Set scobj = CreateObject("msscriptcontrol.scriptcontrol")
'vb搞个字符串要加n个引号,真是烦人
jsstr = "{""系别"":""历史系"",""班级"":""一班""," & _
"""学员"":[{""姓名"":""张三"",""年龄"":25,""性别"":""男""}," & _
"{""姓名"":""李四"",""年龄"":20,""性别"":""男""}," & _
"{""姓名"":""小明"",""年龄"":23,""性别"":""女""}" & _
"]" & _
"}"
'前期绑定方便使用智能提示
scobj.Language = "JavaScript"
'往脚本里添加代码,参数是字符串
scobj.AddCode ("var query = " & jsstr)
age = scobj.Eval("query.学员[2].年龄")
MsgBox "历史系一班的第3个学员的年龄是" & age
End Sub
在成员只有几个的时候,以上的的代码,还算可以,但是当成员达到上万个,甚至更多的时候,再去用这种代码解析的时候,我的电脑会死机,
请问如果出现大量数据,比如上万条数据的时候,用什么方法解析更合理,谢谢
|
|