Запись данных в XML-документ, класс XmlTextWriter
26 октября 2006 года
Класс XmlTextWriter позволяет записывать данные в XML-документа. Свойства Formatting устанавливает, надо ли создавать отформатированный документ. Метод WriteComment записывает комментарий к документу, а методы WriteStartElement, WriteEndElement и WriteString конструируют открывающий и закрывающий теги, а также вводят текст в элемент.
Продемонстрируем работу с этими методами на следующем примере. Создайте форму, в которой расположите три надписи, три поля и две кнопки.
В код сгенерированный мастером проекта сначала добавьте директиву импорта пространства имен System.Xml
Imports System.Xml
А затем следующие инструкции:
Private filename As String = "c: est.xml"Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As XmlTextWriter = New XmlTextWriter(filename, Nothing) Try x.Formatting = Formatting.Indented x.WriteComment("Employee info") x.WriteStartElement("ListEmployee") x.WriteStartElement("Employee") x.WriteStartElement("FirstName") x.WriteString(TextBox1.Text) x.WriteEndElement() x.WriteStartElement("LastName") x.WriteString(TextBox2.Text) x.WriteEndElement() x.WriteEndElement() x.WriteEndElement() x.Flush() x.Close() Catch ex As Exception MessageBox.Show(ex.ToString) Finally x = Nothing End TryEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xmlDoc As XmlDocument = New XmlDocument() Try xmlDoc.PreserveWhitespace = True xmlDoc.Load(filename) MessageBox.Show(xmlDoc.InnerText, filename, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MessageBox.Show(ex.ToString) Finally xmlDoc = Nothing End TryEnd SubИсходник к статье можно скачать здесь.
Автор:
http://p-lib.pp.ru
Проголосуй:
Просмотров: 1542