网页数据采集---网页文档解析篇(json/html/xml)

酷似内涵

楼主很厉害，就是看不懂，我觉得网页数据采集还不如用Python。这个类多。好学，

折年一渡

给你一个赞！您的文章对我有很大的帮助！谢谢！

719404338

liu-aguang 发表于 2016-9-27 09:08
B.    对象定义对象o: var o={name: ’张三’,sex: ’男’, age: 20}说明：(1)花括号; (2)键（名）和值之间 ...

老师，我按您的方法把网页文本粘贴到WORD，怎么把"date":1541487600000,"中的1541487600000还原成时间？谢谢。

liu-aguang

719404338 发表于 2018-11-6 16:58
老师，我按您的方法把网页文本粘贴到WORD，怎么把"date":1541487600000,"中的1541487600000还原成时间？ ...

1. Sub test()
   
2.     s = "var str=1541487600000;"
   
3.    
   
4.     s = s & "function getMyDate(str) {"
   
5.     s = s & "var oDate = new Date(str), "
   
6.     s = s & "oYear = oDate.getFullYear(),"
   
7.     s = s & "oMonth = oDate.getMonth()+1,"
   
8.     s = s & "oDay = oDate.getDate(),"
   
9.     s = s & "oHour = oDate.getHours(),"
   
10.     s = s & "oMin = oDate.getMinutes(),"
    
11.     s = s & "oSen = oDate.getSeconds(),"
    
12.     s = s & "oTime = oYear +'-'+ addZero(oMonth) +'-'+ addZero(oDay) +' '+ addZero(oHour) +':'+addZero(oMin) +':'+addZero(oSen);"
    
13.     s = s & "return oTime;}"
    
14.    
    
15.     s = s & "function addZero(num){"
    
16.     s = s & "if(parseInt(num) < 10){"
    
17.     s = s & "num = '0'+num;}"
    
18.     s = s & "return num;}"
    
19.    
    
20.     s = s & "getMyDate(str);"
    
21.    
    
22.     Set oDom = CreateObject("HTMLFILE")
    
23.     Set oWindow = oDom.parentWindow
    
24.     oWindow.execScript
    
25.    
    
26.     MsgBox oWindow.eval(s)
    
27. End Sub
    

复制代码

peter-chen

liu-aguang 发表于 2017-6-7 11:39
Eval写法错误. 应为: eval

http://club.excelhome.net/thread-1446214-1-1.html
WIN7 64位，office2013，以下的VBA执行的时候经常出现“自动化错误”，

但是，当我按调试的时候显示出错在：
shopName = oWindow.eval("$('a[clstag*=""dianpuname2""]').text()")

此时如果我按F5（就是调试状态下按F5）,就可以继续操作。取的结果。
但每次都要这样才可以。

但是在OFFICE2007的机器上就可以成功！
请问是什么原因？谢谢

我也学代码

liu-aguang 发表于 2016-9-28 08:56
二. Json与Json内容解析

1. 什么是Json?

现在登录酷我那个网站，运行到http.send就报错unspecified error，是怎么回事呢老师

我在京东方等你

收藏，666666

3438107102

谢谢楼主，必须顶一下。

busizhishen

感谢分享  非常受教

wds1061

感谢老师系统化的分享！