正在阅读：一种简便实效的配置文件读写方法一种简便实效的配置文件读写方法

        mConfig = CType(SerializeClass.LoadXML(GetType(Config), XmlReader.ReadToEnd), Config)

        XmlReader.Close()

        mConfig.m_Count = mConfig.Items.Length

        Return mConfig

    End Function

End Class

Public Class SerializeClass

    Public Shared Function GetXML(ByVal mObject As Object) As String

        Dim oSerializer As New System.Xml.Serialization.XmlSerializer(mObject.GetType)

        Dim oStringWriter As New System.IO.StringWriter

        oSerializer.Serialize(oStringWriter, mObject)

        Return oStringWriter.ToString

    End Function

    Public Shared Function LoadXML(ByVal mClass As Type, ByVal XML As String) As Object

        Dim oSerializer As New System.Xml.Serialization.XmlSerializer(mClass)

        Dim oStringReader As New System.IO.StringReader(XML)

        Return oSerializer.Deserialize(oStringReader)

    End Function

End Class

    Private Sub TestSaveConfig()

        Dim mConfig As Config = New Config