XML反序列化设置基于元素标记的值

Question

我怀疑这是可能的，但我很好奇。是否有可能以这样一种方式反序列化XML：使用元素的标记名称来填充属性值？例如，给定这样的xml：

<Test> 
    <List> 
     <Jake Type="Dog" /> 
     <Mittens Type="Cat" /> 
    </List> 
</Test> 

可能导致像这样的列表：

Class Animal 
    Property Name As String 
    Property Type As String 
End Class 

Name Type 
------- ------- 
Jake Dog 
Mittens Cat 

Answer 1

所以，不使用XML序列化，但是，你可以用以下的的XmlReader（XmlTextReader的）解决问题方法：

Class Animal 
    Public Property Name As String 
    Public Property Type As String 
End Class 

Function ReadDocument(filename As String) As List(Of Animal) 
    Dim lst As New List(Of Animal) 

    Dim doc As XmlReader 

    Using fs As FileStream = New FileStream(filename, FileMode.Open, FileAccess.Read) 
     doc = New Xml.XmlTextReader(fs) 
     While doc.Read() 
      If doc.NodeType <> XmlNodeType.Element Then 
       Continue While 
      End If 
      If Not String.Equals(doc.Name, "List") Then 
       Continue While 
      End If 
      While doc.Read() 
       If doc.NodeType = XmlNodeType.EndElement And String.Equals(doc.Name, "List") Then 
        Exit While 
       End If 
       If doc.NodeType <> XmlNodeType.Element Then 
        Continue While 
       End If 
       Dim ani As New Animal 
       ani.Name = doc.Name 
       If doc.MoveToAttribute("Type") Then 
        ani.Type = doc.Value 
        lst.Add(ani) 
       End If 
      End While 
     End While 
    End Using 

    Return lst 
End Function 

Sub Main() 
    Dim animals As List(Of Animal) = ReadDocument("./Animals.xml") 
    Console.WriteLine("{0}{1}{2}", "Name", vbTab, "Type") 
    For Each ani As Animal In animals 
     Console.WriteLine("{0}{1}{2}", ani.Name, vbTab, ani.Type) 
    Next 
    Console.ReadLine() 
End Sub