MsXml-DOMDocument 过程的 IXMLDOMNode 上的“未设置对象变量”

Question

所以我有一个非常大的 XML 文件 (40MB)，我必须反复搜索。我受过关于使用 XPath 使用 DOMDocument 的好处的教育，我认为我做对了，但我得到了 Obj Var Not Set 的废话。

这是初始加载...我认为它的加载是因为它会延迟 40mb 文件的适当时间长度并且不返回错误。

Dim someElement As IXMLDOMNode
Dim xmlDoc As Object
Set xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")

'<-thats a valid file name lookup
xmlDoc.Load DLookup("gsgtver", "Eramdat", "EramID = 1") 

所以这就是它变得冒险的地方。我需要一个 IXMLDOMNode 来读取 parced xmlDoc 对象。我检查了 MsXml 6.0 参考库，当我变暗时我得到了 var 类型（你知道，为我们新手填写的类型列表）。 在我设置了 IXMLDOMNode 后，当我尝试分配时，我得到了方法列表（如“.text”），但我正在解决这个错误.....可能是一个 bum xpath 字符串（虽然我几乎逐字从 xpath 教程中偷来的）。

sNodeName = "/Fix_Records/FixRecord/FixID[1]/Latitude"
Set someElement = xmlDoc.SelectSingleNode(sNodeName)

'yes, I dimmed xBuffer as a string up above
sBuffer = someElement.text 

顺便说一句，我真的很想做一个“FixID = 'mystring'”之类的事情，但我正在做元素 1 只是为了让它工作。 这是 xml 文件的顶部：

<Fix_Records xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
             xsi:noNamespaceSchemaLocation="Fix.xsd"> 
 <!-- ******************************************************** -->
 <!-- Local SITE ID        : ZAB                               -->
 <!-- Local Release Version: a082a210                          -->
 <!-- NASD/NADR Version    : z084b210                          -->
 <!-- Date                 : 02-03-2011 19:02:56               -->
 <!-- ******************************************************** -->

    <FixRecord>
      <FixId>00BTR</FixId>
      <IcaoCode>K7</IcaoCode>
      <FixType>WAYPOINT</FixType>
      <FixName>BTR055100</FixName>
      <FixinUs>true</FixinUs>
      <IsNational>true</IsNational>
      <HighPowerVor>false</HighPowerVor>
      <DPositionMapData>false</DPositionMapData>
      <Latitude>31170205N</Latitude>
      <Longitude>089353453W</Longitude>
      <AngularCorr>-0.010472</AngularCorr>
      <XSpherical>0.006082693951808</XSpherical>
      <YSpherical>-0.85612436871425</YSpherical>
      <ZSpherical>0.516734038096893</ZSpherical>
    </FixRecord>
    <FixRecord>
      <FixId>00N10</FixId>
      <IcaoCode>MM</IcaoCode>

谢谢......你们这些聪明的人摇滚。

Answer 1

您的 XPath 错误。 "/Fix_Records/FixRecord/FixID[1]/Latitude" 表示您正在寻找FixRecord 元素的第一个FixID 子元素的Latitude 子元素。

但是：

• 有很多FixRecord元素，
• 对于任何给定的FixRecord，只有一个FixId 子元素（无需指定[1]），并且
• 最重要的是，FixId 没有Latitude 子元素！因此，您正在寻找不存在的东西，这就是导致错误的原因。
  • 还要注意@James Walford 指出的区分大小写。 FixId 不是 FixID

我想你想要的是："/Fix_Records/FixRecord[1]/Latitude"。

当你准备好进入下一个级别时，试试这个：

"/Fix_Records/FixRecord[FixId='mystring']/Latitude".

如果这不起作用，可能会有一些命名空间怪异...尝试在 Xpath 中的每个节点规范之前添加 xsi:：

"/xsi:Fix_Records/xsi:FixRecord[1]/xsi:Latitude"
"/xsi:Fix_Records/xsi:FixRecord[xsi:FixId='mystring']/xsi:Latitude"

振作起来，你最终会到达那里的！！

Answer 2

您有一个区分大小写的问题 - 您正在寻找 FixID，实际上您已经获得了 FixId。 当您尝试访问其文本时，您会抛出异常，因为您没有实际对象。

编辑：正如 Jean-François Corbett 所指出的，您的 XPath 也是错误的。这是解决这两个问题的更新 Xpath：

"/Fix_Records/FixRecord[FixId='Id you want']/Latitude"

您可能还想测试是否有要访问的节点，请参阅下面的答案以获取一些提示。

Answer 3

一旦加载了 XML，仍然有可能出现解析错误。此代码可以帮助您找到问题所在。相应地更改它以适应您的环境。

错误编号 (6666) 显然是个玩笑，您的应用程序必须有正确的错误编号。

编辑：另外，尝试在 XML 验证器中解析您的 XML（或至少部分），例如 http://www.validome.org/xml/validate/。

Public Sub readXMLDoc()

    Dim objXML As MSXML2.DOMDocument
    Dim lookupNode As MSXML2.IXMLDOMNode
    Dim vOut As Variant
    Dim sNodeName As String
    Dim sParseError As String


    On Error GoTo ProcError

    Set objXML = New MSXML2.DOMDocument

    objXML.async = False
    objXML.LoadXML "c:\XMLSample.xml"

    If objXML Is Nothing Then Err.Raise 6666, , "Error while opening the XML file"

    sParseError = objXML.parseError.reason

    If Len(sParseError) > 0 Then Err.Raise 6666, , "Error while parsing the XML file: " & sParseError

    sNodeName = "/Fix_Records/FixRecord/FixID[1]/Latitude"

    Set lookupNode = objXML.SelectSingleNode(sNodeName)

    If lookupNode.ChildNodes.Length > 0 Then

        'Do your handling

    End If

ProcExit:

    Exit Sub

ProcError:

    Debug.Assert False
    Debug.Print Err.Description
    Resume ProcExit

End Sub