在 vb .net 中使用名称空间前缀解析 XML

Question

我对 vb .net 还是很陌生，自从我处理 XML 解析以来已经很长时间了。

我得到了以下 XML 文件：

<?xml version="1.0" encoding="ISO-8859-15"?>
<tns:keyitem_list_test xmlns:tns="http://someurl.com/abc/def">
  <tns:name>test.keyitem</tns:name>
  <tns:type>test.IKeyItemListDataObject</tns:type>
  <tns:keyitem>
    <tns:cataloge>testCat</tns:cataloge>
    <tns:seq_nr>1</tns:seq_nr>
    <tns:keyvalue>01</tns:keyvalue>
    <tns:keyvalue_alt>test1</tns:keyvalue_alt>
    <tns:keytext>test text 1</tns:keytext>
    <tns:keyhelpertext />
    <tns:is_temp>false</tns:is_temp>
  </tns:keyitem>
  <tns:keyitem>
    <tns:cataloge>testCat</tns:cataloge>
    <tns:seq_nr>2</tns:seq_nr>
    <tns:keyvalue>02</tns:keyvalue>
    <tns:keyvalue_alt>test2</tns:keyvalue_alt>
    <tns:keytext>test text 2</tns:keytext>
    <tns:keyhelpertext />
    <tns:is_temp>false</tns:is_temp>
  </tns:keyitem>
...
</tns:keyitem_list_test>

XML 从 POST 请求返回并保存在变量中。我想提取所有的 tns:keyvalue 标签。

Dim doc = New Xml.XmlDocument()
doc.LoadXml(retVal.return)

Dim nsm = New Xml.XmlNamespaceManager(doc.NameTable)
nsm.AddNamespace("tns", "http://someurl.com/abc/def")
Dim value = doc.SelectSingleNode("/tns:keyvalue", nsm).InnerText

我的问题是价值总是“无”。我尝试了不同的东西，但没有奏效，我不知道为什么。我认为这与命名空间前缀有关。

Answer 1

直接问题在于您的 XPath 表达式：

Dim value = doc.SelectSingleNode("/tns:keyvalue", nsm).InnerText

这只是寻找一个名为keyvalue 的根 元素。如果你改变它来寻找后代，你会找到第一个 keyvalue 节点：

Dim value = doc.SelectSingleNode("//tns:keyvalue", nsm).InnerText

或者查找所有节点，而不仅仅是第一个：

Dim nodes = doc.SelectNodes("//tns:keyvalue", nsm)
For Each node as Xml.XmlNode in nodes
    Console.WriteLine(node.InnerText)
Next

但是，如果可以的话，我建议使用 LINQ to XML，它具有更简洁的命名空间支持，并且更好地支持不使用 XPath 的查询：

Dim doc = XDocument.Parse(retVal.return)
Dim ns As XNamespace = "http://someurl.com/abc/def"
Dim elements = doc.Descendants(ns + "keyvalue")
For Each element in elements
    Console.WriteLine(element.Value)
Next