XML ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. XML
  4. Use XmlTextWriter to create XML document, then use XmlTextReader to read it back
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="MyPage" %>



    Untitled Page


    
    

        
        
        
    
    

    


File: Default.aspx.vb
Imports System.Xml
Imports System.IO
Partial Class MyPage
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.result.Text = ""
        Dim xmlTW As New XmlTextWriter("Data.xml", Nothing)
        xmlTW.WriteStartDocument()
        xmlTW.WriteStartElement("A")
        xmlTW.WriteStartElement("B")
        xmlTW.WriteAttributeString("C", "D", "E")
        xmlTW.WriteStartElement("F")
        xmlTW.WriteString("97")
        xmlTW.WriteEndElement()
        xmlTW.WriteEndElement()
        xmlTW.WriteStartElement("G")
        xmlTW.WriteAttributeString("H", "I", "J")
        xmlTW.WriteStartElement("K")
        xmlTW.WriteString("99")
        xmlTW.WriteEndElement()
        xmlTW.WriteStartElement("L")
        xmlTW.WriteString("95")
        xmlTW.WriteEndElement()
        xmlTW.WriteEndElement()
        xmlTW.WriteEndElement()
        xmlTW.WriteEndDocument()
        xmlTW.Close()
        Me.result.Text = "XML document created"
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.result.Text <> "" Then
            Dim fs As New FileStream("Data.xml", FileMode.Open)
            Dim xmlTR As New XmlTextReader(fs)
            Dim str As String
            While xmlTR.Read()
                str = str & "Type:" & xmlTR.NodeType.ToString & "
"
                If xmlTR.Name <> "" Then
                    str = str & "Name:" & xmlTR.Name & "
"
                End If
                If xmlTR.Value <> "" Then
                    str = str & "Value:" & xmlTR.Value & "
"
                End If
                If xmlTR.AttributeCount > 0 Then
                    str = str & "Attribute:"
                    Dim i As Integer
                    For i = 0 To xmlTR.AttributeCount - 1
                        str = str & " " & xmlTR.GetAttribute(i) & " "
                    Next
                    str = str & "
"
                End If
                str = str & "
"
            End While
            Me.result.Text = str
        Else
            Me.result.Text = "Create XML document first"
        End If
    End Sub
End Class