---

Projectinfo.txt

Guten Tag!
Ich erstelle über Export/Beschriftung eine Textdatei mit bestimmten Feldern aus dem Strukturcode. Siehe dazu den Anhang. Dann möchte ich mit einem Skript eine Textlinie in dieser Textdatei finden, die den Text "RK2" enthält und diese Textslinie in eine Variable schreiben. Kann mir jemand ein Beispiel dafür geben, wie ich das in VB.net machen kann? Ich kann es nicht herausfinden.

[Diese Nachricht wurde von HvdP am 14. Jun. 2024 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich weiß nicht ob das genau das ist was du möchtest, aber hier wäre ein Vorschlag:

Imports System.IO

Module Module1
    Sub Main()
        ' Pfad zur Textdatei
        Dim filePath As String = "C:\pfad\zur\datei.txt"
        ' Variable zur Speicherung der gewünschten Zeile
        Dim lineFound As String = String.Empty

        ' Datei zeilenweise lesen
        Try
            Using sr As New StreamReader(filePath)
                Dim line As String

                ' Zeile für Zeile lesen
                Do
                    line = sr.ReadLine()
                    If line Is Nothing Then
                        Exit Do
                    End If

                    ' Prüfen, ob die Zeile mit "RK2" beginnt
                    If line.StartsWith("RK2") Then
                        lineFound = line
                        Exit Do ' Schleife abbrechen, sobald die Zeile gefunden wurde
                    End If
                Loop
            End Using
        Catch e As Exception
            ' Fehlerbehandlung für den Fall, dass die Datei nicht gelesen werden kann
            Console.WriteLine("Die Datei konnte nicht gelesen werden:")
            Console.WriteLine(e.Message)
        End Try

        ' Überprüfen, ob die gewünschte Zeile gefunden wurde
        If lineFound <> String.Empty Then
            Console.WriteLine("Gefundene Zeile: " & lineFound)
        Else
            Console.WriteLine("Keine Zeile gefunden, die mit 'RK2' beginnt.")
        End If
    End Sub
End Module

Erklärung des Codes:
Pfad zur Textdatei: Der Pfad zur Textdatei wird in der Variablen filePath gespeichert. Diese sollte auf die tatsächliche Datei auf Ihrem System verweisen. Passen Sie den Pfad entsprechend an.

Lesen der Datei: Mit Using sr As New StreamReader(filePath) wird die Datei zeilenweise gelesen.

Überprüfen und Speichern der Zeile: Jede Zeile wird daraufhin geprüft, ob sie mit "RK2" beginnt (line.StartsWith("RK2")). Wird eine solche Zeile gefunden, wird sie in der Variablen lineFound gespeichert und die Schleife mit Exit Do abgebrochen.

Fehlerbehandlung: Falls ein Fehler auftritt, z.B. wenn die Datei nicht gefunden wird oder ein anderer Lesefehler vorliegt, wird eine Fehlermeldung ausgegeben.

Ausgabe der gefundenen Zeile: Nachdem die Datei durchgegangen wurde, wird geprüft, ob eine Zeile gefunden wurde und diese wird ausgegeben.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für das Beispiel!
Zunächst hatte ich mit der StreamReader-Funktion experimentiert. Das hat nicht funktioniert. Aber das stellte sich im Nachhinein heraus, weil es falsch deklariert war.
Mit der Funktion ReadAllLines hatte ich Erfolg:

Code:
Public Class Read_TxtFile
<Start> _
Public Sub ReadTxt()
Dim strFilepath As String = "C:\Temp\Projectinfo.txt"
Dim strSearchttext As String = "RK2"
Dim readText() As String = System.IO.File.ReadAllLines(strFilepath)
Dim strTextLine As String
 
For Each strTextLine In readText
  If strTextLine.Contains(strSearchttext)
      Messagebox.Show(strTextLine, "This textline contains: " & strSearchttext)
  End If
        Next
End Sub
End Class

So macht Skripting Spaß. Vor allem, wenn es funktioniert. Aber oft auch frustrierend, wenn man einen Fehler findet :-(.

Mit freundlichen Grüßen

Übersetzt mit DeepL.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP