Сохраняйте xml файлов отдельно с помощью vb.net

Question

Добрый вечер, я уже умею записывать xml файлов в один и тот же файл, теперь дело в том, как я пишу файлы теперь отдельно, например: файл 1, файл 2, файл 3 ... Может кто подскажет как в угоду ... Для каждого xml напишите по одному xml отдельно.

В настоящее время я пишу такие файлы, и он работает хорошо, но мне нужно сделать xml файл отдельно

                        Dim configuracionArchivo As New XmlWriterSettings

                    configuracionArchivo.Indent = True



                    Using escribiendoFactura As XmlWriter = XmlWriter.Create("Facturas.xml", configuracionArchivo)
                        With escribiendoFactura


                            'Write the xml declaration
                            .WriteStartDocument()


                            .WriteStartElement("Facturas")

                            .WriteStartElement("Factura")


                            '.WriteStartElement("FechaCompra")
                            '.WriteString(lblFecha.Text)
                            '.WriteEndElement()

                            'Nodos de factura
                            .WriteStartElement("CedulaJuridica")
                            .WriteString(txtCedulaJuridica.Text.ToString)
                            .WriteEndElement()

                            



                            .WriteEndElement()

                            .WriteEndDocument()

                            .Flush()
                            .Close()

Answer 1

Один из способов - создать переменную уровня класса FileNumber. Затем увеличивайте его при каждом вызове Sub. Просто прикрепите FileNumber к имени файла.

Не вызывайте .ToString для свойства .Text; это уже строка.

Нет необходимости вызывать .Close, если у вас есть блок Using.

Private FileNumber As Integer

Private Sub OPCode()
    Dim configuracionArchivo As New XmlWriterSettings
    configuracionArchivo.Indent = True
    Using escribiendoFactura As XmlWriter = XmlWriter.Create($"Facturas{FileNumber}.xml", configuracionArchivo)
        With escribiendoFactura
            'Write the xml declaration
            .WriteStartDocument()
            .WriteStartElement("Facturas")
            .WriteStartElement("Factura")
            '.WriteStartElement("FechaCompra")
            '.WriteString(lblFecha.Text)
            '.WriteEndElement()
            'Nodos de factura
            .WriteStartElement("CedulaJuridica")
            .WriteString(txtCedulaJuridica.Text)
            .WriteEndElement()
            .WriteEndElement()
            .WriteEndDocument()
            .Flush()
        End With
    End Using
    FileNumber += 1
End Sub

Answer 2

Измените бит, который говорит:

XmlWriter.Create("Facturas.xml", ...

Таким образом, он говорит что-то еще для имени файла, например «facturas2. xml» ..