Moin,
ich stehe gerade vor dem Problem in einem Text nach einem String ("Befund:") zu suchen, und alles was in den darauffolgenden Zeilen kommt in einem neuen String zu Kopieren und auszugeben.
Wahrscheinlich voll einfach, aber ich stehe total auf dem Schlauch.
Code bisher:
in der out.txt sollen dann nachher die Gefundenen Strings sein.
Der Suchbegriff "Befund:" kann auch mehrfach in einem Dokument vorkommen, es sollen dann auch alle ausgegeben werden.
ich stehe gerade vor dem Problem in einem Text nach einem String ("Befund:") zu suchen, und alles was in den darauffolgenden Zeilen kommt in einem neuen String zu Kopieren und auszugeben.
Wahrscheinlich voll einfach, aber ich stehe total auf dem Schlauch.
Code bisher:
Quellcode
- Dim pfad As String = My.Settings.Dir_Austausch 'global gesetzter Pfad
- Dim file As String
- Dim befund As String
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim rtb As New RichTextBox
- OpenFileDialog1.ShowDialog()
- file = OpenFileDialog1.FileName
- rtb.LoadFile(file)
- befund = RichTextBox1.Text
- My.Computer.FileSystem.WriteAllText(pfad & "\out.txt",
- befund, True)
- End Sub
in der out.txt sollen dann nachher die Gefundenen Strings sein.
Der Suchbegriff "Befund:" kann auch mehrfach in einem Dokument vorkommen, es sollen dann auch alle ausgegeben werden.