Question

我遇到了问题＆＃34; SelectSingleNode＆＃34; Visual Basic中的函数。

我有以下XML文件：

<sistema versao="1.02" xmlns="http://www.portalfiscal.inf.br/nfe">
<det>
<prod>
    <cProd>000085</cProd>
    <xProd>MARTELO</xProd>
    <NCM>73170090</NCM>
    <uCom>UN</uCom>
    <vUnCom>7.0000</vUnCom>
</prod>
<imposto>
    <ICMS>
        <orig>0</orig>
        <CST>500</CST>
    </ICMS>
</imposto>
</det>
</sistema>

我需要节点内的值＆＃34; cProd＆＃34;。在这种情况下，＆＃34; 000085＆＃34;。

我尝试了以下代码：

    Public Sub importacao()
    Dim arquivos = CheckedListBox1.CheckedItems
    Dim total = arquivos.Count

    Dim nome_produto As String

    For i As Integer = 0 To total - 1
        Dim xml As New XmlDocument

        xml.Load(arquivos.Item(i))

        nome_produto = xml.ChildNodes(0).ChildNodes(0).ChildNodes(0).SelectSingleNode("cProd").InnerText

    Next

End Sub

＆＃34; arquivos＆＃34;是一个带有XML文件路径的CheckBoxList。

返回错误＆＃34;对象引用未设置为对象的实例。＆＃34;因为＆＃34; SelectSingleNode（＆＃34; cProd＆＃34;）＆＃34;返回一个空值。

我认为我错误地放置了XPath。有人能帮助我吗？

谢谢你，对不起我的英语。

修改

它工作正常，我使用了一个函数来删除名称空间（来源：http://rprateek.blogspot.com.br/2011/01/how-to-remove-xmlns-namespace-from-xml.html）。然后我可以使用以下内容：xml.ChildNodes(0).SelectSingleNode("//cProd").InnerText

还有一件事。处理标签＆＃34; cProd＆＃34;可能导致的错误的最实用的方法是什么？（或另一个），文件中不存在？例如，在某些文件中，将没有标记＆＃34; NCM＆＃34;。也许我可以验证标签是否存在＆＃34; GetElementsByTagName（）＆＃34;？

谢谢大家。

Answer 1

如评论中所述，您无需希望通过节点到达您想要的节点;您可以设置整个XPath以查找所需的节点。

但是，您的XML存在一些问题：它有一个没有前缀的命名空间：

<sistema versao="1.02" xmlns="http://www.portalfiscal.inf.br/nfe">

这会对XPath查询进行一些修改，因为所有节点都有“无法看到”的默认名称空间前缀，但它仍然存在。

您有三种选择：

1.-从XML中删除命名空间......

<sistema versao="1.02">
<det>
<prod>
    <cProd>000085</cProd>
    <xProd>MARTELO</xProd>
    <NCM>73170090</NCM>
    <uCom>UN</uCom>
    <vUnCom>7.0000</vUnCom>
</prod>
<imposto>
    <ICMS>
        <orig>0</orig>
        <CST>500</CST>
    </ICMS>
</imposto>
</det>
</sistema>

...并使用

xml.ChildNodes(0).SelectSingleNode("//cProd").InnerText

或

xml.ChildNodes(0).SelectSingleNode("/sistema/det/prod/cProd").InnerText

2.-指定一个前缀（ns就是一个例子，你可以随意命名）...

<ns:sistema versao="1.02" xmlns:ns="http://www.portalfiscal.inf.br/nfe">
<ns:det>
<ns:prod>
    <ns:cProd>000085</ns:cProd>
    <ns:xProd>MARTELO</ns:xProd>
    <ns:NCM>73170090</ns:NCM>
    <ns:uCom>UN</ns:uCom>
    <ns:vUnCom>7.0000</ns:vUnCom>
</ns:prod>
<ns:imposto>
    <ns:ICMS>
        <ns:orig>0</ns:orig>
        <ns:CST>500</ns:CST>
    </ns:ICMS>
</ns:imposto>
</ns:det>
</ns:sistema>

...使用XmlNameSpaceManager ...

Dim manager as New XmlNameSpaceManager(xml.NameTable)

...并使用

xml.ChildNodes(0).SelectSingleNode("//ns:cProd", manager).InnerText

或

xml.ChildNodes(0).SelectSingleNode("/ns:sistema/ns:det/ns:prod/ns:cProd", manager).InnerText

3.-保留现在的XML，并使用

xml.ChildNodes(0).SelectSingleNode("//*[name()='cProd']").InnerText

或者这个小小的怪物

xml.ChildNodes(0).SelectSingleNode("/*[name()='sistema']/*[name()='det']/*[name()='prod']/*[name()='cProd']").InnerText

/*允许您忽略命名空间。

This question或this one可能会帮助您更好地理解问题。

Visual Basic中的XPath

1 个答案: