Imports System.IO Imports EDIDocumentImport.Data Namespace Documents Public Class Document Public File As FileInfo Public Type As DocumentType Public Mandator As String Public Data As Object Public DataOriginal As Object Public DataOutput As Object Public DataString As String Public Selected As Boolean = False Public ReadOnly Property FullName As String Get Return File?.FullName End Get End Property Public ReadOnly Property Name As String Get Return File?.Name End Get End Property Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType Return DocumentMatch.TypeMatchingTable. Where(Function(kv) pTemplateName.Contains(kv.Key)). Select(Function(kv) kv.Value). FirstOrDefault() End Function Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type Return DocumentMatch.SchemaMatchingTable. Where(Function(kv) pDocumentType = kv.Key). Select(Function(kv) kv.Value). FirstOrDefault() End Function End Class End Namespace