Imports System.IO
Imports System
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Object
 
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles strOeffnen.TextChanged
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles strSpeichern.TextChanged
    End Sub
 
    Private Sub oeffnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles buOeffnen.Click
        With OpenFileDialog1
            .Filter = "Excel-Mappen (*.csv) |*.csv"
            .FilterIndex = 1
            .FileName = "*.csv"
            .InitialDirectory = "c:\"
            .Title = "Bitte einzulesenden Datei wählen"
            .DefaultExt = ".csv"
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                strOeffnen.Text = OpenFileDialog1.FileName
            Else
                MsgBox("Bitte Quelldatei angeben")
            End If
        End With
    End Sub
 
 
    Private Sub speichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BuSpeichern.Click
        With SaveFileDialog1
            .AddExtension = True
            .DefaultExt = "csv"
            .Filter = "CSV-Dateien (*.csv) |*.csv"
            .InitialDirectory = "c:\"
            .CreatePrompt = False
            .Title = "Bitte die zu speichernde Datei wählen"
            If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                strSpeichern.Text = SaveFileDialog1.FileName
            Else
                MsgBox("Bitte Zieldatei angeben")
            End If
        End With
    End Sub
 
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        If strOeffnen.Text = "" Or strSpeichern.Text = "" Then
            MsgBox("Bitte Quell und Zieldatei wählen")
            Exit Sub
 
 
        End If
 
 
        Main()
 
    End Sub
 
 
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    End Sub
 
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    End Sub
 
    Private Sub Ende_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Ende.Click
        Application.Exit()
    End Sub
 
 
    Public Sub Main()
        Dim laufwerk As String = IO.Path.GetDirectoryName(strSpeichern.Text)
        Dim dateiname As String = IO.Path.GetFileNameWithoutExtension( _
          strSpeichern.Text)
        Dim extension As String = IO.Path.GetExtension(strSpeichern.Text)
        Dim sr As New StreamReader(strOeffnen.Text)
        Dim zeile As String
        Dim zeilenzahl As Integer = 10000
        Dim zeilenzaehler As Integer = zeilenzahl
        Dim schreiben As StreamWriter
        Dim dateinummer As Integer
        Dim erstezeile As String
        Dim belegfeld As String
        Dim belegfeld2 As String
        Do
            zeile = sr.ReadLine
            If zeile Is Nothing Then Exit Do
            Dim felder() As String = zeile.Split(";")
            belegfeld = felder(2)
            If zeilenzaehler >= zeilenzahl And belegfeld <> belegfeld2 Then
                If schreiben IsNot Nothing Then schreiben.Close()
                zeilenzaehler = 0
                dateinummer += 1
                schreiben = New StreamWriter(laufwerk & "\" & dateiname & _
                  dateinummer.ToString() & extension)
                If dateinummer = 1 Then erstezeile = zeile
                If dateinummer > 1 Then schreiben.WriteLine(erstezeile)
            End If
 
            schreiben.WriteLine(felder(0) & ";" & felder(1) & _
                                            ";" & felder(2) & _
                                            ";" & felder(3) & _
                                            ";" & felder(4) & _
                                            ";" & felder(5) & _
                                            ";" & felder(6) & _
                                            ";" & felder(7))
            zeilenzaehler += 1
            belegfeld2 = felder(2)
        Loop
        sr.Close()
        schreiben.Close()
        Application.Exit()
    End Sub
End Class