1

我创建了一个查看 XML 数据文件的 VBS 脚本文件。在 XML 数据文件中，我需要的 HTML 数据嵌入在

<![CDATA[]'other interesting HTML data here'].

我已经使用 XPATH 剥离了这些 HTML 数据，并插入到表示为变量的 Div 对象 (myDiv) 元素中（它没有写入文档）。例如，myDiv.innerHTML 的内容如下所示；

<table> 
<tr><td>text in cell 1</td></tr> 
<tr><td><h1 id="myId1">my text for H1</h></td><tr> 
<tr><td><h2 id="myId2">my text for h2</h></td></tr> 
</table>

我首先要做的是简单地选择 ID 与“myId1”匹配的适当标签，因此，我使用了这样的语句；

MyIdText = MyDiv.getElementById("myId1")

但是，我正在使用的应用程序显示“Err 438，Object 不支持此属性或方法”。我是一个代码新手，可以理解一些基本原理，但是当它变得更复杂时会有点迷失（对不起）。我查看了该板上的其他帖子，所有帖子似乎都与 HTML 和 Javascript 相关，而不是 VBScript（我使用的应用程序不允许使用 Java Script）。我使用的代码错了吗？

4

2 回答 2

0

要使用 getElementById()，您应该编写：document.getElementById("myId1")。这样，您就可以告诉浏览器在“文档”中搜索指定的 ID。您的变量未定义并且没有附加此方法，因此您的代码将生成上述错误。

要提取特定 H 元素内的文本：

MyIdText = document.getElementById("myId1").textContent;

于 2012-12-03T11:48:11.443 回答
0

非常感谢您的帮助，不幸的是，我对 VBS 了解一点，对 DOM 的了解甚至更少，我正在尝试通过实验来学习这两者。在我正在使用的环境/应用程序中存在某些限制（它称为 ASCE，它是一种用于管理安全案例的工具 - 但现在这并不重要）。但是，为了将苹果与苹果进行比较，我尝试在 HTML 页面中进行试验，以便更好地理解 DOM/VBS 命令实际上可以做什么。我取得了一些部分的成功，但仍然无法理解为什么它会在它所在的地方倒下。这是我正在试验的确切文件，我为每个部分添加了注释文本；

<html>
<head>

<table border=1>
    <tr>
        <td>text in cell 1</td>
    </tr>

    <tr>
        <td><h1 id="myId1">my text for H1</h1></td>
    </tr>

    <tr>
        <td><h1 id="myId2">my text for h2</h2></td>
    </tr>
</table>

<script type="text/vbscript">
DoStuff

Sub DoStuff 

    ' Section 1: Get a node with the Id value of "myId1" from the above HTML
    ' and assign it to the variable 'GetValue'
    ' This works fine :-)
    Dim GetValue
    GetValue = document.getElementById("myId1").innerHTML
    MsgBox "the text=" & GetValue   

    ' Section 2: Create a query that assigs to the variable 'MyH1Tags' to  all of the <h1> 
    ' tags in the document.
    ' I assumed that this would be a 'collection of <h1> tags so I set up a loop to itterate
    ' through however many there were, but this fails as the browser says that this object 
    ' doesn't support this property or method - This is where I am stuck    

    Dim MyH1Tags    
    Dim H1Tag
    MyH1Tags = document.getElementsByTagName("h1") ' this works

    For Each H1Tag in MyH1Tags ' this is where it falls over
        MSgbox "Hello"
    Next


    ' Section 3: Create a new Div element 'NewDiv' and then insert some HTML 'MyHTML'
    ' into 'NewDiv'. Create a query 'MyHeadings' that extracts all h1 headings from 'NewDiv'
    ' then loop round for however many h1 headings there are in 'MyHeadings'
    ' and display the text content. This works Ok

    Dim NewDiv  
    Dim MyHTML  
    Dim MyHeadings
    Dim MyHeading
    Set NewDiv = document.createElement("DIV")      
    MyHTML="<h1 id=""a"">heading1</h1><h2 id=""b"">Heading2</h2>"  
    NewDiv.innerHTML=MyHTML
    Set MyHeadings = NewDiv.getElementsByTagName("h1")

    For Each MyHeading in MyHeadings
        Msgbox "MyHeading=" & MyHeading.innerHTML
    Next


    'Section 4: Do a combination of Section 1 (that works) and Section 3 (that works)
    ' by creating a new Div element 'NewDiv2' and then paste into it some HTML
    ' 'MyHTML2' and then attempt to create a query that extracts  the inner HTML from 
    ' an id attribute with the value of "a". But this doesnt work either.
    ' I have tried "Set MyId = NewDiv2.getElementById("a").innerHTML" and
    ' also tried "Set MyId = NewDiv2.getElementById("a")" and it always falls over 
    ' at the same line.
    Dim NewDiv2 
    Dim MyHTML2     
    Dim MyId

    Set NewDiv2 = document.createElement("DIV")     
    MyHTML2="<h1 id=""a"">heading1</h1><h2 id=""b"">Heading2</h2>"  
    NewDiv2.innerHTML=MyHTML

    MyId = NewDiv2.getElementById("a").innerHTML

End Sub

</script>
</head>

<body>
于 2012-12-05T09:43:18.247 回答