javascript - 首先循环选定的标签，然后循环所有标签

Question

在 VB6 中，我想循环浏览 Web 浏览器控件中的所有 html 标记。当 html 内容很大时，它会变得很慢。以下是我的要求。

我想获得一个具有特定名称的“A”( anchor )标签，该名称在该文档中是唯一的。(示例)。得到后我想循环遍历所有 html 标签，直到得到另一个具有另一个特定名称的“A”标签。 (例如

所以我使用了下面的代码。该代码是通过检查属性名称中的某些字符来完成的，因为它的工作方式相同。该代码不符合我的要求，我解释为我用另一种方式做到了。

Dim bkm As Boolean
Dim hw2 As HTMLWindow2
 For Each ele In hw2.Document.All

        If ele.getAttribute("name") = mybkm Then 'mybkm  variable having name of tag
            bkm = True

            ele.Style.cssText = "background-color:#FFFFEB;" & ele.Style.cssText

        ElseIf bkm = True And InStr(ele.outerHTML, "name=BKM") = 0) Then
            ele.Style.cssText = "background-color:#FFFFEB;" & ele.Style.cssText
        ElseIf InStr(ele.getAttribute("name"), "BKM") > 0 Then
            If bkm = True Then
                bkm = False
                Exit For
            End If
        End If
    Next

但是在我看来，由于编号较大，首次出现具有该名称的 A 标记变得非常慢(整个过程大约需要 90% 的时间)。 P、br、A、table 等标签

因此，我计划获取具有特定名称的第一个“A”标签(可能只是通过循环“A”标签)，然后循环所有标签，直到获得下一个“A”标签。

那么如何做到呢？

Answer 1

Try like this - 

Dim i As Integer
Dim anchorElement As HTMLAnchorElement = wbMain.Document.All.getElementByTagName("A")(0)

For i = 0 To anchorElement.attributes.length - 1
  MsgBox anchorElement.attributes.item(i).name & "=" & anchorElement.attributes.item(i).value
Next i