html - VBA - 查找前面的 html 标记

Question

假设我有这样的 HTML 源代码

<div id="book-info"> 
  <span class="title">Weather</span>
  <span class="title">Title Of Book</span>
  <p><a href="http://test.com?MMC_ID=34343">Buy Now</a></p>
</div>

我需要返回的是“书名”

有很多 span class="title"实例，但我需要的实例紧接在页面上唯一的 MMC_ID 标记之前，因此我可以使用 MMC_ID 作为标记来接近我需要的 span 标记。

问题:我怎么说“抓取 MMC_ID 左侧第一个 span 标签的内容？”

下面的代码有时可以工作，但是页面上的 span 标签数量是可变的，所以当出现偏差时它会失败。

With CreateObject("msxml2.xmlhttp")
    .Open "GET", ActiveCell.Offset(0, -1).Value, False
    .Send
    htm.body.innerhtml = .ResponseText
End With

ExtractedText = htm.getElementById("book-info").getElementsByTagName("span")(1).innerText

Answer 1

应该这样做

Text_1 = htm.getElementById("book-info").innerhtml
if instr(1, text_1, "MMC_ID ", vbTextCompare) > 0 then
   numb_spans = htm.getElementById("book-info").getElementsByTagName("span").length
   ExtractedText = htm.getElementById("book-info").getElementsByTagName("span")(-1 + numb_spans).innerText
else
end if