в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:36Z

1 версия

Новая страница

==Build an XML Document==

<source lang="vbnet">
Imports System
Imports System.Xml
Imports System.IO
Public Class MainClass
Shared Sub Main()
Dim memory_stream As New MemoryStream()
Dim xml_text_writer As New XmlTextWriter(memory_stream, System.Text.Encoding.UTF8)
xml_text_writer.Formatting = Formatting.Indented
xml_text_writer.Indentation = 4
xml_text_writer.WriteStartDocument(True)
xml_text_writer.WriteStartElement("Employees")
MakeEmployee(xml_text_writer, "A", "A", 1)
MakeEmployee(xml_text_writer, "B", "B", 2)
MakeEmployee(xml_text_writer, "C", "C", 3)
xml_text_writer.WriteEndElement()
xml_text_writer.WriteEndDocument()
xml_text_writer.Flush()
Dim stream_reader As New StreamReader(memory_stream)
memory_stream.Seek(0, SeekOrigin.Begin)
Console.WriteLine( stream_reader.ReadToEnd())
xml_text_writer.Close()
End Sub
" Add a node to the document.
Shared Private Sub MakeEmployee(ByVal xml_text_writer As XmlTextWriter, ByVal first_name As String, ByVal last_name As String, ByVal emp_id As Integer)
" Start the Employee element.
xml_text_writer.WriteStartElement("Employee")
" Write the FirstName.
xml_text_writer.WriteStartElement("FirstName")
xml_text_writer.WriteString(first_name)
xml_text_writer.WriteEndElement()
" Write the LastName.
xml_text_writer.WriteStartElement("LastName")
xml_text_writer.WriteString(last_name)
xml_text_writer.WriteEndElement()
" Write the EmployeeId.
xml_text_writer.WriteStartElement("EmployeeId")
xml_text_writer.WriteString(emp_id.ToString)
xml_text_writer.WriteEndElement()
" Close the Employee element.
xml_text_writer.WriteEndElement()
End Sub
End Class

</source>

==Create XML document: XmlDocument, XmlAttribute, XmlElement==

<source lang="vbnet">
Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Collections
Imports System.Data
Imports System.Windows.Forms

Public Class MainClass

Shared Sub Main()
Dim FakeQuantity As Integer
Dim Doc As New XmlDocument()
Dim newAtt As XmlAttribute
Dim TempNode As XmlElement
" Use the XmlDeclaration class to place the
" <?xml version="1.0"?> declaration at the top of our XML file
Dim dec As XmlDeclaration = Doc.CreateXmlDeclaration("1.0", _
Nothing, Nothing)
Doc.AppendChild(dec)
Dim DocRoot As XmlElement = Doc.CreateElement("Orders")
Doc.AppendChild(DocRoot)
" Generate a couple of phony orders
Dim x As Integer
For x = 0 To 11
Dim Order As XmlNode = Doc.CreateElement("Order")
newAtt = Doc.CreateAttribute("Quantity")
FakeQuantity = 10 * x + x
newAtt.Value = FakeQuantity.ToString()
Order.Attributes.Append(newAtt)
DocRoot.AppendChild(Order)
Next
Doc.Save("OutDocument.xml")
End Sub
End Class

</source>

==Creating Xml with XmlTextWriter==

<source lang="vbnet">
Imports System.IO
Imports System.Xml
Public Class Form1
Public Shared Sub Main()
Dim fs As FileStream = New FileStream("aaa", FileMode.Create)
Dim w As XmlTextWriter = New XmlTextWriter(fs, Nothing)
w.WriteStartDocument()
w.WriteStartElement("mydocument")
w.WriteAttributeString("name", "", "Description")
w.WriteComment("This is the comment, etc.")
w.WriteStartElement("person")
w.WriteStartElement("name")
w.WriteString("M")
w.WriteEndElement()
w.WriteStartElement("phone")
w.WriteString("555-5555")
w.WriteEndElement()
w.WriteEndElement()
w.WriteEndElement()
w.WriteEndDocument()
w.Close()
End Sub
End Class

</source>

==Output with XmlWriter==

<source lang="vbnet">
Imports System.Xml
Public Class Example5
Shared Sub Main
Dim writer As XmlWriter
writer = XmlWriter.Create("output.xml")
writer.WriteStartDocument()
writer.WriteStartElement("pubs")
writer.WriteStartElement("titles")
writer.WriteStartAttribute("name")
writer.WriteValue("Database Guide")
writer.WriteEndAttribute()
writer.WriteStartAttribute("price")
writer.WriteValue(19.99)
writer.WriteEndAttribute()
writer.WriteEndElement()
writer.WriteEndElement()
writer.Close()
End Sub
End Class

</source>

==Read and write XML with XmlReader and XmlWriter==

<source lang="vbnet">
Imports System.Xml
Public Class Example1
Shared Sub Main()
Dim reader As XmlReader
Dim writer As XmlWriter
reader = XmlReader.Create("pubs.xml")
writer = XmlWriter.Create("output.xml")
While reader.Read()
writer.WriteNode(reader, True)
End While
reader.Close()
writer.Close()
End Sub
End Class

</source>

==Use XmlWriter to generate XML document==

<source lang="vbnet">
Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO

Public Class MainClass
Public Shared Sub Main()
Dim myXmlSettings As New XmlWriterSettings
myXmlSettings.Indent = True
myXmlSettings.NewLineOnAttributes = True
Using ProductWriter As XmlWriter = XmlWriter.Create("test.xml", myXmlSettings)
ProductWriter.WriteComment("www.vbex.ru ")
ProductWriter.WriteStartElement("Product")
ProductWriter.WriteAttributeString("Id", "101")
ProductWriter.WriteAttributeString("COunt", "10")
ProductWriter.WriteElementString("P1", "P2")
ProductWriter.WriteEndElement()
End Using
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/XML/XML File Creation - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия