كتابة ملف xml - مكتبة أكواد VB.NET

' Create a new XmlTextWriter object
        Dim objWriter As New System.Xml.XmlTextWriter( _
        "c:\mydocument.xml", System.Text.Encoding.UTF8)
        With objWriter
            ' Set the formatting to use neat indentations
            .Formatting = Xml.Formatting.Indented
            ' Write document opening
            .WriteStartDocument()
            ' Begin core XML
            .WriteStartElement("articles")
            ' First article...
            .WriteStartElement("article")
            .WriteAttributeString("id", "10")
            .WriteElementString("site", "VB-World")
            .WriteElementString("type", "codesnippet")
            .WriteElementString("author", "Karl Moore")
            ' Write list of associated pages
            .WriteStartElement("pages")
            .WriteStartElement("page")
            .WriteAttributeString("number", "1")
            .WriteElementString("title", "My Title")
            .WriteElementString("body", "This is my body text")
            .WriteEndElement()
            .WriteStartElement("page")
            .WriteAttributeString("number", "2")
            .WriteElementString("title", "My Second Title")
            .WriteElementString("body", "This is my 2nd body text")
            ' Close open elements
            .WriteEndElement()
            .WriteEndElement()
            .WriteEndElement()
            .WriteEndElement()
            ' ... Add any further articles here ...
            ' Close document
            .WriteEndDocument()
            .Flush()
            .Close()
        End With

Please SUBSCRIBE to get new articles directly into your Email inbox!