纯vba代码解析json格式数据

tokido

我是来讨说法的 发表于 2019-5-30 10:52
里面有2个类模块，你为什么不导入？

额  在附件里啊  没看到。。。

情缘未结

{"errorCode":0,"message":"操作成功","result":{"businessCode":0,"message":"操作成功","data":[{"preDrawTime":"2019-10-26 16:30:00","preDrawIssue":20191026198,"preDrawCode":"03,10,07,08,05,06,01,04,09,02","sumFS":13,"sumBigSamll":0,"sumSingleDouble":0,"firstDT":0,"secondDT":0,"thirdDT":0,"fourthDT":0,"fifthDT":1,"groupCode":1},{"preDrawTime":"2019-10-26  00:15:00","preDrawIssue":20191026003,"preDrawCode":"02,06,08,10,05,04,09,01,07,03","sumFS":8,"sumBigSamll":1,"sumSingleDouble":1,"firstDT":1,"secondDT":1,"thirdDT":0,"fourthDT":0,"fifthDT":0,"groupCode":1},{"preDrawTime":"2019-10-26 00:10:00","preDrawIssue":20191026002,"preDrawCode":"06,07,03,04,08,09,05,02,01,10","sumFS":13,"sumBigSamll":0,"sumSingleDouble":0,"firstDT":1,"secondDT":0,"thirdDT":0,"fourthDT":1,"fifthDT":1,"groupCode":1},{"preDrawTime":"2019-10-26 00:05:00","preDrawIssue":20191026001,"preDrawCode":"01,08,07,10,06,03,04,05,02,09","sumFS":9,"sumBigSamll":1,"sumSingleDouble":0,"firstDT":1,"secondDT":0,"thirdDT":0,"fourthDT":0,"fifthDT":0,"groupCode":1}]}}这个怎么高啊 大神

用心修炼

这个厉害了啊，学习了

ailvlv

太强大了，学习了

cy_ttcm

请问 ，这种格式的怎么取

{"status":"ok",
"environment":{
"environmentId":9783,"name":"开发环境","projectId":5590,
"applications":[
{"applicationId":36925,"name":"组织长","version":15,"updateDate":1588583319000},
{"applicationId":37015,"name":"固定资产","version":21,"updateDate":1588576103000},
{"applicationId":37510,"name":"营业","version":11,"updateDate":1588571961000},
{"applicationId":49605,"name":"一栏","version":1,"updateDate":1587953829000}
]
}
}

这种格式的怎么取
组织长 15 1588583319000
固定资产 21 1588576103000
这样的

netsee

挺好用的

zerer

测了一下那个cStringBuilder类。按代码开头的例子，运行1万次字符串连接，VBA用了约0.1秒，这个类用了约5.7秒。我的office是365版。application.version = 16.0 , 64位。完全不像作者说的VB要用34秒，他的用了0.34秒。咋回事啊，就算微软进步了。作者的程序不该变慢啊。帮我看看哪里有问题
Private Sub TestRouting()
    Dim s$, s1$: s1 = "http://vbaccelerator.com/"
    t = Timer()
    For i = 1 To 10000
        s = s & s1
    Next
    MsgBox Timer() - t
    Debug.Print Len(s)  '250000
End Sub
Private Sub TestRouting2()
    Dim s As New cStringBuilder
    s.TheString = ""
    s.ChunkSize = 300000
   
    Dim s1$: s1 = "http://vbaccelerator.com/"
    t = Timer()
    For i = 1 To 10000
        s.Append s1
    Next
    MsgBox Timer() - t
    Debug.Print Len(s.toString)  '250000
End Sub

chenychen2011

zerer 发表于 2020-6-24 16:30
测了一下那个cStringBuilder类。按代码开头的例子，运行1万次字符串连接，VBA用了约0.1秒，这个类用了约5.7 ...

s.ChunkSize = 300000
设置的值太小了，试试设置为“1638400”，我的电脑用这个类约0.0078秒

myfaint007

太强大了，学习了

yanglinzi

留个脚印。。