[VB.NET] Hilfe, ich stehe auf der Leitung

[heatshock]

            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"

Dieses Script durchsuch nen string nach schlüsselwörtern die in einer txt drinne stehen.
aber irgentwie funktioniert das nich.
2 mal öffnet sich das MSG box fenster aber dann schreibt er sofort ende..

[w0red]

Kann sein, das ich ein bisschen muede bin, aber als erstes definierst du counter as string und counter 2 als eine länge, dann rufst du counter2 auf um etwas anzugeben, und in counter lässt du das gefundene wort ausgeben... danach zählst du auf das gefunde wort ne 1 zu (beispiel: "gefunden" = "gefunden1")?!

Meiner Meinung nach kann das garnicht funktionieren?!
Meld dich bei mir in Icq, wenne hilfe brauchst!!!

Mfg
Slay2oo7

[nemo]

~

[heatshock]

Aber warum immer durch LF ^J getrennt?

wie kommt du darauf?
es wird doch immer durch chr(10)(leerzeichen) getrennt..

ansonsten wundert es mich immernoch..

[nemo]

~