Private s As FileStream
Private r As BinaryReader
Private ReadBuffer As Byte()
 
Structure Artikel
  Dim ArGrp As Integer      '9(2) Comp-6       1 Byte
  Dim ArNr As Integer       '9(6) Comp-6       3 Byte
  Dim ArVpe As Single       '9(4)v9(3) Comp-5  4 Byte
  Dim ArBest As Single      's9(6)v9(3) Comp-5 4 Byte
  Dim ArNlKz As Char        '9                 1 Byte
  Dim ArNlDatum As String   '9(8) Comp-6       4 Byte
  Dim ArNlText As String    'x(50)            50 Byte
  Dim ArVbTyp As Integer    '9(2) comp-6       1 Byte
  Dim ArErNr As Integer     '9(6) comp-6       3 Byte 
  Dim ArLoeDatum As String  '9(8) comp-6       4 Byte 
End Structure
 
' Zunächst wird die Datei per Function OpenDatei geöffnet
 
Public Function OpenDatei(Dateiname As String) As Boolean
 
  Erfolg = False
 
  Try
      s = New FileStream(Dateiname, FileMode.Open, FileAccess.Read, _
        FileShare.ReadWrite)
      r = New BinaryReader(s, System.Text.Encoding.GetEncoding(850))
      ReadVorspann()
      Erfolg = True
  Catch ex As FileNotFoundException
      Erfolg = False
      Catch ex As Exception
      MessageBox.Show(ex.ToString)
      Erfolg = False
  End Try
  Return Erfolg
 
End Function
 
' Dann werden die einzelnen Sätze / Artikel gelesen
 
Public Function ReadNext(ByRef myArtikel As Artikel) As Boolean
 
    Erfolg = False
 
    myArtikel = Nothing                          'Übergabebereich Initialisieren
 
    Try
      If r.PeekChar <> -1 Then
 
         ReadBuffer = r.ReadBytes(1) 
         myArtikel.ArGrp = CType(Comp6toString(ReadBuffer), Integer)
 
         ReadBuffer = r.ReadBytes(3) 'Dummy 
 
         ReadBuffer = r.ReadBytes(3)
         myArtikel.ArNr = CType(Comp6toString(ReadBuffer), Integer)
 
         ReadBuffer = r.ReadBytes(298) 'Dummy 
 
         myArtikel.ArVpe = r.ReadInt32 
         myArtikel.ArVpe = myArtikel.ArVpe / 1000 '3 NK Stellen
 
         ReadBuffer = r.ReadBytes(85) 'Dummy
 
         myArtikel.ArBest = r.ReadInt32
         myArtikel.ArBest = myArtikel.ArBest / 1000 '3 NK Stellen
 
         ReadBuffer = r.ReadBytes(5) 'Dummy 
 
         myArtikel.ArNlKz = r.ReadChar 
 
         ReadBuffer = r.ReadBytes(4) 
         myArtikel.ArNlDatum = Comp6toString(ReadBuffer)
 
         myArtikel.ArNlText = r.ReadChars(50) 
 
         ReadBuffer = r.ReadBytes(808) 'Dummy 
 
         ReadBuffer = r.ReadBytes(1) 
         myArtikel.ArVbTyp = CType(Comp6toString(ReadBuffer), Integer)
 
         ReadBuffer = r.ReadBytes(43) 'Dummy 
 
         ReadBuffer = r.ReadBytes(3) 
         myArtikel.ArErNr = CType(Comp6toString(ReadBuffer), Integer)
 
         ReadBuffer = r.ReadBytes(1753) 'Dummy
 
         ReadBuffer = r.ReadBytes(4) 
         myArtikel.ArLoeDatum = Comp6toString(ReadBuffer)
 
         ReadBuffer = r.ReadBytes(2) 'Satzlängenbyte nächster Datensatz
 
         Erfolg = True
      End If
  Catch ex As Exception
      MessageBox.Show(ex.ToString)
      Erfolg = False
 
  End Try
 
  Return Erfolg
 
End Function
 
Public Function Comp6toString(b() As Byte) As String
 
  Dim x As String = ""
  For i = 0 To b.Length - 1           'Arrays sind 0-basiert
      x &= b(i).ToString("x2")
  Next
  Return x
 
End Function