解析网页源码，获得所需数据。

kings12333 · 发表于 2017-11-3 20:23

Kaohsing 发表于 2017-11-3 16:17
最后说说CreateObject("htmlfile")解析数据引用w3school的语录：HTML DOM 定义了多种查找元素的方法，除 ...

大哥，同样地方的网页，我看你怎么取，这种套了又套。。。我看不懂了。。网址如下：http://www.yuncaijing.com/news/id_9946674.html

Kaohsing · 发表于 2017-11-3 23:03

本帖最后由 Kaohsing 于 2017-11-4 07:50 编辑

使用table标签解析数据

在HTML中table标签是有开始和结束，是个闭合的标签。一般的形式<table 修饰部分（列宽了，颜色啦，位置了等）>.......</table>，只要找出包含两个标签之间的字符串，就可在Excel可以粘贴获得数据。下面演示一下

。

要是网页中只有一个表格，那就比较简单，下面演示获取所需的表格.

虽然数据是返回来了，但是格式没有返回来了，<table 后面只有个class，说明是用css 控制格式的，试着加入格式.

kings12333 · 发表于 2017-11-3 23:16

Kaohsing 发表于 2017-11-3 23:03
使用table标签解析数据
在HTML中table标签是又开始和结束，一般的形式.......，只要找出包含两个标签之 ...

我一般不喜欢用粘贴法，不稳定这玩意

Kaohsing · 发表于 2017-11-4 08:03

kings12333 发表于 2017-11-3 23:16
我一般不喜欢用粘贴法，不稳定这玩意

不知廿七楼的文字，你读了？粘贴法确实不好，超链接都过来，里面有时有控件的，可以用replace或正则替换一下。

Kaohsing · 发表于 2017-11-4 09:24

使用正则解析数据
  关于正则理论基础知识请看大神们的神贴，需要用到的基本句式如下：
   Set regx =CreateObject("vbscript.regexp")  '引用正则
   regx.Pattern =" "                      ‘定义如何取出所需数据
   regx.Global = True                   '全局范围
   Set mh = regx.Execute(tt)  ’返回的数据
     不能再拿人个的网页测试啦，把人家网站搞坏了，人家升级了，以后拿数据就比较麻烦，
还是那自己编的静态网页试试吧，是个div布局的，css控制格式，如下：

  部分网页：
<table id="ghb">
<caption >价格汇总</caption>
<thead>
         <tr> <th>日期</th><th>品名</th><th>规格</th><th>材质</th><th>产地</th>
                  <th>价格</th><th>比昨日</th><th>备注</th>
            </tr>
      </thead>
         <tr class="kao">
         <td>2017/10/9</td><td>三级螺纹钢</td><td>Φ12mm</td><td>HRB400</td>
         <td>莱钢</td><td>4220</td><td>↑40</td><td>检尺</td>
         </tr>
数据很明显，在标签td中，

数据不少，九千多条，这是个多年的汇总，当然不少

。

kings12333 · 发表于 2017-11-4 09:58

Kaohsing 发表于 2017-11-4 08:03
不知廿七楼的文字，你读了？粘贴法确实不好，超链接都过来，里面有时有控件的，可以用replace或正则替 ...

提取数据.rar (51.27 KB, 下载次数: 63)

大哥，看看这两个压缩包里的 html 文件有什么不同，里面的代码却只能对文件：原01.html有效，如果换成文件：现.html就读不到数据了。。由于代码用的是SCrip语句我根本看不懂

屌爆了z · 发表于 2017-11-4 12:51

kings12333 发表于 2017-11-4 09:58
大哥，看看这两个压缩包里的 html 文件有什么不同，里面的代码却只能对文件：原01.html有效，如 ...

肯定读不到数据了，一段代码并不是对所有网页都适用，你得重新分析，重新写代码

kings12333 · 发表于 2017-11-4 13:29

屌爆了z 发表于 2017-11-4 12:51
肯定读不到数据了，一段代码并不是对所有网页都适用，你得重新分析，重新写代码

不是那个意思，这个网页内容是一个网站的，数据完全一样，帮处理下

Kaohsing · 发表于 2017-11-4 15:05

jquey 解析数据（一）

用 CreateObject("htmlfile").parentWindow 亦可以解析数据，必须懂点HTML,这样可以知道标签或元素之间的上下，同级之间的关系，弄清他们之间的隶属关系，方可弄懂代码。下面来段源码。

<liclass="list">

<iclass="widget share-btn iconYCJ icon-sharing-ycjopacity-seven"></i>

<sectionclass="nc-arc-wrap ">

<span>

<divclass="nc-con">

截至到2017年三季度，货币基金规模达到6.5万亿，相比二季度增长了1.25万亿，增 </div>

<ulclass="share-wrap">

<liclass="share-weibo" > <iclass="icon icon-sina"></i>微博 </li>

<liclass="share-wechat pr" > <iclass="icon icon-wechat-dark"> </i>微信

<divclass="share-wechat-wrap"> <div class="qrcode"></div> </div>

</li>

</ul>

</span>

</section>

</li>

省略

</ul>

这是个无序列表，我们所要所有信息都在class=list的li 标签下，下面实验一下,。

挨在一块的数据，不是很理想，那就遍历一下。

虽然还算可以，还需修改一下。

数据 okl! 源码如下：

Sub kaohisng()

Dim oHml As Object, oXml As Object

Dim i%

Set oHml = CreateObject("htmlfile")

Set W = oHml.parentWindow

oHml.write "<script src='http://ajax.microsoft.com/ajax/jquery/jquery-1.4.min.js'></script><body></body>"

Set oXml = CreateObject("msxml2.xmlhttp")

oXml.Open "GET", "file:///" & ThisWorkbook.Path & "\现在.html", False

oXml.send

oHml.body.innerHtml = oXml.responseText

'Debug.Print W.eval("$('li.list').text()")

Stop

Set Z = W.eval("$('li.list')")

Stop

For i = 0 To W.eval("$('li.list').length") - 1

' Debug.Print "第" & i + 1 & "条数据...." & W.eval("$('li.list').eq(" & i & ").text()")

For i = 0 To W.eval("$('li.list').length") - 1

Debug.Print "第" & i + 1 & "条数据时间。。。。." & Split(W.eval("$('li.list').eq(" & i & ").text()"), "【")(0)

Debug.Print "第" & i + 1 & "条数据标题。。。。" & Split(W.eval("$('li.list').eq(" & i & ").text()"), " ")(2)

Debug.Print "第" & i + 1 & "条数据内容。。。。" & Split(W.eval("$('li.list').eq(" & i & ").text()"), "】 ")(1)

Kaohsing · 发表于 2017-11-4 15:09

本帖最后由 Kaohsing 于 2017-11-5 18:48 编辑

jquey 解析数据（二）还是用36楼的例子，分析元素之间关系，运用迭代函数返回js的数组，（其实就是个自执行的遍历函数），然后遍历js数组取回数据。其实每条数据在 <li class="list"> 和 </li>之间，也就是innertext ,在jQuery中是text（），遍历每一条，就能得到数据。

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

[讨论] 解析网页源码，获得所需数据。

评分

评分

最新热点 /1