________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class Form1
 
    'Wir haben einen Button1 auf der Form1 und eine TextBox1 mit Einstellung 
    ' "Multiline":
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim strDatei As String = "d:\testdatei.txt"
        Dim strZeile As String
        Dim strText As String
 
        Dim sr As New System.IO.StreamReader(strDatei)
 
        Do While Not sr.EndOfStream
            strZeile = sr.ReadLine()
            If strZeile.Contains("_Start") Then
                Do
                    strZeile = sr.ReadLine()
                    If Not strZeile.Contains("_Ende") Then
                        strText = strText & strZeile & vbCrLf
                    End If
                Loop Until strZeile.Contains("_Ende")
            End If
        Loop
 
        sr.Close()
 
        TextBox1.Text = strText
 
    End Sub
End Class

EALA FREYA FRESENA

    Public Function ReadBlocks _
        (ByVal filename As String) As List(Of List(Of String))
 
        If Not IO.File.Exists(filename) Then Return Nothing
 
        Dim lines() As String = IO.File.ReadAllLines(filename)
        If lines.Length < 3 Then Return Nothing
 
        Dim startindex As Integer = -1
        Dim blocklist As New List(Of List(Of String))
        Dim blockheader As String = ""
 
        For i As Integer = 0 To lines.Count - 1
 
            If lines(i).Trim.ToUpper.EndsWith("_START") Then
                If Not startindex = -1 Then Return Nothing 'ENDE fehlt
                startindex = i + 1
                blockheader = lines(i).Trim.ToUpper.Replace("_START", "")
            End If
 
            If lines(i).Trim.ToUpper.EndsWith("_ENDE") Then
                If startindex = -1 Then Return Nothing 'START fehlt
                Dim block As New List(Of String)
                block.Add(blockheader)
 
                For k As Integer = startindex To i - 1
                    block.Add(lines(k))
                Next k
 
                startindex = -1 'Suche nach dem nächsten Block
                blocklist.Add(block)
            End If
        Next i
 
        If Not startindex = -1 Then Return Nothing 'ENDE fehlt
        Return blocklist
    End Function

EALA FREYA FRESENA

    Private Sub Schreiben()
 
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter( _
          My.Application.Info.DirectoryPath & "\Data\" & "Test.txt", True)
        file.WriteLine("Here is the first string." & vbNewLine & vbNewLine & _
        TextBox1.Text)
        file.Close()
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

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

Micke

Micke

Micke

Beitrag wurde zuletzt am 27.10.14 um 10:57:14 editiert.

EALA FREYA FRESENA