Public Function MapContents(ByVal csvline As String, ByVal DBObjMapping As List( _
  Of clsMeineImportKlasse)) As List(Of clsMeineImportKlasse)
 
        Dim x As New List(Of clsMeineKlasse)
        For Each Feld As clsMeineKlasse In DBObjMapping
            If Feld.USED Then
 
                Dim sField As String
                sField = csvline.Substring(fldVon - 1, fldLength)
 
                If sField.Contains("""") Then
                    sField.Replace("""", String.Empty)
                End If
 
                Feld.INHALT = Trim(sField)
            End If
            x.Add(Feld)
 
        Next
 
        Return x
  End Function
 
Public Function DateiEinlesen(Dateiname As String) As Dictionary (Of Integer, _
  List(Of clsMeineImportKlasse)
  [...]
 
        Dim MeinDictionary As New Dictionary (Of Integer, List(Of _
          clsMeineImportKlasse))
 
        For row As Integer = 0 To _lines.Count - 1
            Dim obj As New List(Of clsMeineKlasse)
            obj = MapContents(line(row), Mapping)
 
            MeinDictionary.Add(row, New List(of clsMeineImportklasse))
            MeinDictionary(row).Add(obj)
 
        Next
 
        Return MeinDictionary
 
End Function

MeinDictionary.Add(row, New List(of clsMeineImportklasse))
MeinDictionary(row).Add(obj)

For Each dicRow As KeyValuePair(Of Integer, List(Of clsMeineImportKlasse)) In _
  MeinDictionary
   Dim row As Integer : row = dicRow.Key
   Dim objList As List(Of clsMeineImportKlasse) = dicRow.Value
 
 
   Dim sout As String : sout = ""
 
   For x As Integer = 0 To objList.Count - 1
 
      sout = "Zeile in Datei: " & row.ToString & " | " & " | FELD: "  & objList( _
        x).FELD &  " INHALT: " & objList(x).INHALT
      Debug.Print(sout)
 
   Next
Next

__________________


Heute ist nicht mein Tag.

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.

  'Das sind Referenzvariablen (ohne Objekt)
  Dim TEdiFieldsList As List(Of clsEDI_FileImportMappingClass)
  Dim EdiMapping As List(Of 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) 'Verwende substring !!
       Dim Filter As String = line.Substring(3, 2)
 
       'Zuweisung einer Referenz auf die Liste in Profil
       EdiMapping = Profil.getEdiSegCols(Satzart, Filter) '???????
 
       'Zuweisung einer Referenz auf die zurückgegebene Liste
       TEdiFieldsList = MapContentsOfImportedEdiFile(line, EdiMapping) '???? 
 
       'Jede nachträgliche Änderung an der Liste in Profil oder
       'was immer sich in MapContentsOfImportedEdifile noch abspielt
       'wird auch die Liste in EdiFile ändern   
       EdiFile.Add(TEdiFieldsList) 'Referenz auf Liste in MapContent..        
  Next row
 
  'Der Fehler liegt eine Stufe tiefer im Code - eventuell bei der Weiter-
  'verarbeitung des Edimapping-Parameters in MapContents....
  'Dort muß jeweils eine neue Liste erstellt werden (new)
 
  'Das Schlüsselwort New in Deinem Code ist wirkungslos, weil Du das neu 
  'erstellte Listenobjekt danach nicht verwendest, sondern in der nächsten 
  'Zeile eine Referenz auf die zurückgegebene Liste zuweist, und es dadurch 
  'wieder verwirfst.

' (1)
        For row As Integer = 0 To _lines.count - 1
          EdiMapping = Profil.getEdiSegCols(Satzart, Filter)
          TEdiFieldsList = MapContentsOfImportedEdiFile(line, EdiMapping)
          EdiFile.Add(TEdiFieldsList) 'New List(Of 
          ' clsEDI_FileImportMappingClass))
' Man sollte nun annehmen, dass DebugEdiItems(EdiFile(row)) identische 
' Datensätze ausgibt
' Dies ist nicht der Fall. Vielmehr entspricht jeder empfangene Datensatz exakt 
' der gemappten Zeile in der Datei:
          DebugEdiItems(EdiFile(row))
        Next
' AUßERHALB der Schleife führt derselbe Durchlauf mit derselben Variable zu 
' einem identischen Ergebnis. Warum ???
' (2)
        For row As Integer = 0 To EdiFile.Count - 1
          DebugEdiItems(EdiFile(row))
        Next

' (3)
    Private Sub DebugEdiItems(ByVal EdiFileRefs As List(Of _
      clsEDI_FileImportMappingClass))
        For Each obj As clsEDI_FileImportMappingClass In EdiFileRefs
            Dim sout As String : sout = ""
            sout = "SEGMENT: " & obj.SATZART & " | FELD-NR.:" & obj.EDI_FELD_NR _
              & " | CONTENTS: " & obj.INHALT.ToString
            Debug.Print(sout)
        Next
    End Sub

__________________


Heute ist nicht mein Tag.

__________________


Heute ist nicht mein Tag.