Dieses Script durchsuch nen string nach schlüsselwörtern die in einer txt drinne stehen.Code:Dim Zeile As String Dim myStreamReader As StreamReader myStreamReader = File.OpenText("words.txt") Zeile = myStreamReader.ReadToEnd() Dim test As Array = Zeile.Split(Chr(10)) Dim counter As String = Nothing Dim counter2 As String = test.Length RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Wörter nach denen gesuch wird:" + counter2 While counter <= counter2 MsgBox(test(counter)) If asd.Contains(test(counter)) Then RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Wort Gefunden :" + test(counter) RichTextBox1.Text = RichTextBox1.Text + Chr(10) + test(counter) End If counter = counter + +1 End While myStreamReader.Close() RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Ende"
aber irgentwie funktioniert das nich.
2 mal öffnet sich das MSG box fenster aber dann schreibt er sofort ende..