纯vba代码解析json格式数据

我是来讨说法的

liucqa 发表于 2019-4-29 15:08
那你改一下代码啊，加个VBA7和Win64条件编译

嗯~~~~~~~~~~

我是来讨说法的

32/64位office通用

liucqa

我是来讨说法的 发表于 2019-4-29 15:34
32/64位office通用

有时间你可以测试一下，你的代码和htmlfile相比起来效率和支持的数据类型哪个更好

vbexcelhome

为了操作浏览器，我也写了一个JSON的类，思路有点不同，不过这个都不是重点，主要是测试解析JSON数据源挺有意思，你也可以去试试，看你的这个类解析JSON需要多长时间、能不能完整解析、会不会出问题。。。
我在论坛找了很多JSON数据，其中网友“onlycxb”的帖子《东方财富网天天练》中有两个比较大的JSON数据，有个JSON数据有1000多kb，
帖子中的第4楼：“ 3.分级基金净值表（方法同开发式基金），JSON数据地址 http://fund.eastmoney.com/Data/F ... ;text=&sort=zdf,desc&page=1,10000000&dt=1425897162484&atfc=
这个有几十kb。
帖子中的第6楼：5.新股申购与中签查询，JSON数据地址 http://datainterface.eastmoney.c ... ;js=var%20rxSJdnPK={pages:(pc),data:[(x)]}&stat=1&rt=0.871455332
这个数据有1000多kb。

你可以去用你的类去解析、测试一下，挺有意思的。

我是来讨说法的

vbexcelhome 发表于 2019-4-29 19:46
为了操作浏览器，我也写了一个JSON的类，思路有点不同，不过这个都不是重点，主要是测试解析JSON数据源挺有 ...

额，你这返回的数据不是json格式的字符串哦
下面这个网址是验证解析json格式数据的，你可以看下
https://www.json.cn

另外多说一句，你那个返回的是json对象，这样是为了前端js方便解析

我这个类的作用是将 json字符串 转换 成 对象

我是来讨说法的

vbexcelhome 发表于 2019-4-29 19:46
为了操作浏览器，我也写了一个JSON的类，思路有点不同，不过这个都不是重点，主要是测试解析JSON数据源挺有 ...

今天又有时间了，你这个没必要自己再写个类，因为返回的是js代码，用js解析起来非常方便，10来行代码就行了

vbexcelhome

我是来讨说法的 发表于 2019-5-15 15:01
今天又有时间了，你这个没必要自己再写个类，因为返回的是js代码，用js解析起来非常方便，10来行代码就行 ...

JS解析挺好的。
不过操作浏览器需要生成JSON数据，所以JS不方便，我就想通过写这个小东西，来熟悉一下。
反正这个JSON类基本完善了，不仅可以生成编码，还可以解析数据，能直接按路径调用数据。下面是我获得歌曲列表的一段代码，简单、方便、清晰。

1.     JSON.ParseJSON jsonCode '解析数据
   
2. 
   
3.     Set arrList = JSON.GetAttributeObject("data\song\list") '获得歌曲数组
   
4.    
   
5.     For Each JSON In arrList.Childs
   
6.    
   
7.         SongInfo.SongName = JSON.GetAttributeValue("songname") '歌曲名字
   
8.         SongInfo.AlbumName = JSON.GetAttributeValue("albumname") '歌曲专辑名字
   
9.         SongInfo.Duration = SecToTime(JSON.GetAttributeValue("interval")) '歌曲时长
   
10.         
    
11.     Next

复制代码

tokido

Dim jsonObject As New JSON
这一句报错 "编译错误:用户定义类型未定义"

我是来讨说法的

tokido 发表于 2019-5-30 09:37
Dim jsonObject As New JSON
这一句报错 "编译错误:用户定义类型未定义"

里面有2个类模块，你为什么不导入？

kimmyyang

不错不错，学习