________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

For Each xNode As Xml.XmlNode In XmlNodes
                For i = 1 To nodes
                    datei = "xml" & i & ".xml"
                    FileOpen(1, datei, OpenMode.Output)
                    PrintLine(1, "<?xml version=""1.0""" & _
                      "encoding=""UTF-8""?><xml><item>" & _
                      xNode.InnerXml.ToString & "</xml></item>")
                    FileClose(1)
                Next
            Next
            'xNode.InnerXml.ToString
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "ReadXMLAttributes")
        End Try

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim textWriter As XmlTextWriter = New XmlTextWriter(datei, UTF8)

Zitat:

Fehler bei der Überladungsauflösung, da keine zugreifbare "New" ohne einschränkende Konvertierung aufgerufen werden kann: "Public Sub New(filename As String, encoding As System.Text.Encoding)": Der mit dem Argument übereinstimmende Parameter "filename" wird von "Object" auf "String" reduziert. "Public Sub New(w As System.IO.Stream, encoding As System.Text.Encoding)": Der mit dem Argument übereinstimmende Parameter "w" wird von "Object" auf "System.IO.Stream" reduziert

        Dim datei As String = "C:\Users\DaveS\Test\myxml.xml"
        Dim xtw As New XmlTextWriter(datei, System.Text.Encoding.UTF8)

        Dim xs As New XmlWriterSettings
        xs.Encoding = System.Text.Encoding.UTF8
        Dim xw As XmlWriter = XmlWriter.Create(datei, xs)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist