问是否有更快的方法存储/读取XML文档中的数据？

EN

Imports System.Xml
Imports System.Xml.Linq
Imports System.IO
Module Module1
    Const FILENAME As String = "c:\temp\test.xml"
    Sub Main()
        Dim JMdict As JMdict = JMdict.Parse(FILENAME)
    End Sub

    Public Class JMdict
        Public Property entrylist As List(Of Entry)

        Public Shared Function Parse(filename As String) As JMdict
            Dim reader As New StreamReader(filename)
            reader.ReadLine()
            Dim doc As XDocument = XDocument.Load(reader)
            Dim newJMdict As New JMdict()
            Dim jmDict = doc.Root

            newJMdict.entrylist = jmDict.Elements("entry").Select(Function(x) Entry.Parse(x)).ToList()
            Return newJMdict
        End Function
    End Class

    Public Class Entry
        Public Property EntrySequence As Integer
        Public Property Keywords As List(Of KeywordElement)
        Public Property Readings As List(Of ReadingElement)
        Public Property Senses As List(Of SenseElement)

        Public Shared Function Parse(xEntry As XElement) As Entry
            Dim newEntry As New Entry()
            newEntry.EntrySequence = CType(xEntry.Element("ent_seq"), Integer)
            newEntry.Keywords = xEntry.Elements("k_ele").Select(Function(x) KeywordElement.Parse(x)).ToList()

            newEntry.Readings = xEntry.Elements("r_ele").Select(Function(x) ReadingElement.Parse(x)).ToList()
            newEntry.Senses = xEntry.Elements("sense").Select(Function(x) SenseElement.Parse(x)).ToList()


            Return newEntry
        End Function
    End Class

    Public Class KeywordElement
        Public Property Keyword As String
        Public Property KeywordPriority As List(Of String)
        Public Property KeywordOrthography As List(Of String)

        Public Shared Function Parse(xKeywordElement As XElement) As KeywordElement
            Dim newKeywordElement As New KeywordElement()
            newKeywordElement.Keyword = CType(xKeywordElement.Element("key"), String)
            newKeywordElement.KeywordPriority = xKeywordElement.Elements("ke_pri").Select(Function(x) CType(x, String)).ToList()
            newKeywordElement.KeywordOrthography = xKeywordElement.Elements("ke_inf").Select(Function(x) CType(x, String)).ToList()

            Return newKeywordElement
        End Function


    End Class

    Public Class ReadingElement

        Public Property Reading As String
        Public Property ReadingPriority As List(Of String)
        Public Property ReadingOrthography As List(Of String)
        Public Property ReadingToKeywordRestriction As List(Of String)

        Private _NotTrueReading As Boolean

        Public Property NotTrueReading As String
            Get
                Return _NotTrueReading
            End Get
            Set(value As String)
                If NotTrueReading IsNot Nothing Then
                    _NotTrueReading = True
                Else
                    _NotTrueReading = False
                End If
            End Set
        End Property

        Public Shared Function Parse(xReadingElement As XElement) As ReadingElement
            Dim newReadingElement As New ReadingElement
            newReadingElement.Reading = CType(xReadingElement.Element("reb"), String)
            newReadingElement.ReadingPriority = xReadingElement.Elements("re_pri").Select(Function(x) CType(x, String)).ToList()
            newReadingElement.ReadingOrthography = xReadingElement.Elements("re_inf").Select(Function(x) CType(x, String)).ToList()
            newReadingElement.ReadingToKeywordRestriction = xReadingElement.Elements("re_restr").Select(Function(x) CType(x, String)).ToList()

            newReadingElement.NotTrueReading = CType(xReadingElement.Element("re_nokanji"), String)

            Return newReadingElement
        End Function
    End Class

    Public Class SenseElement
        Public Property PartOfSpeech As List(Of String)
        Public Property Gloss As List(Of GlossElement)

        Public Property SenseRestrictedToKeyword As List(Of String)
        Public Property SenseRestrictedToReading As List(Of String)
        Public Property CrossReference As List(Of String)
        Public Property Antonym As List(Of String)
        Public Property Field As List(Of String)
        Public Property Dialect As List(Of String)
        Public Property SenseInformation As List(Of String)
        Public Property Misc As List(Of String)
        Public Property LanguageSource As List(Of LanguageSourceElement)

        Public Shared Function Parse(xSenseElement As XElement) As SenseElement
            Dim newSenseElement As New SenseElement
            newSenseElement.PartOfSpeech = xSenseElement.Elements("pos").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.Gloss = xSenseElement.Elements("gloss").Select(Function(x) GlossElement.Parse(x)).ToList()
            newSenseElement.SenseRestrictedToKeyword = xSenseElement.Elements("stagk").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.SenseRestrictedToReading = xSenseElement.Elements("stagr").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.CrossReference = xSenseElement.Elements("xref").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.Antonym = xSenseElement.Elements("ant").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.Field = xSenseElement.Elements("field").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.Dialect = xSenseElement.Elements("dial").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.SenseInformation = xSenseElement.Elements("s_inf").Select(Function(x) CType(x, String)).ToList()
            newSenseElement.Misc = xSenseElement.Elements("misc").Select(Function(x) CType(x, String)).ToList()

            newSenseElement.LanguageSource = xSenseElement.Elements("lsource").Select(Function(x) LanguageSourceElement.Parse(x)).ToList()
            Return newSenseElement
        End Function
    End Class

    Public Class GlossElement
        Public Property Language As String
        Public Property GlossType As String
        Public Property Text As String

        Public Shared Function Parse(xGlossElement As XElement) As GlossElement
            Dim newGlossElement As New GlossElement

            newGlossElement.Language = CType(xGlossElement.Attributes().Where(Function(x) x.Name.LocalName = "lang").FirstOrDefault(), String)
            newGlossElement.GlossType = CType(xGlossElement.Attribute("g_type"), String)
            newGlossElement.Text = CType(xGlossElement, String)
            Return newGlossElement
        End Function
    End Class

    Public Class LanguageSourceElement

        Public Property Language As String
        Public Property LanguageSourceType As String

        Public IsWaseieigo As Boolean

        Public Property Text As String

        Public Shared Function Parse(xLanguageSourceElement As XElement) As LanguageSourceElement
            Dim newLanguageSourceElement As New LanguageSourceElement
            newLanguageSourceElement.Language = CType(xLanguageSourceElement.Attributes().Where(Function(x) x.Name.LocalName = "lang").FirstOrDefault(), String)
            newLanguageSourceElement.LanguageSourceType = CType(xLanguageSourceElement.Attribute("ls_type"), String)
            newLanguageSourceElement.IsWaseieigo = IIf(CType(xLanguageSourceElement.Attribute("ls_wasei"), String) = "y", True, False)
            newLanguageSourceElement.Text = CType(xLanguageSourceElement, String)
            Return newLanguageSourceElement
        End Function

    End Class
End Module