Imports System.IO
Imports System.Xml.Serialization
Imports TA_OR_rework.rework

Public Module ReworkRedenenMapperXML
    Public Sub writeToFile(reworkonderdelen As List(Of ReworkOnderdeel))
        Dim serializer As New Xml.Serialization.XmlSerializer(reworkonderdelen.GetType)
        serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), reworkonderdelen)
    End Sub

    Public Function getDataFromFile() As List(Of ReworkOnderdeel)
        Try
            Dim serializer As New XmlSerializer(GetType(List(Of ReworkOnderdeel)), New XmlRootAttribute(""))
            Dim deserialized As List(Of ReworkOnderdeel) = Nothing
            deserialized = DirectCast(serializer.Deserialize(New FileStream(getPath(), FileMode.Open, FileAccess.Read, FileShare.Read)), List(Of ReworkOnderdeel))
            Return deserialized
        Catch ex As Exception
            Throw New Exception("Er is iets foutgelopen bij serializeren van het bestand ReworkRedenen.xml. " & ex.Message)
        End Try
        Return Nothing
    End Function

    Private Function getPath() As String
        Dim strPath As String = My.Settings.PathNaarConfigMap
        Dim fileName As String = "ReworkRedenen.xml"
        Dim fullPath = Path.Combine(strPath, fileName)
        Return fullPath
    End Function

End Module