Imports System.Xml
Module Module1
    Sub Main()
        XMLwriterDemo()
        'XMLreaderDemo()
        'Console.ReadLine()
    End Sub

    Private Sub XMLwriterDemo()
        ' http://samples.gotdotnet.com/QuickStart/howto/default.aspx?url=/quickstart/howto/doc/Xml/WriteXMLFile.aspx
        Dim strDataFile As String = "C:\Data\newbooks.xml"
        Dim myXmlTextWriter As XmlTextWriter = New XmlTextWriter(strDataFile, Nothing)

        myXmlTextWriter.Formatting = System.Xml.Formatting.Indented
        myXmlTextWriter.WriteStartDocument(False)
        ' myXmlTextWriter.WriteDocType("bookstore", Nothing, "books.dtd", Nothing)
        myXmlTextWriter.WriteComment("This file represents another fragment of a book store inventory database")
        myXmlTextWriter.WriteStartElement("bookstore")

        myXmlTextWriter.WriteStartElement("book", Nothing)
        myXmlTextWriter.WriteAttributeString("genre", "autobiography")
        myXmlTextWriter.WriteAttributeString("publication_date", "1979")
        myXmlTextWriter.WriteAttributeString("ISBN", "0-7356-0562-9")
        myXmlTextWriter.WriteElementString("title", Nothing, "The Autobiography of Mark Twain")
        myXmlTextWriter.WriteStartElement("Author", Nothing)
        myXmlTextWriter.WriteElementString("first-name", "Mark")
        myXmlTextWriter.WriteElementString("last-name", "Twain")
        myXmlTextWriter.WriteEndElement()
        myXmlTextWriter.WriteElementString("price", "7.99")
        myXmlTextWriter.WriteEndElement()

        myXmlTextWriter.WriteStartElement("book", Nothing)
        myXmlTextWriter.WriteAttributeString("genre", "autobiography")
        myXmlTextWriter.WriteAttributeString("publication_date", "2005")
        myXmlTextWriter.WriteAttributeString("ISBN", "140003003X")
        myXmlTextWriter.WriteElementString("title", Nothing, "My Life")
        myXmlTextWriter.WriteElementString("Format", Nothing, "Paperback")
        myXmlTextWriter.WriteElementString("Pages", Nothing, "1056")
        myXmlTextWriter.WriteStartElement("Author", Nothing)
        myXmlTextWriter.WriteElementString("first-name", "Bill")
        myXmlTextWriter.WriteElementString("last-name", "Clinton")
        myXmlTextWriter.WriteEndElement()
        myXmlTextWriter.WriteElementString("price", "17.95")
        myXmlTextWriter.WriteEndElement()


        myXmlTextWriter.WriteEndElement()

        'Write the XML to file and close the myXmlTextWriter
        myXmlTextWriter.Flush()
        myXmlTextWriter.Close()
        System.Diagnostics.Process.Start(strDataFile)


    End Sub

    Private Sub XMLreaderDemo()
        ' http://support.microsoft.com/default.aspx?scid=kb;EN-US;q301225
        Dim reader As XmlTextReader = New XmlTextReader("C:\Data\books.xml")
        Do While (reader.Read())
            Select Case reader.NodeType
                Case XmlNodeType.Element 'Display beginning of element.
                    Console.WriteLine("=================================")
                    Console.WriteLine("Depth = " + reader.Depth.ToString)
                    Console.WriteLine("Element [" + reader.Name + "]")
                    If reader.HasAttributes Then 'If attributes exist
                        While reader.MoveToNextAttribute()
                            Console.Write("   Attribute [")
                            Console.Write(reader.Name)
                            Console.WriteLine("] = {0}", reader.Value)
                        End While
                    End If
                Case XmlNodeType.Text 'Display the text in each element.
                    Console.Write("   Value = ")
                    Console.WriteLine(reader.Value)
            End Select
        Loop

    End Sub
End Module