使用VBA引用特定的HTML标签和类

时间:2018-08-14 17:53:49

标签: html vba visual-studio

我为工作创建了一个应用程序,该应用程序使用Web客户端中内置的视觉工作室在我们的网站上执行库存编号搜索。它会自动搜索并返回相应页面的网址以及该商品的详细说明。

我们的网站已升级,现在不再可用。我通过搜索与所需页面的URL及其标题相对应的单个H标签来使其工作。这是目前的代码。

    Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("*")
    Dim theModelCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("*")

    For Each curElement As HtmlElement In theElementCollection

        If curElement.GetAttribute("href").Contains("/used/") Then

            txtAllUrl.Text = curElement.GetAttribute("href")

        ElseIf curElement.GetAttribute("href").Contains("no-results") Then

            Exit For

        End If

    Next

    For Each curElement As HtmlElement In theModelCollection

        If curElement.GetAttribute("href").Contains("/used/") Then

            txtModel.Text = curElement.GetAttribute("innerText")


        End If


    Next 

在我们的新站点上,现在只有一行包含我想获取和引用的所有内容。但是我不知道如何使用代码引用和收集h3行。供参考的是我想收集的那条线。但是,此行更改。这是我们网站上汽车网址的路径。因此,对于每次搜索,Href都会改变,因为它是不同的汽车和网址。

<h3 class="fn  "><a class="url" href="/used/Subaru/2013-Subaru-BRZ-11b8e0290a0e0adf1072b16dfcc671ab.htm"> 2013 Subaru BRZ Limited</a></h3>

有没有办法只抓住和收集H3指定的线路?该代码可以从标记有H3的其余代码中挑选出来,因为这是唯一与ref值匹配的代码。

我具有基本的HTML知识,并且基本上是从废品部分构建的

0 个答案:

没有答案