Hallo alle zusammen,
ich habe folgende Frage zu einem XML Writer wo ich nicht ganz weiterkomme.
Ich hoffe das es überhaupt möglich ist.
Ich habe eine TXT Datei mit mehreren Zeilen Inhalt. (BSP 10 Zeilen = 10 verschiedene Datensätze)
Nun möchte ich diese in jeweils getrennte XML Dateien schreiben.
Der XML Writer ist soweit fertig und Funktioniert auch, nur leider schreibt er mir alle 10 Datensätze ich einer XML untereinander.
So kann ich diese aber leider nicht weiterverarbeiten.
Kann mir da einer helfen?
ich habe folgende Frage zu einem XML Writer wo ich nicht ganz weiterkomme.
Ich hoffe das es überhaupt möglich ist.
Ich habe eine TXT Datei mit mehreren Zeilen Inhalt. (BSP 10 Zeilen = 10 verschiedene Datensätze)
Nun möchte ich diese in jeweils getrennte XML Dateien schreiben.
Der XML Writer ist soweit fertig und Funktioniert auch, nur leider schreibt er mir alle 10 Datensätze ich einer XML untereinander.
So kann ich diese aber leider nicht weiterverarbeiten.
Kann mir da einer helfen?
Visual Basic-Quellcode
- Imports System.Xml
- Imports System.Text
- Public Class Form1
- Dim file As String = ""
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ' Read the text document and put in in an array
- Dim myText As String = My.Computer.FileSystem.ReadAllText(file) ', System.Text.Encoding.Default).Split(vbCrLf)
- Dim ary As String() = myText.Split(vbCrLf)
- ' Define the xml text writer
- Dim writer As New XmlTextWriter(file & ".xml", Encoding.Unicode)
- ' Use indenting
- writer.Formatting = Formatting.Indented
- writer.Indentation = 4
- ' Start the document. This is the header stating this is xml 1.0.
- writer.WriteStartDocument(True)
- ' Write the main element
- writer.WriteStartElement("OpenShipments")
- writer.WriteAttributeString("xmlns", "x-schema:OpenShipments.xdr")
- writer.WriteStartElement("OpenShipment")
- writer.WriteAttributeString("ShipmentOption", "")
- writer.WriteAttributeString("ProcessStatus", "")
- ' Now write the data for each element in the array
- For x As Integer = 0 To ary.Length - 2
- WriteRSData(writer, ary(x))
- Next
- ' Close the Contacts element
- writer.WriteEndElement()
- writer.WriteEndElement()
- ' Close the document
- writer.WriteEndDocument()
- ' Close the writer
- writer.Close()
- TextBox2.Text = "Datei erfolgreich konvertiert in " & (file) & ".xml"
- 'MsgBox("Fertig")
- Button2.Visible = True
- Button1.Visible = False
- End Sub
- Private Sub WriteRSData(ByVal wr As XmlWriter, ByVal str As String)
- ' Break string into attributes
- Dim ary As String() = str.Split(vbTab)
- ' Write element name
- wr.WriteStartElement("ShipFrom")
- wr.WriteStartElement("CompanyOrName")
- wr.WriteString(ary(1))
- wr.WriteEndElement()
- wr.WriteStartElement("Attention")
- wr.WriteString(ary(2))
- wr.WriteEndElement()
- wr.WriteStartElement("Address1")
- wr.WriteString(ary(3))
- wr.WriteEndElement()
- 'wr.WriteStartElement("Address2")
- 'wr.WriteString(ary(?))
- 'wr.WriteEndElement()
- wr.WriteStartElement("Telephone")
- wr.WriteString(ary(16))
- wr.WriteEndElement()
- wr.WriteStartElement("PostalCode")
- wr.WriteString(ary(4))
- wr.WriteEndElement()
- wr.WriteStartElement("CityOrTown")
- wr.WriteString(ary(5))
- wr.WriteEndElement()
- wr.WriteStartElement("CountryTerritory")
- wr.WriteString(ary(6))
- wr.WriteEndElement()
- wr.WriteEndElement()
- ' Write element name
- wr.WriteStartElement("ShipTo")
- wr.WriteStartElement("CompanyOrName")
- wr.WriteString(ary(1))
- wr.WriteEndElement()
- wr.WriteStartElement("Attention")
- wr.WriteString(ary(2))
- wr.WriteEndElement()
- wr.WriteStartElement("Address1")
- wr.WriteString(ary(3))
- wr.WriteEndElement()
- wr.WriteStartElement("Address2")
- wr.WriteString(ary(4))
- wr.WriteEndElement()
- wr.WriteStartElement("Address3")
- wr.WriteString(ary(5))
- wr.WriteEndElement()
- wr.WriteStartElement("CityOrTown")
- wr.WriteString(ary(7))
- wr.WriteEndElement()
- wr.WriteStartElement("PostalCode")
- wr.WriteString(ary(6))
- wr.WriteEndElement()
- wr.WriteStartElement("CountryTerritory")
- wr.WriteString(ary(8))
- wr.WriteEndElement()
- wr.WriteEndElement()
- 'ShipmentInformation
- wr.WriteStartElement("ShipmentInformation")
- wr.WriteStartElement("ShipperNumber")
- wr.WriteString(ary(0))
- wr.WriteEndElement()
- wr.WriteStartElement("ServiceType")
- wr.WriteString(ary(9))
- 'wr.WriteString("RS")
- wr.WriteEndElement()
- 'wr.WriteStartElement("BillingOption")
- 'wr.WriteString("PP")
- 'wr.WriteEndElement()
- wr.WriteStartElement("DescriptionOfGoods")
- wr.WriteString(ary(7))
- wr.WriteEndElement()
- wr.WriteStartElement("Reference1")
- wr.WriteString(ary(11))
- wr.WriteEndElement()
- wr.WriteStartElement("Reference2")
- wr.WriteString(ary(12))
- wr.WriteEndElement()
- wr.WriteStartElement("Reference3")
- wr.WriteString(ary(15))
- wr.WriteEndElement()
- wr.WriteEndElement()
- 'FreightShipmentInformation
- wr.WriteStartElement("FreightShipmentInformation")
- wr.WriteStartElement("PickupDate")
- wr.WriteString(ary(13))
- wr.WriteEndElement()
- wr.WriteEndElement()
- End Sub