XML ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. XML
  4. Optimizing XmlReader with a NameTable (VB)
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="_Default" %>



    Untitled Page


    
    

    
    

    


File: Default.aspx.vb
Imports System.IO
Imports System.Xml
Imports System.Xml.Schema
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
           Handles Me.Load
        Dim bookcount As Integer = 0
        Dim settings As New XmlReaderSettings()
        Dim nt As New NameTable()
        Dim book As Object = nt.Add("book")
        settings.NameTable = nt
        Dim booksSchemaFile As String = Path.Combine(Request.PhysicalApplicationPath, "Data.xsd")
        settings.Schemas.Add(Nothing, XmlReader.Create(booksSchemaFile))
        settings.ValidationType = ValidationType.Schema
        settings.ValidationFlags = XmlSchemaValidationFlags.ReportValidationWarnings
        AddHandler settings.ValidationEventHandler, AddressOf settings_ValidationEventHandler
        settings.IgnoreWhitespace = True
        settings.IgnoreComments = True
        Dim booksFile As String = _
            Path.Combine(Request.PhysicalApplicationPath, "Data.xml")
        Using reader As XmlReader = XmlReader.Create(booksFile, settings)
            While (reader.Read())
                If (reader.NodeType = XmlNodeType.Element _
                    And book.Equals(reader.LocalName)) Then
                    bookcount += 1
                End If
            End While
        End Using
        Response.Write(String.Format("Found {0} books!", bookcount))
    End Sub
    Sub settings_ValidationEventHandler(ByVal sender As Object, _
            ByVal e As System.Xml.Schema.ValidationEventArgs)
        Response.Write(e.Message)
    End Sub
End Class
File: Data.xml

           xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
              publicationdate="1981" 
          ISBN="1-11111-11-0">
        title 1
        
            A
            B
        
        8
    
              publicationdate="1999" 
          ISBN="0-222-22222-2">
        title 2
        
            C
            D
        
        11.99
    

File: Data.xsd