PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.NET] Hilfe, ich stehe auf der Leitung



heatshock
10.08.2008, 05:11
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
10.08.2008, 05:19
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
10.08.2008, 10:45
~

heatshock
10.08.2008, 14:42
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
10.08.2008, 15:04
~