Linq到Xml和命名空間前綴

Question

我正在使用Linq to Xml來操作openXml文檔。 更確切地說，我正在嘗試讀取和寫入文檔自定義屬性。 我目前在向XElement添加前綴時遇到問題。 我的代碼看起來像：

Dim main as XNameSpace = "http://schemas.openxmlformats.org/officeDocument/2006/custom-properties"

Dim vt as XNameSpace = "http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes"

Dim props as XElement = cXDoc.Element(main + "Properties"
        props.Add(New XElement(main + "property"), _
                               New XAttribute("fmtid", formatId), _
                               New XAttribute("pid", pid + 1), _
                               New XAttribute("name", "test"), _
                                    New XElement(vt + "lpwstr", "test value")) _
                 )

添加之前包含在道具中的Xml是：

<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/custom-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes" />

props.add方法（）調用后的Xml是：

   <Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/custom-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes">
  <property fmtid="{D5CDD505-2E9C-101B-9397-08002B2CF9AE}" pid="2" name="test">
    <lpwstr xmlns="http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes">test value</lpwstr>
  </property>
</Properties>

在我應該得到的屬性元素內

<vt:lpwstr>test value</vt:lpwstr> 

但是不能讓這件事發生。 我也不希望這個元素的xmlns屬性。 我想我在某種程度上需要將映射vt XNameSpace返回到根元素“Properties”中的命名空間聲明。 有沒有人有什么建議？

Answer 1

在XElement中的某個位置，您需要定義前綴。 這里是如何通過將vt xmlns放在頂部，通過將其添加為XAttribute來實現的： New XAttribute(XNamespace.Xmlns + "vt", "http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes")

Dim main As XNamespace = "http://schemas.openxmlformats.org/officeDocument/2006/custom-properties"
Dim vt As XNamespace = "http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes"
Dim formatId = "{D5CDD505-2E9C-101B-9397-08002B2CF9AE}"
Dim pid = "2"
Dim props As New XElement(main + "Properties", New XAttribute(XNamespace.Xmlns + "vt", "http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes"))
props.Add(New XElement(main + "property"), _
                       New XAttribute("fmtid", formatId), _
                       New XAttribute("pid", pid + 1), _
                       New XAttribute("name", "test"), _
                            New XElement(vt + "lpwstr", "test value"))

XML Literals和全局命名空間可能更容易，但您仍然需要在父級別的XML中列出vt 。 這是一個XML Literals示例（記得將兩個Imports語句放在類/模塊的頂部，高於其他所有內容）：

Imports <xmlns="http://schemas.openxmlformats.org/officeDocument/2006/custom-properties">
Imports <xmlns:vt="http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes">
    Sub GetXml()
        Dim formatId = "{D5CDD505-2E9C-101B-9397-08002B2CF9AE}"
        Dim pid = "2"
        Dim props2 = <Properties>
                         <property fmtid=<%= formatId %> pid=<%= pid + 1 %> name="test">
                             <vt:lpwstr>test value</vt:lpwstr>
                         </property>
                     </Properties>
        MsgBox(props2.ToString)
    End Sub

Answer 2

我發現控制名稱空間聲明位置的方法是使用Xml Literals。 我還必須從頭開始重新創建文檔，並將舊文檔中的任何現有信息復制到我新創建的文檔中，這是不理想的。 上面的示例中還有一個錯誤，足以在運行代碼后使任何Office文檔損壞。

Dim vt as XNameSpace = "http://schemas.openxmlformats.org/officeDocument2006/docPropsVTypes"

應該讀

Dim vt as XNameSpace = "http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"