Html 试图通过标记获取elementt<；a>；和属性“；“类”；使用DOM和VBS等于（某物）_Html_Dom_Vbscript

Html 试图通过标记获取elementt<；a>；和属性“；“类”；使用DOM和VBS等于（某物）

html dom vbscript

Html 试图通过标记获取elementt<；a>；和属性“；“类”；使用DOM和VBS等于（某物）,html,dom,vbscript,Html,Dom,Vbscript,我在一个html文件中有许多标记，我想用一个名为“class”的属性提取所有锚标记，该属性的值为“ASCE url”（有很多）它们看起来像这样 <A class=ASCE-Url href="../SafetyArgument/N2150158.htm">sub-section</A> 然而，为了让它工作，它需要提供一个数字放在方括号中，为此我需要知道符合标准的元素数量我发现了一段javascript，它返回返回的元素的长度 var elements = docum

我在一个html文件中有许多标记，我想用一个名为“class”的属性提取所有锚标记，该属性的值为“ASCE url”（有很多）它们看起来像这样

<A class=ASCE-Url href="../SafetyArgument/N2150158.htm">sub-section</A>

然而，为了让它工作，它需要提供一个数字放在方括号中，为此我需要知道符合标准的元素数量

我发现了一段javascript，它返回返回的元素的长度

var elements = document.getElementsByTagName("input");
var ElmLength = elements.length

但是，VBS无法识别命令长度，是否有VBS替代此命令？

Length

可以很好地使用VBScript。另外，

getAttribute（“class”）

将不起作用，但是

element.className

。下面是示例代码

<html>
 <head>
  <title>AAA</title>
  <script type="text/vbscript">
    Sub Window_Onload
        Set objElms = Document.getElementsByTagName("a")
        MsgBox "A.Length: " & objElms.Length
        For Each objElm In objElms
            If objElm.className = "ASCE-Url" Then
                'do what you need here...
                objElm.innerHTML = objElm.innerHTML & " - found"
            End If
        Next
    End Sub

  </script>
 </head>
 <body>

   <a class=ASCE-Url href="#">A</a><br>
   <a class=ASCE-Url href="#">B</a><br>
   <a class=ASCE-XYZ href="#">C</a><br>
   <a class=ASCE-Url href="#">D</a><br>
   <a class=ASCE-Url href="#">E</a><br>

 </body>
</html>


AAA
子窗口加载
Set objElms=Document.getElementsByTagName（“a”）
MsgBox“A.Length:&objElms.Length
对于对象中的每个对象
如果objElm.className=“ASCE Url”，则
“在这里做你需要的。。。
objElm.innerHTML=objElm.innerHTML&“已找到”
如果结束
下一个
端接头

<html>
 <head>
  <title>AAA</title>
  <script type="text/vbscript">
    Sub Window_Onload
        Set objElms = Document.getElementsByTagName("a")
        MsgBox "A.Length: " & objElms.Length
        For Each objElm In objElms
            If objElm.className = "ASCE-Url" Then
                'do what you need here...
                objElm.innerHTML = objElm.innerHTML & " - found"
            End If
        Next
    End Sub

  </script>
 </head>
 <body>

   <a class=ASCE-Url href="#">A</a><br>
   <a class=ASCE-Url href="#">B</a><br>
   <a class=ASCE-XYZ href="#">C</a><br>
   <a class=ASCE-Url href="#">D</a><br>
   <a class=ASCE-Url href="#">E</a><br>

 </body>
</html>