Sub txteindataus()
 
 
Dim artnummer As String 'Artikelnummer
Dim liefnummer As String 'Lieferantennummer
Dim ldatt As String 'Lieferdatum Tag
Dim ldatm As String 'Lieferdatum Monat
Dim ldatj As String 'Lieferdatum Jahr
Dim los As String 'Liefermenge
Dim einheit As String 'Einheit der gelieferten Menge
Dim auftrag As String 'Bestellnummer
Dim bespos As String 'Bestellposition
'Dim bdatt As String 'Bestelldatum Tag
'Dim bdatm As String 'Bestelldatum Monat
'Dim bdatj As String 'Bestelldatum Jahr
Dim bestmenge As String 'Bestellmenge
Dim beinheit As String 'Einheit der bestellten Menge
Dim lzielt As String 'Lieferzieldatum Tag
Dim lzielm As String 'Lieferzieldatum Monat
Dim lzielj As String 'Lieferzieldatum Jahr
Dim lieferschein As String 'Lieferscheinnummer
 
 
Open "WE.txt" For Input As #1
Open "we.dat" For Output As #2
' öffnet die vorhandenen Dateien und erstellt die Ausgabe-Datei
 
 
Do While Not EOF(1) ' Schleife bis zum Ende der Datei
 
    Line Input #1, temp
        artnummer = Mid(temp, 21, 20)   ' Artikelnummer
 
        liefnummer = Mid(temp, 54, 20) ' Lieferantennummer
 
        ldatt = Mid(temp, 122, 2)   ' Lieferdatum Tag
        ldatm = Mid(temp, 124, 2)   ' Lieferdatum Monat
        ldatj = Mid(temp, 128, 2)   ' Lieferdatum Jahr
 
        los = Mid(temp, 44, 8)  ' Liefermenge
 
        einheit = Mid(temp, 162, 11) ' Einheit
 
        auftrag = Mid(temp, 88, 6) ' Bestellnummer
 
        bespos = Mid(temp, 177, 1) ' Bestellpostion
 
        'bdatt = Mid(temp, 48, 2) ' Bestelldatum Tag
        'bdatm = Mid(temp, 48, 2) ' Bestelldatum Monat
        'bdatj = Mid(temp, 48, 2) ' Bestelldatum Jahr
 
        bestmenge = Mid(temp, 151, 8) ' Bestellmenge
 
        beinheit = Mid(temp, 162, 11) ' Einheit der bestellten Menge
 
        lzielt = Mid(temp, 114, 2) ' Lieferzieldatum Tag
        lzielm = Mid(temp, 116, 2) ' Lieferzieldatum Monat
        lzielj = Mid(temp, 120, 2) ' Lieferzieldatum Jahr
 
        lieferschein = Mid(temp, 94, 20) ' Lieferscheinnummer
 
        'entfernt die Leerzeichen
        liefnummer = Trim(liefnummer)
        artnummer = Trim(artnummer)
        los = Trim(los)
        einheit = Trim(einheit)
        auftrag = Trim(auftrag)
        bestmenge = Trim(bestmenge)
        beinheit = Trim(beinheit)
        lieferschein = Trim(lieferschein)
 
        Print #2, "0^0^0^0^^"; artnummer; "^"; liefnummer; "^"; ldatt; "."; _
          ldatm; "."; ldatj; "^"; los; "^"; einheit; "^"; auftrag; "^"; bespos; _
          "^^"; bestmenge; "^"; beinheit; "^"; lzielt; "."; lzielm; "."; _
          lzielj; "^"; lieferschein; "^"
 
      ' schreibt die Werte in die Ausgabedatei inklusive Komma für den Preis 
      ' und Leerschritte zwischen den Werten
 
Loop
 
 
 
Close #1
Close #2
' Schließt alle Dateien
 
 
End Sub