vb.net добавить пустой тег с форматом - PullRequest
Новая
       29

vb.net добавить пустой тег с форматом

0 голосов
/ 07 апреля 2019

У меня есть XML-файл, который создается моим приложением vb.net, если не найден следующий код: 

  If Not System.IO.File.Exists(Application.StartupPath & "\XML\DATA.xml") Then
            Dim myWriter As New XmlTextWriter((Application.StartupPath & "\XML\DATA.xml"), System.Text.Encoding.UTF8)
            myWriter.WriteStartDocument(True)
            myWriter.Formatting = Formatting.Indented
            myWriter.Indentation = 2

            myWriter.WriteStartElement("ID")

            myWriter.WriteEndDocument()
            myWriter.Close()

Это, однако, создает теги, которые, если внутренний текст не поставляется, выглядят так: 

<DATA />

вместо 

<DATA></DATA>

Что меня действительно не беспокоит, кроме как сейчас, если я хочу добавить тег <DATA /> следующим образом: 

Dim myDocXml As New XmlDocument()
        myDocXml.Load(Application.StartupPath & "\XML\DATA.xml")

Dim myNode As XmlNode = myDocXml.SelectSingleNode(".//DATA/ID")

        If myNode IsNot Nothing Then
            myNode.ChildNodes(0).InnerText = TextBox1.Text
        Else
            myeNode.Item(0).InnerText = TextBox1.Text
        End If

mysDocXml.Save(Application.StartupPath & "\XML\DATA.xml")

В этом случае при отладке мне теперь предлагается указать, что ссылка на объект не установлена ​​на экземпляр объекта.

как добавить такой формат тега?

...