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

折年一渡 · 发表于 2018-10-15 17:09

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

719404338 · 发表于 2018-11-6 16:58

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

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

liu-aguang · 发表于 2018-11-6 21:18

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

Sub test()
s = "var str=1541487600000;"
s = s & "function getMyDate(str) {"
s = s & "var oDate = new Date(str), "
s = s & "oYear = oDate.getFullYear(),"
s = s & "oMonth = oDate.getMonth()+1,"
s = s & "oDay = oDate.getDate(),"
s = s & "oHour = oDate.getHours(),"
s = s & "oMin = oDate.getMinutes(),"
s = s & "oSen = oDate.getSeconds(),"
s = s & "oTime = oYear +'-'+ addZero(oMonth) +'-'+ addZero(oDay) +' '+ addZero(oHour) +':'+addZero(oMin) +':'+addZero(oSen);"
s = s & "return oTime;}"
s = s & "function addZero(num){"
s = s & "if(parseInt(num) < 10){"
s = s & "num = '0'+num;}"
s = s & "return num;}"
s = s & "getMyDate(str);"
Set oDom = CreateObject("HTMLFILE")
Set oWindow = oDom.parentWindow
oWindow.execScript
MsgBox oWindow.eval(s)
End Sub

复制代码

peter-chen · 发表于 2018-11-21 15:42

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的机器上就可以成功！
请问是什么原因？谢谢

我也学代码 · 发表于 2018-11-28 11:11

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

1. 什么是Json?

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

我在京东方等你 · 发表于 2019-1-6 22:13

收藏，666666

3438107102 · 发表于 2019-1-17 18:35

谢谢楼主，必须顶一下。

busizhishen · 发表于 2019-1-30 21:30

感谢分享非常受教

wds1061 · 发表于 2019-3-14 00:34

感谢老师系统化的分享！

kaaga · 发表于 2019-5-10 16:46

好牛，言简意赅，mark下！！！

		自动登录	找回密码
密码			免费注册

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

评分