폴더 내의 XML 파일을 하나의 XML로 결합

Question

나는 아래 예제처럼 보이는 수백 개의 XML을 가지고 있는데,이 파일들을 하나로 결합하는 코드를 VB.NET에서 만들고 싶습니다.

Private Sub writeReport(result As Boolean, PingResult As Boolean, IpRangePing As Boolean, iSpan As TimeSpan, StartTime As DateTime, EndTime As DateTime, err As Boolean) 
If (Not System.IO.Directory.Exists(Me.FilePath + "\report")) Then 
    System.IO.Directory.CreateDirectory((Me.FilePath + "\report")) 
End If 
Dim writer As New XmlTextWriter(Me.FilePath + "\report\" + Me.Id.ToString + Me.HostName + ".xml", Nothing) 

writer.WriteStartDocument() 

writer.WriteStartElement("report") 

writer.WriteElementString("Host", Me.HostName.ToString) 
writer.WriteElementString("Ping", IpRangePing.ToString) 
writer.WriteElementString("PingResult", PingResult.ToString) 
writer.WriteElementString("start", StartTime.ToString) 
writer.WriteElementString("end", EndTime.ToString) 
writer.WriteElementString("id", Me.Id.ToString) 
writer.WriteElementString("Error", err.ToString) 
writer.WriteElementString("Total", iSpan.Hours.ToString.PadLeft(2, "0"c) & ":" & _ 
       iSpan.Minutes.ToString.PadLeft(2, "0"c) & ":" & _ 
       iSpan.Seconds.ToString.PadLeft(2, "0"c)) 
writer.WriteElementString("success", result.ToString) 
writer.WriteEndElement() 
writer.Close() 
End Sub 

을 그리고 내 계획은 각 사용하고 모든 XMLS을 읽은 다음 새를 만드는 것입니다 :

<report> 
<Host>10.10.10.4</Host> 
<Ping>True</Ping> 
<PingResult>True</PingResult> 
<start>27/08/2014 14:11:17</start> 
<end>27/08/2014 14:11:22</end> 
<id>86</id> 
<Total>00:00:05</Total> 
<success>False</success> 
</report> 

<report> 
<Host>10.10.10.5</Host> 
<Ping>True</Ping> 
<PingResult>True</PingResult> 
<start>27/08/2014 14:11:41</start> 
<end>27/08/2014 14:11:58</end> 
<id>86</id> 
<Total>00:00:17</Total> 
<success>False</success> 
</report> 

기능은 XMLS를 작성합니다.

Dim directory As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Me.FilePath + "\report\") 
Dim xmlFiles As System.IO.FileInfo() = directory .GetFiles("*.xml") 
For Each xmlFile As System.IO.FileInfo In xmlFiles 
    //To Do 
Next 

Answer 1

내가 해결책을했다, 나는 적어도하지만 적어도이 XSL 내가 찾은없는이 병합 될 또 다른 파일의 목록을 작성 출력 파일을 병합 한 함수를 작성해야하고, 여기 : http://p2p.wrox.com/83450-post4.html 덕분에 joefawcett하는

Private Sub MergeReports(filename As String, stylesheet As String) 
Dim doc As XmlDocument = New XmlDocument() 
doc.Load(filename) 

Dim root As XmlElement = doc.DocumentElement 
Dim elemList As XmlNodeList = root.GetElementsByTagName("Item") 
If elemList.Count.Equals(Me.TotalItems) Then 
    'Create the XslTransform and load the style sheet. 
    Dim settings As New XsltSettings(True, True) 
    Dim xslt As New XslCompiledTransform() 
    xslt.Load(stylesheet, settings, Nothing) 
    ' Execute the transform and output the results to a file. 
    xslt.Transform(filename, "C:\NW\out\report\output.xml") 
End If 
End Sub 


Private Sub CreateList() 
Try 
    If (Not System.IO.File.Exists(Me.FilePath + "\report\list.xml")) Then 
    Dim writer As New XmlTextWriter(Me.FilePath + "\report\list.xml", Nothing) 
    writer.WriteStartDocument() 
    writer.WriteStartElement("Data") 
    writer.WriteAttributeString("Root", "Root") 
    writer.WriteStartElement("fileList") 
    writer.WriteElementString("Item", Me.HostName.ToString) 
    writer.WriteEndElement() 
    writer.Close() 
    Else 
    Dim xmlDoc As XmlDocument = New XmlDocument() 
    xmlDoc.Load(Me.FilePath + "\report\list.xml") 
    With xmlDoc.SelectSingleNode("//Data/fileList").CreateNavigator().AppendChild() 
     .WriteElementString("Item", Me.FilePath + "\report\" + Me.HostName.ToString) 
     .Close() 

    End With 
    xmlDoc.Save(Me.FilePath + "\report\list.xml") 
    End If 
Catch ex As Exception 
    Console.WriteLine(ex.Message) 
End Try 
End Sub 

XSL

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> 
<xsl:template match="/"> 
    <xsl:element name="{Data/@Root}"> 
    <xsl:apply-templates select="Data/List/Item"/> 
    </xsl:element> 
</xsl:template> 
<xsl:template match="Item">  
<xsl:copy-of select="document(.)"/> 
</xsl:template> 

파일 목록 :

<Data Root="Root"> 
    <List> 
    <Item>C:\NW\out\report\File1.xml</Item> 
    <Item>C:\NW\out\report\File2.xml</Item> 
    <Item>C:\NW\out\report\File3.xml</Item> 
    </List> 
</Data>