Ich habe in einer Textdatei Zeilen dieses Formats:

word1|word2|word3
anotherword1|anotherword2

Ich versuche, jedes Wort einzeln in jede Zeile dieser Datei zu teilen. Sobald das Programm erkennt, ob die Richtextbox eines dieser Wörter enthält, wird dieses Wort durch die nicht getrennte Zeile ersetzt. Beispiel: Von Wort1 zu Wort1 | Wort2 | Wort3

Hier ist was ich bisher habe:

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    For Each line As String In File.ReadLines("C:\text.txt")
        Dim input As String = line
        Dim result As String() = line.Split(New String() {"|"}, StringSplitOptions.None)
        For Each s As String In result
            Try
                Dim linex As String = line
                RichTextBox1.Text = RichTextBox1.Text.Replace(s, " " & linex)
            Catch exxx As Exception
            End Try
        Next
    Next
End Sub

Es funktioniert prima, aber nach dem Ersetzen enthält der ersetzte Text immer noch das erkannte Wort und ersetzt sich selbst für immer durch wort1 | wort2 | wort3. Und ich möchte den Prozess nur einmal machen.

So was:Zum Anzeigen klicke