在VBA中调用RSS feed并刮擦某些数据

Question

我正在PowerPoint中的VBA编写脚本。我正在尝试从RSS提要中获取以下行：<div>Highest Projected Forecast Available: 1.2 ft</div>

从该行中，我需要仅提取" 1.2"或在该位置出现的任何值。我遇到的问题是，它不像标准XML文件那样格式化。它在每行的开头没有标签，而是像您在上面的示例行中看到的字符组合。这是RSS饲料的正常吗？单击上面的链接以查看我所指的内容。

有什么想法我如何能够在PowerPoint中使用VBA抓住该价值并将其存储为变量？任何帮助将非常感激。谢谢！

Answer 1

嗨，请检查以下代码希望：

Function GetRSSResults() As String
GetRSSResults = GetHTTPResponse("https://water.weather.gov/ahps2/rss/fcst/fdyo1.rss")
r = GetRSSResults
s1 = Replace(r, ">", ">")
s2 = Replace(s1, "&#x3C;", "<")
searchTerm = "Highest Projected Forecast Available: "
s = InStr(s2, searchTerm) + Len(searchTerm)
l = InStr(s, s2, "ft")
Debug.Print Trim(Mid(s2, s, l - s))
End Function
'------------------------------------------
Function GetHTTPResponse(url As String) As String
Dim msXML As Object
Set msXML = CreateObject("Microsoft.XMLHTTP")
With msXML
  .Open "Get", url, False
  .setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
  .send
  GetHTTPResponse = .responseText
End With
Set msXML = Nothing
End Function