2 Fragen zu Textblock

Um in Microsoft Word den Zeilenabstand einer einzelnen Zeile innerhalb eines Textblocks zu ändern, gehst du wie folgt vor: 1. Markiere die Zeile, deren Zeilenabstand du ändern möchtest. 2. Klicke im Menüband auf den Reiter **"Start"**. 3. Im Bereich **"Absatz"** findest du das Symbol für den Zeilen- und Absatzabstand (meistens sind es Linien mit zwei Pfeilen nach oben und unten). 4. Klicke darauf und wähle den gewünschten Zeilenabstand (z.B. 1,0; 1,15; 1,5; 2,0). 5. Für einen individuellen Abstand klicke auf **"Zeilenabstandsoptionen..."**. Im sich öffnenden Fenster kannst du unter **"Zeilenabstand"** einen genauen Wert einstellen. Wichtig: Die Änderung gilt nur für die markierte Zeile. Alle anderen Zeilen im Textblock bleiben unverändert.

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)