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

kings12333

Kaohsing 发表于 2017-11-2 11:05
看看捏个分时图的网址，解析一下。

没有获取股票代码啊。。。再改下

kings12333

duquancai 发表于 2017-11-2 09:36
网抓   主要是在于“抓”这个字，抓下来后的 数据 的处理 还有  正则法、解析法等！还是重点在于如何抓到 ...

老大，上次那个网页的股票代码还没搞完

Kaohsing

列二
网址http://data.eastmoney.com/zjlx/detail.htmlS

file:///C:\Users\ADMINI~1\AppData\Local\Temp\msohtmlclip1\01\clip_image004.jpg
Sub 全部股票实时资金流向排行()
   P = ""
   URL ="http://nufm.dfcfw.com/EM_Finance2014NumericApplication/JS.aspx/JS.aspx?type=ct&st=(BalFlowMain"& P & ")&sr=-1&p=1&ps=2&js=var%20dy={pages:(pc),data:[(x)]}&token=894050c76af8597a853f5b408b759f5d&cmd=C._AB&sty=DCFFITA&rt="& Rnd() * 100000000
   With CreateObject("MSXML2.XMLHTTP")
       .Open "GET", Replace(URL,"50&js=var%20dy={pages:(pc),data:[(x)]}","1&js=(pc),(x)"), False
       .Send
       .Open "GET", Replace(URL, "ps=1", "ps="& Split(.ResponseText, ",")(0)), False
       .Send
       tt = .ResponseText
   End With
    Debug.Print tt:   ' tt = Replace(tt, ":[""",""",""")
    tt =Split(Split(tt, ":[""")(1), """]}")(0)
   Debug.Print tt
   tt = Split(tt, """,""")   
   With Sheets("股价")
        .Cells.Clear
       .[A1] = "代码": .[B1] = "名称": .[C1] = "股价": .[D1] = "时间"
       For i = 1 To UBound(tt)
            .Cells(i + 1, 1) = Split(tt(i),",")(1)
            .Cells(i + 1, 2) = Split(tt(i),",")(2)
            .Cells(i + 1, 3) = Split(tt(i),",")(3)
            .Cells(1 + i, 4) = Split(tt(i),",")(15)
       Next
       .[a:a].NumberFormatLocal = "000000"
   End With
End Sub

Kaohsing

kings12333 发表于 2017-11-2 11:54
没有获取股票代码啊。。。再改下

耐心等待，一步步的来。

ykytom

不用工具能直接分析出动态URL吗，

kings12333

Kaohsing 发表于 2017-11-2 12:46
耐心等待，一步步的来。

依飘画狐，居然蒙对了。。呵呵。。看看这样可不可以。。Debug.Print "股票代码:" & Split(Split(zz(i), """>")(0), "<")(0) & vbTab

Kaohsing

说说CreateObject("htmlfile")解析数据

世界是纷繁复杂，所以就了“曲径通幽”，“殊途同归”，“条条大路通罗马”等词语，如果觉得split不好用，可以用用CreateObject("htmlfile")。

首先来一点一点点html知识，来自http://www.w3school.com.cn/

<table> 标签定义 HTML 表格。简单的 HTML 表格由 table 元素以及一个或多个 tr、th 或 td 元素组成。

tr 元素定义表格行，th 元素定义表头，td 元素定义表格单元。

更复杂的 HTML 表格也可能包括 caption、col、colgroup、thead、tfoot 以及 tbody 元素

用到的代码：

Set html =CreateObject("HTMLFile")

url=”http://www.yuncaijing.com/market ... =%E9%9B%84%E5%AE%89”

Set win =CreateObject("WinHttp.WinHttpRequest.5.1")   
     With win
        .Open"GET", url, False
        .send
        html.body.innerHtml= .responseText
    End With

查看源码, 发现数据都在td标签中.（与代码一样，标签也是可以嵌套的，是对内容的修饰的，当然现在大多数是通过csss实现的）

<trdata-p="41.65" data-about="100" data-r="192.69"data-ltsz="10.82" data-limit_times = "23">

<td><a href="/quote/sh603903.html"target="_blank" data-showchart-code="603903">中持股份</a></td>

<td >41.65</td>   <td >100%</td>    <td class=" stockred" >192.69%</td>  <td>10.82亿</td>   <td>23次</td>

添加一句代码Set td= oDoc.getElementsByTagName("td"),代码运行后如下图：

Kaohsing

初次发这种贴，没有经验。

Kaohsing

续说CreateObject("htmlfile")解析数据

数据出来了，不相关数据也有，那就在筛选一下.

<TD><A href="about:/quote/sh603903.html" target=_blank data-showchart-code="603903">中持股份</A></TD>

那就找找红色字出现的位置，修改后运行如下

遍历了一下，总的遍历和赋值到单元格与数组就不写啦。附上所用代码

Sub kaohsing1()

   Set HTML = CreateObject("HTMLFile")

   URL ="http://www.yuncaijing.com/markethot/discovery.html?keyword=%E9%9B%84%E5%AE%89"

   Set win = CreateObject("WinHttp.WinHttpRequest.5.1")

   With win

       .Open "GET", URL, False

       .send

       HTML.body.innerHTML = .responseText

   End With

   Set tr = HTML.getElementsByTagName("tr")

   For j = 0 To tr.Length - 1

       If InStr(tr(j).innerHTML,"<TD><A href=""abo") = 1 Then Exit For

   Next   

   '----------------------------------数据挨在一块

   'For i = j To tr.Length - 1

    '  tt = tt & "  |" & vbTab & i & "....." & tr(i).innertext

       'If i Mod 3 = 0 Then Debug.Print tt: tt = ""

   'Next

   '-----------------------------------

   'Debug.Print tr(3).innertext

   'Debug.Print tr(3).ChildNodes(0).innertext

   'Debug.Print tr(3).ChildNodes(1).innertext

   For i = 0 To tr(3).ChildNodes.Length - 1

     Debug.Print tr(3).ChildNodes(i).innertext

   Next

  Stop

End Sub

kings12333

Kaohsing 发表于 2017-11-2 13:54
初次发这种贴，没有经验。

发最后这个方法的源码，照抄都取不到数据。。