Public Class frmBlock
 
    Dim WithEvents cboBlocks As New ComboBox With {.Parent = Me}
 
    Dim tboBlock As New TextBox With _
       {.Parent = Me, .Top = 50, .Multiline = True, _
        .Width = 200, .Height = 200}
 
    Dim WithEvents btnSpeichern As New Button With _
       {.Parent = Me, .Top = 300, .Text = "Speichern"}
 
 
    Dim blocks As List(Of List(Of String))
 
 
    Private Sub frmBlock_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'siehe gestrigen Beitrag - weiter unten im Thread
        blocks = ReadBlocks("C:\Daten\start_ende.txt")
 
        For i As Integer = 0 To Blocks.count - 1
            cboBlocks.Items.Add(blocks(i)(0))
        Next i
        cboBlocks.SelectedItem = 0
 
    End Sub
 
 
 
    Private Sub cboBlocks_SelectedIndexChanged(sender As Object, _
        e As System.EventArgs) Handles cboBlocks.SelectedIndexChanged
        SetBlock()
    End Sub
 
 
    Private Sub btnSpeichern_Click(sender As Object, _
        e As System.EventArgs) Handles btnSpeichern.Click
        Speichern()
    End Sub
 
    Private Sub Speichern()
 
        GetBlock()
 
        Using tw As New IO.StreamWriter("C:\daten\ausgabe.txt")
            For i As Integer = 0 To blocks.Count - 1
                Dim header As String = blocks(i)(0) & "_Start"
                Dim footer As String = blocks(i)(0) & "_Ende"
 
                tw.WriteLine(header)
                For k As Integer = 1 To blocks(i).Count - 1
                    tw.WriteLine(blocks(i)(k))
                Next k
                tw.WriteLine(footer)
                tw.WriteLine("")
            Next i
        End Using
    End Sub
 
 
    Private Sub GetBlock()
 
        'aktuellen Block aus Textbox in BlockListe übertragen
 
        Dim ind As Integer = cboBlocks.SelectedIndex
 
        With tboBlock
            Dim header As String = blocks(ind)(0)
            blocks(ind).Clear()
            blocks(ind).Add(header)          
            For i As Integer = 0 To .Lines.Length - 1
                blocks(ind).Add(.Lines(i))
            Next i
        End With
    End Sub
 
 
    Private Sub SetBlock()
 
        'aktuellen Block in Textbox eintragen
        tboBlock.Clear()
        Dim ind As Integer = cboBlocks.SelectedIndex
        For k As Integer = 1 To blocks(ind).Count - 1
            tboBlock.AppendText(blocks(ind)(k) & vbCrLf)
        Next k
    End Sub
 
End Class