VB.NET读取含冒号命名空间的XMP文件元素值求助

1. 命名空间映射准备 #

XMP文件里的带冒号的前缀对应特定的命名空间URI，必须先把这些映射关系定义好，才能正确查询节点。你可以从XMP文件的根节点（通常是<x:xmpmeta>）的xmlns属性里复制准确的URI，比如常见的映射：

• acdsee: → http://ns.acdsee.com/iptc/1.0/
• dc: → http://purl.org/dc/elements/1.1/
• lr: → http://ns.adobe.com/lightroom/1.0/
• rdf: → http://www.w3.org/1999/02/22-rdf-syntax-ns#（XMP常用的RDF结构命名空间）

2. XmlDocument 实现方案 #

如果用传统的XmlDocument处理，核心读取逻辑如下：

' 加载目标XMP文件
Dim xmpDoc As New XmlDocument()
xmpDoc.Load("你的XMP文件路径")

' 初始化命名空间管理器
Dim nsManager As New XmlNamespaceManager(xmpDoc.NameTable)
nsManager.AddNamespace("acdsee", "http://ns.acdsee.com/iptc/1.0/")
nsManager.AddNamespace("dc", "http://purl.org/dc/elements/1.1/")
nsManager.AddNamespace("lr", "http://ns.adobe.com/lightroom/1.0/")
nsManager.AddNamespace("rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#")

' 读取acdsee:notes字段
Dim notesNode As XmlNode = xmpDoc.SelectSingleNode("//acdsee:notes", nsManager)
Dim acdseeNotes As String = If(notesNode IsNot Nothing, notesNode.InnerText, "")

' 读取dc:subject下的所有标签（XMP用RDF Bag存储多值）
Dim dcSubjectNodes As XmlNodeList = xmpDoc.SelectNodes("//dc:subject/rdf:Bag/rdf:li", nsManager)
Dim dcSubjectList As New List(Of String)()
For Each node As XmlNode In dcSubjectNodes
    dcSubjectList.Add(node.InnerText)
Next

' 读取lr:hierarchicalSubject下的所有层级标签
Dim lrSubjectNodes As XmlNodeList = xmpDoc.SelectNodes("//lr:hierarchicalSubject/rdf:Bag/rdf:li", nsManager)
Dim lrHierarchicalList As New List(Of String)()
For Each node As XmlNode In lrSubjectNodes
    lrHierarchicalList.Add(node.InnerText)
Next

3. LINQ to XML（XDocument）实现方案 #

如果偏好更简洁的LINQ语法，用XDocument的实现如下：

' 加载XMP文件
Dim xDoc As XDocument = XDocument.Load("你的XMP文件路径")

' 定义命名空间
Dim acdseeNs As XNamespace = "http://ns.acdsee.com/iptc/1.0/"
Dim dcNs As XNamespace = "http://purl.org/dc/elements/1.1/"
Dim lrNs As XNamespace = "http://ns.adobe.com/lightroom/1.0/"
Dim rdfNs As XNamespace = "http://www.w3.org/1999/02/22-rdf-syntax-ns#"

' 读取acdsee:notes
Dim acdseeNotes = xDoc.Descendants(acdseeNs + "notes").FirstOrDefault()?.Value

' 读取dc:subject标签列表
Dim dcSubjectList = xDoc.Descendants(dcNs + "subject") _
                        .Elements(rdfNs + "Bag") _
                        .Elements(rdfNs + "li") _
                        .Select(Function(e) e.Value) _
                        .ToList()

' 读取lr:hierarchicalSubject层级标签列表
Dim lrHierarchicalList = xDoc.Descendants(lrNs + "hierarchicalSubject") _
                            .Elements(rdfNs + "Bag") _
                            .Elements(rdfNs + "li") _
                            .Select(Function(e) e.Value) _
                            .ToList()

4. 关键注意事项 #

• 命名空间URI必须完全匹配：一定要从你的XMP文件里复制实际的xmlns属性值，不能凭记忆填写，不同工具生成的XMP可能有细微差异。
• RDF结构适配：dc和lr的标签字段通常嵌套在<rdf:Bag>下的<rdf:li>节点里，查询路径要对应这个结构，否则会找不到节点。
• 空值处理：查询节点时要判断是否为Nothing，避免空引用异常。

内容的提问来源于stack exchange，提问作者Jake Smith