VB 泛型 T 应用

 

.NET框架提供了System.Xml.Serialization.XmlSerializer类型，为将对象序列化为XML或将XML序列化为对象提供了很大支持

 

先定义一个InspectionType类

<Xml.Serialization.XmlRoot("TownInspectionType")> _   'TownInspectionType是root 节点，也可以是 xml 某个节点。

Public Class InspectionType
Public FirstName As String
Public LastName As String
End Class

要解析的xml 例子

<?xml version="1.0"?>
<TownInspectionType xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<FirstName>John</FirstName>
<LastName>Evans</LastName>
</TownInspectionType>

OR

<TownInspectionType>
<FirstName>John</FirstName>
<LastName>Evans</LastName>
</TownInspectionType>

下面是定义好的泛型，其中xml 是需要反序列化的节点，T是Model的类型，例子中是TownInspectionType，它包括了两个字段。

 

Public Class DeSerializer(Of T)
Public Function DeserializeXML(ByVal xml As String) As T
Dim ser As New XmlSerializer(GetType(T))
Using ms As New MemoryStream(Encoding.Default.GetBytes(xml))
Using r As New StreamReader(ms)
Dim obj As T = DirectCast(ser.Deserialize(r), T)
Return obj
End Using
End Using
End Function
End Class

下面是调用：

Dim serializer = New DeSerializer(Of InspectionType)
Dim TownInspectionTypeModel As InspectionType= serializer.DeserializeXML(townInspectionTypesChildNode.InterXml)

 

这里只是给出了 反序列化单一的Model 如果xml 是：

<TownInspectionTypes>

<TownInspectionType>
<FirstName>John</FirstName>
<LastName>Evans</LastName>
</TownInspectionType>

<TownInspectionType>
<FirstName>lili</FirstName>
<LastName>denvy</LastName>
</TownInspectionType>

</TownInspectionTypes>

能否把TownInspectionType 转化成一个List（of TownInspectionType）形式呢？ 欢迎抛砖！

转载于:https://www.cnblogs.com/wwzhang/p/5130767.html