[C#][VB.NET]XML序列化私有欄位

  • 10285
  • 0
  • C#
  • 2011-01-25

XML序列化私有欄位

      假設今天有個Person的類別如下。除了名字、年齡、性別外,內含_friends清單用以提供IsFriend與AddFriend函式所須用到的朋友清單資料。

VB.NET

 

	Public Class Person

#Region "Enum"
    Enum SexType
        Boy
        Girl
    End Enum
#End Region


#Region "Var"
    Private _name As String
    Private _year As Integer
    Private _sex As SexType
    Private _friendNames As New List(Of String)
#End Region


#Region "Property"
    Public Property Name() As String
        Get
            If String.IsNullOrEmpty(_name) Then
                Return String.Empty
            End If
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Public Property Year() As Integer
        Get
            Return _year
        End Get
        Set(ByVal value As Integer)
            _year = value
        End Set
    End Property

    Public Property Sex() As SexType
        Get
            Return _sex
        End Get
        Set(ByVal value As SexType)
            _sex = value
        End Set
    End Property
#End Region


#Region "Public Method"
    Public Sub AddFriend(ByVal people As Person)
        _friendNames.Add(people.Name)
    End Sub

    Public Function IsFriend(ByVal people As Person) As Boolean
        For Each friendName As String In _friendNames
            If friendName = people.Name Then
                Return True
            End If
        Next
        Return False
    End Function
#End Region


End Class

 

 

C#

	public class Person
    {

        #region Enum
        public enum SexType
        {
            Boy,
            Girl
        }
        #endregion

        #region Var
        private string _name;
        private int _year;
        private SexType _sex;
        private List<String> _friendNames = new List<String>();
        #endregion


        #region Property
        public string Name
        {
            get
            {
                if (string.IsNullOrEmpty(_name))
                {
                    return string.Empty;
                }
                return _name;
            }
            set { _name = value; }
        }

        public int Year
        {
            get { return _year; }
            set { _year = value; }
        }

        public SexType Sex
        {
            get { return _sex; }
            set { _sex = value; }
        }
        #endregion


        #region Public Method
        public void AddFriend(Person people)
        {
            _friendNames.Add(people.Name);
        }

        public bool IsFriend(Person people)
        {
            foreach (String friendName in _friendNames)
            {
                if (friendName == people.Name)
                {
                    return true;
                }
            }
            return false;
        }
        #endregion


    }

 

      在.NET程式裡,若將該類別直接做XML序列化,則其類別的_friends這個私有的欄位資料將不會被序列化保存 (因為.NET XML序列化無法序列化私有欄位資料)。此時我們可以用自定義XML的方式來去解決此問題。透過自定義XML序列化,我們可以自己定義XML序列化的格式。也可以把本來不會序列化的私有欄位一併序列化。

      但是,若只是很單純的去實作自定義XML序列化。做出來的類別將無法與.NET本身的XML序列化做整合。舉個例子來說,假設今天Person這個類別實作了自定義XML序列化。而程式中又有個PersonCollection這個類別內含Person這個類別成員。則此時,若PersonCollection這個類別沒有實作自定義XML序列化,而想直接用來序列化的話。該程式在序列化時將會發生錯誤。也就是說,當A這個類別做了自定義XML序列化,而B這個類別的成員內含A這個類別時,則B通常也將需要自定義XML序列化。

     要解決該問題,照著下面程式碼片段的格式去實作自定義XML序列化即可。

VB.NET

 

	#Region "Implement IXmlSerializable"
    Public Function GetSchema() As System.Xml.Schema.XmlSchema Implements System.Xml.Serialization.IXmlSerializable.GetSchema
        Return Nothing
    End Function

    Public Sub ReadXml(ByVal reader As System.Xml.XmlReader) Implements System.Xml.Serialization.IXmlSerializable.ReadXml
        Dim startElementName As String = reader.Name
        Dim currentElementName As String

        Me._friendNames.Clear()
        Do
            currentElementName = reader.Name
            If currentElementName = startElementName AndAlso (reader.MoveToContent = Xml.XmlNodeType.EndElement OrElse reader.IsEmptyElement) Then
                reader.Read()
                Exit Do
            End If

            Select Case currentElementName
                Case "Name"
                    Me.Name = reader.ReadElementString()

                Case "Sex"
                    Me.Sex = CType(reader.ReadElementString(), SexType)

                Case "Year"
                    Me.Year = CInt(reader.ReadElementString())

                Case "Friend"
                    Me._friendNames.Add(reader.GetAttribute("Name"))
                    reader.Read()
                Case Else
                    reader.Read()

            End Select

        Loop
    End Sub

    Public Sub WriteXml(ByVal writer As System.Xml.XmlWriter) Implements System.Xml.Serialization.IXmlSerializable.WriteXml
        writer.WriteElementString("Name", Name)
        writer.WriteElementString("Sex", CInt(Sex).ToString)
        writer.WriteElementString("Year", Year.ToString)
        For Each friendName As String In _friendNames
            writer.WriteStartElement("Friend")
            writer.WriteAttributeString("Name", friendName)
            writer.WriteEndElement()
        Next
    End Sub
#End Region

 

 

C#

 

	#region Implement IXmlSerializable 

        public System.Xml.Schema.XmlSchema GetSchema()
        {
            throw new NotImplementedException();
        }

        public void ReadXml(System.Xml.XmlReader reader)
        {
            string startElementName = reader.Name;
            string currentElementName;

            this._friendNames.Clear();
            do
            {
                currentElementName = reader.Name;
                if (currentElementName == startElementName && (reader.MoveToContent() == System.Xml.XmlNodeType.EndElement || reader.IsEmptyElement))
                {
                    reader.Read();
                    break; 
                }

                switch (currentElementName)
                {
                    case "Name":
                        this.Name = reader.ReadElementString();
                        break;

                    case "Sex":                        
                        this.Sex = (SexType)int.Parse (reader.ReadElementString());
                        break;

                    case "Year":
                        this.Year = int.Parse(reader.ReadElementString());
                        break;

                    case "Friend":
                        this._friendNames.Add(reader.GetAttribute("Name"));
                        reader.Read();
                        break;
                    default:
                        reader.Read();
                        break;

                }
            }while (true);
        }

        public void WriteXml(System.Xml.XmlWriter writer)
        {
            writer.WriteElementString("Name", Name);
            writer.WriteElementString("Sex", ((int)Sex).ToString());
            writer.WriteElementString("Year", Year.ToString());
            foreach (string friendName in _friendNames)
            {
                writer.WriteStartElement("Friend");
                writer.WriteAttributeString("Name", friendName);
                writer.WriteEndElement();
            }
        }

        #endregion

 

 

      其主要重點概念如下圖所示:

image