Det er svært at vide præcis hvad der vil virke i din sammenhæng.
Men her er en ide.
Original:
Imports System
Imports System.Collections.Generic
Imports System.Xml
Imports System.Xml.Serialization
Namespace E
Public Class type1
Public Property tekst() As String
End Class
Public Class type2
Public Property tekst() As String
End Class
Public Class type3
Public Property tekst() As String
End Class
Public Class xmltest
<XmlElement> _
Public Property type1() As List(Of type1)
<XmlElement> _
Public Property type2() As List(Of type2)
<XmlElement> _
Public Property type3() As List(Of type3)
End Class
Public Class Program
Public Shared Sub Dump(o As xmltest)
Console.WriteLine("type1:")
For Each t1 As type1 In o.type1
Console.WriteLine(" {0}", t1.tekst)
Next
Console.WriteLine("type2:")
For Each t2 As type2 In o.type2
Console.WriteLine(" {0}", t2.tekst)
Next
Console.WriteLine("type3:")
For Each t3 As type3 In o.type3
Console.WriteLine(" {0}", t3.tekst)
Next
End Sub
Public Shared Sub Main(args As String())
Dim ser As New XmlSerializer(GetType(xmltest))
Dim rdr As XmlReader = New XmlTextReader("/Work/test.xml")
While rdr.Read()
Select Case rdr.NodeType
Case XmlNodeType.Element
Dim subrdr As XmlReader = rdr.ReadSubtree()
Dim o As xmltest = DirectCast(ser.Deserialize(subrdr), xmltest)
Dump(o)
subrdr.Close()
Exit Select
Case Else
' ignore
Exit Select
End Select
End While
rdr.Close()
Console.ReadKey()
End Sub
End Class
End Namespace
output:
type1:
ABC
GHI
type2:
DEF
JKL
type3:
MNO
Det er meget som forventet, men duer ikke for dig.
Min ide er at bruge en enkelt liste og en basis klasse:
Imports System
Imports System.Collections.Generic
Imports System.Xml
Imports System.Xml.Serialization
Namespace E
Public Class typex
End Class
Public Class type1
Inherits typex
Public Property tekst() As String
End Class
Public Class type2
Inherits typex
Public Property tekst() As String
End Class
Public Class type3
Inherits typex
Public Property tekst() As String
End Class
Public Class xmltest
<XmlElement(Type := GetType(type1)), XmlElement(Type := GetType(type2)), XmlElement(Type := GetType(type3))> _
Public Property typex() As List(Of typex)
End Class
Public Class Program
Public Shared Sub Dump(o As xmltest)
For Each tx As typex In o.typex
Select Case tx.[GetType]().Name
Case "type1"
Dim t1 As type1 = DirectCast(tx, type1)
Console.WriteLine("Type1 : {0}", t1.tekst)
Exit Select
Case "type2"
Dim t2 As type2 = DirectCast(tx, type2)
Console.WriteLine("Type2 : {0}", t2.tekst)
Exit Select
Case "type3"
Dim t3 As type3 = DirectCast(tx, type3)
Console.WriteLine("Type3 : {0}", t3.tekst)
Exit Select
End Select
Next
End Sub
Public Shared Sub Main(args As String())
Dim ser As New XmlSerializer(GetType(xmltest), New Type() {GetType(type1), GetType(type2), GetType(type3)})
Dim rdr As XmlReader = New XmlTextReader("/Work/test.xml")
While rdr.Read()
Select Case rdr.NodeType
Case XmlNodeType.Element
Dim subrdr As XmlReader = rdr.ReadSubtree()
Dim o As xmltest = DirectCast(ser.Deserialize(subrdr), xmltest)
Dump(o)
subrdr.Close()
Exit Select
Case Else
' ignore
Exit Select
End Select
End While
rdr.Close()
Console.ReadKey()
End Sub
End Class
End Namespace
output:
Type1 : ABC
Type2 : DEF
Type1 : GHI
Type2 : JKL
Type3 : MNO
Den beholder rækkefølgen.
Men om det fungerer i din kontekst er et andet spørgsmål.
