Public Function LiesEdiDateiEin(ByVal _FileName As String, ByVal Profil As _
  clsEDI_Mapping_Profiles) As List(Of List(Of clsEDI_FileImportMappingClass))
 
        Dim EOL As String = vbCrLf
 
        Dim strText = System.IO.File.ReadAllText(_FileName)
        Dim _lines As String()
        _lines = Split(strText, EOL)
        Dim EdiFile As New List(Of List(Of clsEDI_FileImportMappingClass))
 
        ' 1 Zeile enthält jeweils n Spalten fester Größe bzw ein Objekt von 
        ' clsEDI_FileImportMappingClass
        ' 
 
        For row As Integer = 0 To _lines.Count - 1
            Dim line As String
            line = _lines(row)
            Dim Satzart As String = Left(line, 3)
            Dim Filter As String = line.Substring(3, 2)
            Dim EdiMapping As New List(Of clsEDI_FileImportMappingClass)
            EdiMapping = Profil.getEdiSegCols(Satzart, Filter)
            Dim TEdiFieldsList As New List(Of clsEDI_FileImportMappingClass)
            TEdiFieldsList = MapContentsOfImportedEdiFile(line, EdiMapping) ' 
            ' List(Of clsEDI_FileImportMappingClass ' Debug gibt die geparste _
            Liste richtig aus
            EdiFile.Add(TEdiFieldsList) ' TEdiFieldsList sollte an das Ende von 
            ' EdiFile angehängt werden, enthält aber hier immer die letzten 
            ' Position
        Next
 
        Debug.Print("EdiFile.Count:" & EdiFile.Count)
        For row As Integer = 0 To EdiFile.Count - 1
 
 
            DebugEdiItems(EdiFile(row))
 
        Next
 
        Return EDIFile
 
    End Function

 Public Function MapContentsOfImportedEdiFile(ByVal csvline As String, ByVal _
   ediDBObjMapping As List(Of clsEDI_FileImportMappingClass)) As List(Of _
   clsEDI_FileImportMappingClass)
 
        Dim TList As New List(Of clsEDI_FileImportMappingClass)
 
        For Each EdiField As clsEDI_FileImportMappingClass In ediDBObjMapping
            If EdiField.USED Then
                Dim obj As New clsEDI_FileImportMappingClass
                Dim fldLength As Int32
                Dim fldVon As Int32
 
                fldLength = EdiField.EDI_FLD_LAENGE
                fldVon = EdiField.EDI_FLD_VON
 
                Dim sField As String
                sField = csvline.Substring(fldVon - 1, fldLength)
 
                If sField.Contains("""") Then
                    sField.Replace("""", String.Empty)
                End If
                obj = EdiField
                obj.INHALT = Trim(sField) ' funktioniert so 
                TList.Add(obj) : obj.Dispose : obj = Nothing
            End If
        Next
        'DebugEdiItems(TList)
        Return TList
    End Function

__________________


Heute ist nicht mein Tag.