getElementsByTagName 返回“参数数量错误或属性分配无效”错误

Question

我正在使用供应商提供的 API，当我调用它时会返回此 XML。

<RESPONSE>
    <VALID>true</VALID>
    <MESSAGE></MESSAGE>
    <DATA>
        <WORK>
            <ROW type="object" class="empty">
                <brief_desc>Check plate</brief_desc>
                <compid>1354</compid>
                <comp_desc>Spitfire #2</comp_desc>
                <initials></initials>
                <sch_date>2019-10-01</sch_date>
                <wo>43351</wo>
                <workstatus>O</workstatus>
                <work_desc>Check plate for flatness</work_desc>
            </ROW>
            <ROW type="object" class="empty">
                <brief_desc>Check wheel</brief_desc>
                <compid>1354</compid>
                <comp_desc>Spitfire #1</comp_desc>
                <initials></initials>
                <sch_date>2019-10-08</sch_date>
                <wo>43685</wo>
                <workstatus>O</workstatus>
                <work_desc>Check wheel for roundness</work_desc>
            </ROW>
        </WORK>
    </DATA>
</RESPONSE>

我从另一个供应商提供的 HMI 软件中调用它，它只支持 VBscript。我可以使用 Microsoft.XMLDOM 对象获得这样的单个值：

xmlDoc.documentElement.selectSingleNode("//VALID").text

但是，当我尝试获取“WORK”节点的集合时，就像这样......

objNodeList = xmlDoc.getElementsByTagName("DATA")

...我收到一条错误消息，指出“参数数量错误或属性分配无效”。 “DATA”元素全部大写，所以我想我的名字是正确的。我对此进行了相当多的研究，但似乎找不到有完全相同问题的人。我将不胜感激任何人可能有的任何建议。谢谢！

根据回复此帖子的人的要求，编辑、添加完整代码：

Function EmaintTest

    Dim objRequest
    Dim strUrl 
    Dim strResponse 
    Dim body 
    Dim strResponseHeaders 
    Dim allResponseHeader 
    Dim xmlDoc 
    
    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    strUrl = "https://somewebsite.com/wc.dll?x3~api~&q=GetAnyData"
    
    'Set body value as required by API.
    body = "{""table"":""WORK"",""columns"":""WO,COMPID,COMP_DESC,WORKSTATUS,BRIEF_DESC,SCH_DATE,WORK_DESC,INITIALS"",""pageNumber"":1,""pageSize"":1000,""filter"":{""logic"":""and"",""filters"":[{""field"":""wo_type"",""operator"":""eq"",""value"":""PM""},{""field"":""COMPID"",""operator"":""eq"",""value"":""1354""},{""field"":""WORKSTATUS"",""operator"":""eq"",""value"":""O""}]},""sortBy"":[{""field"":""SCH_DATE"",""dir"":""asc""}]}"             
                
    With objRequest
        .Open "POST", strUrl, False
        .SetRequestHeader "Cache-Control", "no-cache"
        .SetRequestHeader "Content-Type", "text/plain"
        .SetRequestHeader "Accept", "application/xml"
        .SetRequestHeader "Accept-Encoding", "gzip, deflate, br"
        .SetRequestHeader "Connection", "keep-alive"
        .Send body
        strResponseHeaders = .StatusText
        strResponse = .ResponseText
        allResponseHeader = .GetAllResponseHeaders
    End With
        
    'Load the XML
    Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = False 
    xmlDoc.loadXML(strResponse)

    'Assign variables using the values returned from the API 
    $Trace (xmlDoc.documentElement.selectSingleNode("//VALID").text ) 'This works, returns "True" value.

    Dim xmlNodes
    Dim xmlNode  

    Set xmlNodes = xmlDoc.documentElement.selectNodes("DATA/WORK")
    
    $Trace  ("Using selectNodes...")
    
    For Each xmlNode in xmlNodes
        $Trace (xmlNode.text)
    Next
    
    $Trace  ("Using getElementsByTagName...")

    Set xmlNodes = xmlDoc.getElementsByTagName("DATA/WORK")

    For Each xmlNode In xmlNodes
        $Trace  (xmlNode.text)
    Next

End Function

Answer 1

问题似乎与您尚未共享的代码有关。以下代码适用于您的 XML 文件。请注意，您可以选择使用 selectNodes 或 getElementsByTagName。

Set xmlDoc =  CreateObject("Microsoft.XMLDOM")
xmlDoc.Load ".\Test.xml"

WScript.echo "Using selectNodes..."

Set xmlNodes = xmlDoc.documentElement.selectNodes("DATA/WORK")

For Each xmlNode in xmlNodes
  WScript.echo xmlNode.text
Next

WScript.echo "Using getElementsByTagName..."

Set xmlNodes = xmlDoc.getElementsByTagName("DATA/WORK")

For Each xmlNode in xmlNodes
  WScript.echo xmlNode.text
Next

下面是遍历所有节点的方法：

Set xmlDoc =  CreateObject("Microsoft.XMLDOM")
xmlDoc.Load ".\Test.xml"

Set xmlNodes = xmlDoc.selectNodes("//*")    
For i = 0 to xmlNodes.length - 1
    WScript.Echo xmlNodes(i).nodeName & ": " & xmlNodes(i).text
Next

Answer 2

我建议使用不同的方法，即selectNodes()。

objNodeList = xmlDoc.selectNodes("/RESPONSE/DATA")

或

objNodeList = xmlDoc.selectNodes("/RESPONSE/DATA/WORK/ROW")