使用.rss文件在报告XML中添加新的子节点

Question

我无法弄清楚如何在Page XML元素下添加节点。我尝试添加缺少的节点，但只能将它们添加到XML脚本的末尾。如果节点已经存在，我可以修改它们但不能添加它们。我的脚本通过将节点从模板报告复制到报表服务器上的每个报表来修改报表XML。这是为部署到报表服务器的每个报表维护一致的页眉和页脚。

修改XML的脚本

Public Sub Main()
    '--------------------------------------------------------------------------------------------------------------------
    ' Purpose:   Script to apply custom header and footer from a template report to all reports on ReportServer
    ' Notes:     uses Mgmt2010 endpoint / executable against stand alone or SharePoint integrated instance
    '            Save file as .rss extension and run using rs.exe from command line.
    ' Reference: https://jaredzagelbaum.wordpress.com/2014/11/14/update-all-ssrs-reportheaders/
    '            https://docs.microsoft.com/en-us/sql/reporting-services/tools/rs-exe-utility-ssrs?view=sql-server-2017
    ' Example:   rs -s http://localhost/reportserver -i D:\Scripts\Apply_Header_Footer.rss -e Mgmt2010 -v parentFolder="Test"
    '--------------------------------------------------------------------------------------------------------------------
    Dim reportDefinition As Byte() = Nothing
    Dim templateDoc As New System.XML.XmlDocument
    Dim reportDoc As New System.XML.XmlDocument
    Dim nsmanager As New XmlNamespaceManager(templateDoc.NameTable)
    Dim templatePath As String = "/_Custom/Template"
    Dim templateHeader As System.XML.XmlElement = Nothing
    Dim templateFooter As System.XML.XmlElement = Nothing
    Dim reportHeader As System.XML.XmlElement = Nothing
    Dim reportFooter As System.XML.XmlElement = Nothing
    Dim reportPage As System.XML.XmlElement = Nothing
    nsmanager.AddNamespace("rd", "http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition")
    Dim items As CatalogItem() = rs.ListChildren("/", True)

    parentFolder = "/" + parentFolder

    Try
        For Each item As CatalogItem In items
            If item.TypeName = "Report" And item.Path = templatePath Then
                reportDefinition = rs.GetItemDefinition(item.Path)
                Dim stream1 As New MemoryStream(reportDefinition)
                templateDoc.Load(stream1)
                stream1.Dispose()
                Exit For
            End If
        Next

        templateHeader = templateDoc.SelectSingleNode("/rd:Report/rd:ReportSections/rd:ReportSection/rd:Page/rd:PageHeader", nsmanager)
        templateFooter = templateDoc.SelectSingleNode("/rd:Report/rd:ReportSections/rd:ReportSection/rd:Page/rd:PageFooter", nsmanager)

        For Each item As CatalogItem In items
            If item.TypeName = "Report" And (item.Path.StartsWith(parentFolder)) And Not (item.Name.StartsWith("SubRep")) Then
                reportDefinition = rs.GetItemDefinition(item.Path)
                Dim stream2 As New MemoryStream(reportDefinition)
                Dim outstream2 As New MemoryStream()
                reportDoc.Load(stream2)
                Console.WriteLine("Report: " + item.Name)
                Console.WriteLine("Report Path: " + item.Path)
                reportHeader = reportDoc.SelectSingleNode("/rd:Report/rd:ReportSections/rd:ReportSection/rd:Page/rd:PageHeader", nsmanager)
                reportFooter = reportDoc.SelectSingleNode("/rd:Report/rd:ReportSections/rd:ReportSection/rd:Page/rd:PageFooter", nsmanager)
                reportPage = reportDoc.SelectSingleNode("/rd:Report/rd:ReportSections/rd:ReportSection/rd:Page", nsmanager)
                Try
                    reportHeader.InnerXml = templateHeader.InnerXml
                    Console.WriteLine("Update Header: " + item.Path)
                Catch ex As NullReferenceException
                    Console.WriteLine("Add Header: " + item.Path)
                End Try
                Try
                    reportFooter.InnerXml = templateFooter.InnerXml
                    Console.WriteLine("Update Footer: " + item.Path)
                Catch ex As NullReferenceException
                    Console.WriteLine("Add Footer: " + item.Path)
                End Try
                reportDoc.Save(outstream2)
                reportDefinition = outstream2.ToArray()
                rs.SetItemDefinition(item.Path, reportDefinition, Nothing)
                stream2.Dispose()
                outstream2.Dispose()
            End If
        Next

    Catch ex As Exception
        Console.WriteLine(ex.ToString())

    End Try

End Sub

我尝试添加缺少的节点

Console.WriteLine("attempt 1..." + item.Path)
Dim root As XmlNode = reportDoc.DocumentElement
root.AppendChild(templateHeader)
Dim elem As System.XML.XmlElement = reportDoc.CreateElement("PageHeader")
reportDoc.DocumentElement.AppendChild(elem)
reportDoc.Save(Console.Out)


Console.WriteLine("attempt 2..." + item.Path)
Dim newHeader As XmlNode = reportDoc.ImportNode(templateHeader, True)
reportPage.InsertAfter(templateHeader, reportPage.LastChild) 
reportDoc.Save(Console.Out)


Console.WriteLine("attempt 3..." + item.Path)
Dim elem As System.XML.XmlElement = reportDoc.CreateElement("PageHeader")
Dim docNodes As System.XML.XmlNodeList = reportDoc.LastChild.ChildNodes()

For Each node As System.XML.XmlNode In docNodes
    If node.Name = "rd:Page" Then
        node.AppendChild(elem)
    End If
Next
reportDoc.Save(Console.Out)

我希望添加的节点的XML模板示例在

下面突出显示

参考文献：

Original Script for .rss file

Microsoft Reference for rs.exe

Answer 1

正如我们所说，

您的目标是创建原件的副本，进行必要的修改，然后保存修改后的文件。

在处理.Net中的配置设置（应用程序和/或Web）时，我发现我必须这样做。