【网页采集教程】【高级篇】第二课-使用VBA解析JSON格式的网页

VBA万岁

liucqa 发表于 2012-11-4 22:11
通过在VBA中使用上面的JS语句，我们可以得到简单的JSON文本数据。
然而，在实际应用中，上述语句会出现许多 ...

不知liucqa大师可否将5楼的第2个例子的完整代码帖出，好让我等测试、学习？

VBA万岁

RockedPanda 发表于 2014-8-6 17:39
"1x2"这种命名在JS中是一个合法属性,但这种属性不能通过"."运算符访问,可以通过"[]"运算符访问.VBA刚开始 ...

学习了，多谢分享！
Mark如附件：
网页采集(高级篇)教程第二课.zip (1.11 MB, 下载次数: 115)

2014-12-16 16:00 上传

点击文件名下载附件

bigestyjoy

你好，我想反馈一个问题：
我用水文工具集的类模块处理以下数据，出现问题。

1. {
   
2.   "total": 393,
   
3.   "data": [
   
4.     {
   
5.       "Hospital": {
   
6.         "ParentId": "a4f9f5b8-733d-4724-979c-a7a3f664e9ed",
   
7.         "Id": "0102",
   
8.         "CreateTime": new Date(
   
9.           1371480749000
   
10.         )
    
11.       },
    
12.       "HospitalEmployeeNo": "0001",
    
13.       "Id": "27563",
    
14.       "CreateTime": new Date(
    
15.         1376064000000
    
16.       ),
    
17.       "CreateUser": "ADMIN",
    
18.       "UpdateTime": new Date(
    
19.         1402286180000
    
20.       ),
    
21.       "UpdateUser": "admin"
    
22.     }
    
23.     ]
    
24. }

复制代码

经琢磨，发现是上述代码中【new Date】部分的问题。水文工具集的类模块缺少处理这类型Value的部分，当它发现“n"字符后，按照“null”处理，忽略了还可能是“new”的情况。
于是自行添加了部分代码（下面行15-19），避免了错误（忽略new语句方法）

1. Private Function parseValue(ByRef str As String, ByRef index As Long)
   
2. 
   
3.     Call skipChar(str, index)
   
4.    
   
5.     Select Case Mid(str, index, 1)
   
6.     Case "{"
   
7.         Set parseValue = parseObject(str, index)
   
8.     Case "["
   
9.         Set parseValue = parseArray(str, index)
   
10.     Case """", "'"
    
11.         parseValue = parseString(str, index)
    
12.     Case "t", "f"
    
13.         parseValue = parseBoolean(str, index)
    
14.     Case "n"
    
15.         If Mid(str, index + 1, 1) = "u" Then
    
16.             parseValue = parseNull(str, index)
    
17.         Else
    
18.             index = index + InStr(Right(str, Len(str) - index + 1), ")")
    
19.         End If
    
20.     Case Else
    
21.         parseValue = parseNumber(str, index)
    
22.     End Select
    
23. 
    
24. End Function

复制代码

liucqa

bigestyjoy 发表于 2015-1-6 16:22
你好，我想反馈一个问题：
我用水文工具集的类模块处理以下数据，出现问题。

你可以给老外发邮件，他会修改他的代码。

水文工具集不是最新版

oceanintergy

不知大神们有没有研究用flex编译出来的swf文件嵌入网页的网页抓取技巧？？
请教

gideon82

正在爲get與post入不了門發愁, 這裏來了抓取網頁的教程, 天助我.

minren118

liucqa 发表于 2015-1-6 17:08
你可以给老外发邮件，他会修改他的代码。

水文工具集不是最新版

老外那个json不会用啊，能否做个实例看看？

goldowl2011

在VBA里面使用JS代码,真不错！！！

comihuang

你好 楼主，
刚才拜读了你的文章十分受用。
我想请教您一个问题，就是如何用JavaScript 对Json的值进行json_decode解码？

比如我用百度翻译API进行翻译，得出一个结果如下JSON：

1. {"from":"en","to":"zh","trans_result":[{"src":"today","dst":"\u4eca\u5929"}]}

复制代码

其中dst的值是today这个单词翻译后的结果，只有 json_decode后才会显示 “今天”。

万分感谢！！

liucqa

comihuang 发表于 2015-10-25 13:46
你好 楼主，
刚才拜读了你的文章十分受用。
我想请教您一个问题，就是如何用JavaScript 对Json的值进行js ...

可以用js解码，也可以自己写代码。

百度 ／U编码