Wie speichere ich mehrzeilige Texte mit VB.NET 2003 in eine Datei und lese einzelne Blöcke anhand von Überschriften aus?

Um mehrzeilige Texte in eine Datei zu speichern und später anhand von Überschriften (z. B. [Block1], [Block2]) auszulesen, kannst du in VB.NET 2003 wie folgt vorgehen:

**1. Speichern mehrzeiliger Texte mit Überschriften:**

Du kannst die Datei als einfachen Text strukturieren, z. B. so:
```
[Block1]
Zeile 1 von Block 1
Zeile 2 von Block 1

[Block2]
Zeile 1 von Block 2
Zeile 2 von Block 2
```

Das Speichern könnte so aussehen:
```vbnet
Dim pfad As String = "C:\temp\textdatei.txt"
Dim sw As New System.IO.StreamWriter(pfad, False)
sw.WriteLine("[Block1]")
sw.WriteLine("Zeile 1 von Block 1")
sw.WriteLine("Zeile 2 von Block 1")
sw.WriteLine()
sw.WriteLine("[Block2]")
sw.WriteLine("Zeile 1 von Block 2")
sw.WriteLine("Zeile 2 von Block 2")
sw.Close()
```

**2. Auslesen eines Blocks anhand der Überschrift:**

Du kannst die Datei zeilenweise einlesen und die gewünschten Blöcke extrahieren:
```vbnet
Dim pfad As String = "C:\temp\textdatei.txt"
Dim blockName As String = "[Block2]"
Dim blockText As New System.Text.StringBuilder()
Dim leseBlock As Boolean = False

Dim sr As New System.IO.StreamReader(pfad)
Dim zeile As String

Do
zeile = sr.ReadLine()
If zeile Is Nothing Then Exit Do

If zeile.Trim() = blockName Then
leseBlock = True
Continue Do
End If

If leseBlock Then
If zeile.StartsWith("[") And zeile.EndsWith("]") Then
Exit Do ' Nächster Block beginnt, also stoppen
End If
blockText.AppendLine(zeile)
End If
Loop

sr.Close()

' blockText.ToString() enthält jetzt den gewünschten Block
```

**Hinweise:**
- Die Blöcke werden durch Überschriften in eckigen Klammern getrennt.
- Leere Zeilen zwischen den Blöcken sind optional, aber hilfreich für die Lesbarkeit.
- Die Methode funktioniert auch mit beliebig vielen Blöcken.

**Weitere Tipps:**
- Für komplexere Strukturen empfiehlt sich das INI-Format oder XML, aber für einfache Zwecke reicht diese Methode völlig aus.
- Achte auf den Zeichensatz beim Lesen/Schreiben (Standard ist UTF-8).

**Links:**
- [Microsoft Dokumentation zu StreamReader](https://learn.microsoft.com/de-de/dotnet/api/system.io.streamreader)
- [Microsoft Dokumentation zu StreamWriter](https://learn.microsoft.com/de-de/dotnet/api/system.io.streamwriter)