Imports System
Imports System.IO
Imports Microsoft.VisualBasic
 
Public Class frm_main
 
    Private Sub cmd_erauswahl_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_erauswahl.Click
        ofdg_er.Filter = "Textdateien|*.txt"
        ofdg_er.ShowDialog()
    End Sub
 
    Private Sub ofdg_er_FileOk(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles ofdg_er.FileOk
        Dim strm_er As System.IO.Stream
        strm_er = ofdg_er.OpenFile()
        txt_er.Text = ofdg_er.FileName.ToString()
        strm_er.Close()
        strm_er.Dispose()
        ofdg_er.Dispose()
    End Sub
 
    Private Sub cmd_belegauswahl_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles cmd_belegauswahl.Click
        ofdg_beleg.Filter = "Textdateien|*.txt"
        ofdg_beleg.ShowDialog()
    End Sub
 
    Private Sub ofdg_beleg_FileOk(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles ofdg_beleg.FileOk
        Dim belegnrstrm As System.IO.Stream
        belegnrstrm = ofdg_beleg.OpenFile()
        txt_belegnr.Text = ofdg_beleg.FileName.ToString()
        belegnrstrm.Close()
        ofdg_beleg.Dispose()
    End Sub
 
    Private Sub cmd_abgleich_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_abgleich.Click
        Dim fname_er As String
        Dim fname_belegnr As String
        Dim line_er As String = ""
        Dim line_belegnr As String = ""
        Dim belegnr_er As String = ""
        Dim belegnr_belegnr As String = ""
        Dim tmp_er As ArrayList = New ArrayList
        Dim tmp_bn As ArrayList = New ArrayList
 
        fname_er = txt_er.Text
        fname_belegnr = txt_belegnr.Text
 
        Dim fs_er As FileStream = New FileStream(fname_er, _
          FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim fs_bn As FileStream = New FileStream(fname_belegnr, _
        FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim sr_er As StreamReader = New StreamReader(fs_er)
        Dim sr_bn As StreamReader = New StreamReader(fs_bn)
        Dim sw_er As StreamWriter = New StreamWriter(fs_er)
 
        If MsgBox("WARNUNG ! Es werden nun nicht mehr benötigte Daten aus dem" & _
          "ER File entfernt !" & vbCrLf & "Falls Sie noch kein Backup der" & _
          "Originaldatei angelegt haben, so tun Sie dies bitte jetzt.", _
          MsgBoxStyle.Critical + MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel _
          Then GoTo abort Else 
 
        Dim x As Decimal = 0
        Do While Me.Opacity > 0.5
            Me.Refresh()
            Me.Opacity -= 0.05
            For x = 1 To 100000
            Next x
        Loop
 
 
        Do While sr_bn.Peek <> -1
            line_belegnr = sr_bn.ReadLine()
            belegnr_belegnr = line_belegnr.Substring(0, 7)
            tmp_bn.Add(belegnr_belegnr)
        Loop
 
        Do While sr_er.Peek <> -1
            line_er = sr_er.ReadLine
            belegnr_er = Mid(line_er, 12, 7)
            Console.WriteLine(belegnr_er)
            If tmp_bn.Contains(belegnr_er) Then
            Else
                sw_er.WriteLine(line_er)
            End If
        Loop
 
        Do While Me.Opacity < 1.0
            Me.Refresh()
            Me.Opacity += 1.0
            For x = 1 To 100000
            Next x
        Loop
 
        'fs_er.Close()
        fs_bn.Close()
        'sr_er.Close()
        sr_bn.Close()
        'sw_er.Close()
        'sw_bn.Close()
abort:
    End Sub
 
Lg
End Class