Lire Fichier XML VB.NET

Cela devrait faire l'affaire, même si je n'ai prendre quelques libertés avec les types d'objet que vous essayez de désérialiser pour. Il reste du travail à faire pour vous (comme indiqué par 'TODO'). Le seul code que j'ai laissé de côté est de l'analyse du fichier chemin d'accès comme un flux de données à transmettre à la classe principale de sérialiser /desreialize méthodes. J'espère que cette aide.

#Region "Imports"
'first, import some usefull namespaces
Imports System
Imports System.IO
Imports System.Xml.Serialization
#End Region
#Region "Classes"
'then, start constructing your classes by drilling down in sequence
''' <summary>
''' A class to hold your xml file's data.
''' </summary>
''' <remarks>This class will hold the the data from your file.</remarks>
<XmlRoot("mame")> _
Public Class YourXML_File
#Region "Properties"
<XmlAttribute(AttributeName:="build")> _
Public Property Build As String
<XmlAttribute(AttributeName:="debug")> _
Public Property Debug As New StrangeBooleanNomenclatureType
<XmlArray(ElementName:="game")> _
Public Property Games As New List(Of Game)
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#Region "XML Serialization /Deserialization"
''' <summary>
''' Strongly typed method to serialize your object.
''' </summary>
Public Shared Function Serialize(ByVal astream As Stream, ByVal axml_fileobj As YourXML_File) As Boolean
'try to serialize the file stream
Try
'first create a xml serializer object
Dim serializer As New XmlSerializer(GetType(YourXML_File))
'then serialize the object
serializer.Serialize(astream, axml_fileobj)
'return a successful serialization
Return True
Catch ex As Exception
'TODO: handle any exceptions here as you wish
'let the calling method know the serialization failed
Return False
End Try
End Function
''' <summary>
''' Strongly typed method to deserialize your object
''' </summary>
Public Shared Function Deserialize(ByVal astream As Stream, ByVal axml_fileobj As YourXML_File) As Boolean
'try to deserialize the file stream
Try
'first create a xml serializer object
Dim serializer As New XmlSerializer(GetType(YourXML_File))
'then deserialize the object
axml_fileobj = serializer.Deserialize(astream)
'return a successful deserialization
Return True
Catch ex As Exception
'TODO: handle any exceptions here as you wish
'let the calling method know the deserialization failed
Return False
End Try
End Function
#End Region
#End Region
End Class
''' <summary>
''' A class to represent the "game" element.
''' </summary>
<XmlRoot("game")> _
Public Class Game
#Region "Properties"
<XmlAttribute("name")> _
Public Property Game_Name As String
<XmlAttribute("sourcefile")> _
Public Property Game_SourceFile As String
<XmlElement("description")> _
Public Property Game_Description As String
<XmlElement("year")> _
Public Property Game_Year As Integer
<XmlElement("manufacture")> _
Public Property Game_Manufacturer As String
<XmlElement("roms")> _
Public Property Game_Roms As New List(Of Rom)
<XmlElement("chips")> _
Public Property Game_Chips As New List(Of Chip)
<XmlElement("display")> _
Public Property Game_Display As New Display
<XmlElement("sound")> _
Public Property Game_Sound As New Sound
<XmlElement("input")> _
Public Property Game_Input As New Input
<XmlElement("dipswitches")> _
Public Property Game_Dipswitches As New List(Of DipSwitch)
<XmlElement("driver")> _
Public Property Game_Driver As New Driver
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("rom")> _
Public Class Rom
#Region "Properties"
<XmlAttribute("name")> _
Public Property Rom_Name As String
<XmlAttribute("size")> _
Public Property Rom_Size As Integer
<XmlAttribute("crc")> _
Public Property Rom_Crc As String
<XmlAttribute("sha1")> _
Public Property Rom_Sha1 As String
<XmlAttribute("region")> _
Public Property Rom_Region As New RomRegionType
<XmlAttribute("dispose")> _
Public Property Rom_Dispose As New StrangeBooleanNomenclatureType
<XmlAttribute("offset")> _
Public Property Rom_Offset As Integer
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("chip")> _
Public Class Chip
#Region "Properties"
<XmlAttribute("type")> _
Public Property Chip_Type As New ChipType
<XmlAttribute("tag")> _
Public Property Chip_Tag As String
<XmlAttribute("name")> _
Public Property Chip_Name As String
<XmlAttribute("clock")> _
Public Property Chip_Clock As Integer
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("display")> _
Public Class Display
#Region "Properties"
<XmlAttribute("type")> _
Public Property Display_Type As New DisplayType
<XmlAttribute("rotate")> _
Public Property Display_Rotate As Integer
<XmlAttribute("width")> _
Public Property Display_Width As Integer
<XmlAttribute("height")> _
Public Property Display_Height As Integer
<XmlAttribute("refresh")> _
Public Property Display_Refresh As Double
<XmlAttribute("pixclock")> _
Public Property Display_PixClock As Integer
<XmlAttribute("htotal")> _
Public Property Display_H_Total As Integer
<XmlAttribute("hbend")> _
Public Property Display_H_Bend As Integer
<XmlAttribute("hbstart")> _
Public Property Display_HbStart As Integer
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("sound")> _
Public Class Sound
#Region "Properties"
<XmlAttribute("channels")> _
Public Property Sound_Channels As Integer
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("input")> _
Public Class Input
#Region "Properties"
<XmlAttribute("players")> _
Public Property Input_Players As Integer
<XmlAttribute("buttons")> _
Public Property Input_Buttons As Integer
<XmlAttribute("coins")> _
Public Property Input_Coins As Integer
<XmlAttribute("service")> _
Public Property Input_Service As New StrangeBooleanNomenclatureType
<XmlElement("control")> _
Public Property Input_Controls As New List(Of Control)
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("control")> _
Public Class Control
#Region "Properties"
<XmlAttribute("type")> _
Public Property Control_Type As New ControlType
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("dipswitch")> _
Public Class DipSwitch
#Region "Properties"
<XmlAttribute("name")> _
Public Property DipSwitch_Name As String
<XmlElement("dipvalue")> _
Public Property DipSwitch_DipValues As New List(Of DipValue)
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("dipvalue")> _
Public Class DipValue
#Region "Properties"
<XmlAttribute("name")> _
Public Property DipValue_Name As String
<XmlAttribute("default")> _
Public Property DipValue_Default As New StrangeBooleanNomenclatureType
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
<XmlRoot("driver")> _
Public Class Driver
#Region "Properties"
<XmlAttribute("status")> _
Public Property Driver_Status As New StatusState
<XmlAttribute("emulation")> _
Public Property Driver_Emulation As New StatusState
<XmlAttribute("color")> _
Public Property Driver_Color As New StatusState
<XmlAttribute("sound")> _
Public Property Driver_Sound As New StatusState
<XmlAttribute("graphic")> _
Public Property Driver_Graphic As New StatusState
<XmlAttribute("savestate")> _
Public Property Driver_SaveState As New SaveStateType
<XmlAttribute("palettesize")> _
Public Property Driver_PaletteSize As Integer
#End Region
#Region "Methods"
#Region "Constructors"
''' <summary>
''' The default constructor.
''' </summary>
''' <remarks>The xml serializer requires a constructor which takes no arguments.</remarks>
Public Sub New()
'do stuff here if you need to, but try to relegate anything important to a constructor that takes a parameter accommodating said important behavior
End Sub
#End Region
#End Region
End Class
#End Region
#Region "Enums"
'finally, introduce some enumerations to strongly define the exact range of the more loosely defined attributes used
Public Enum StatusState
<XmlEnum("bad")> Bad = 0
<XmlEnum("good")> Good = 1
End Enum
Public Enum StrangeBooleanNomenclatureType
<XmlEnum("no")> No = 0
<XmlEnum("yes")> Yes = 1
End Enum
Public Enum ChipType
<XmlEnum("cpu")> CPU = 0
<XmlEnum("audio")> Audio = 1
'TODO: add other chip types here
End Enum
Public Enum RomRegionType
<XmlEnum("main")> Main = 0
<XmlEnum("gfx1")> GFX1 = 1
<XmlEnum("proms")> Proms = 2
<XmlEnum("namco")> Namco = 3
'TODO: add more region types here
End Enum
Public Enum DisplayType
<XmlEnum("raster")> Raster = 0
'TODO: add more display types here
End Enum
Public Enum ControlType
<XmlEnum("joy4way")> joy4way = 0
'TODO: add more control types here
End Enum
Public Enum SaveStateType
<XmlEnum("supported")> Supported = 0
'TODO: add more save state types here
End Enum
#End Region