Vb "Contains"

Page 2 of 2 1 2
08/31/2010 18:10 Algaten™#16
Quote:
Originally Posted by Madd Eye View Post
Was heißt immer die Selben Angaben?
Ein paar mehr infos wären nicht schlecht ^^

Evtl. auch die zwei Texte dazu
Das wenn ich z.b. in die erste textbox schreibe:
Hallo
Dies
Ist
EIN
Test!
Und in die Zweite das selbe schreibe kommt draus das es 4 gleiche wörter sind obwohl es 5 sind und wenn ich dann einen anderen text nehme z.b.

Mänö
Das
Geht
Nicht :(
Buuuh!

dann kommt anstatt 5 wieder 4 raus :(
und wenn was nicht überienander einstimmt ist auch wieder ein fehler da :(
08/31/2010 19:18 Madd Eye#17
Also wenn ich bei mir den Code einfüge und deine Texte nehmen kommt beim ersten (ohne zeilenumbruch sondern mit Leerzeichen) 5 Raus

mit dem 2. Text kommt 6 raus also der Code stimmt.
Es müssen halt Leerzeichen und keine Zeilenumbrüche sein
08/31/2010 19:37 Algaten™#18
Quote:
Originally Posted by Madd Eye View Post
Also wenn ich bei mir den Code einfüge und deine Texte nehmen kommt beim ersten (ohne zeilenumbruch sondern mit Leerzeichen) 5 Raus

mit dem 2. Text kommt 6 raus also der Code stimmt.
Es müssen halt Leerzeichen und keine Zeilenumbrüche sein
Is ja dumm :(
Muss ich dann öfters Tabulator drücken :)
#closen pls
08/31/2010 19:55 Madd Eye#19
nein man kann den code erweitern
ganz simpel sogar
Code:
Label4.Text = "0"
Label1.Text = "0"

Dim sLine As String()
Dim sArray as String()
Dim user As String
sLine = Split(TextBox1.Text, vbNewLine)

Dim sPerline As String()
Dim nbr as Integer = -1
Dim wortcount as Integer = -1

For Each line as String in sLine

	nbr = nbr + 1
	sPerline(nbr) = Split(line, " ")
	For Each wort as String in SPerline
		wortcount = wortcount + 1
		sArray(wortcount) = wort		
	Next wort
Next line

Dim erlaubt As String
Dim sarray1 As String()
sarray1 = Split(TextBox2.Text, "")

For Each user In sArray
For Each erlaubt In sarray1
If erlaubt.Contains(user) Then

Label4.Text = Val(Label4.Text) + Val("1")
Else

Label1.Text = Val(Label1.Text) + Val("1")

End If
Next erlaubt
Next user
08/31/2010 20:41 Algaten™#20
Quote:
Originally Posted by Madd Eye View Post
nein man kann den code erweitern
ganz simpel sogar
Code:
Label4.Text = "0"
Label1.Text = "0"

Dim sLine As String()
Dim sArray as String()
Dim user As String
sLine = Split(TextBox1.Text, vbNewLine)

Dim sPerline As String()
Dim nbr as Integer = -1
Dim wortcount as Integer = -1

For Each line as String in sLine

	nbr = nbr + 1
	sPerline(nbr) = Split(line, " ")
	For Each wort as String in SPerline
		wortcount = wortcount + 1
		sArray(wortcount) = wort		
	Next wort
Next line

Dim erlaubt As String
Dim sarray1 As String()
sarray1 = Split(TextBox2.Text, "")

For Each user In sArray
For Each erlaubt In sarray1
If erlaubt.Contains(user) Then

Label4.Text = Val(Label4.Text) + Val("1")
Else

Label1.Text = Val(Label1.Text) + Val("1")

End If
Next erlaubt
Next user
Danke :DDD

EDIT:

Fehler 1 Der Wert vom Typ "1-dimensionales Array von String" kann nicht in "String" konvertiert werden. C:\Users\User\Documents\Visual Studio 2008\Projects\Testing!\Testing!\Form1.vb 17 29 Testing!
08/31/2010 20:53 Madd Eye#21
Code:
 Label4.Text = "0"
        Label1.Text = "0"

        Dim sLine As String()
        Dim sArray As String()
        Dim user As String
        sLine = Split(TextBox1.Text, vbNewLine)

        Dim sPerline As String()
        Dim wortcount As Integer = -1

        For Each line As String In sLine
            sPerline = Split(line, " ")
            For Each wort As String In sPerline
                wortcount = wortcount + 1
                sArray(wortcount) = wort
            Next wort
        Next line

        Dim erlaubt As String
        Dim sarray1 As String()
        sarray1 = Split(TextBox2.Text, "")

        For Each user In sArray
            For Each erlaubt In sarray1
                If erlaubt.Contains(user) Then

                    Label4.Text = Val(Label4.Text) + Val("1")
                Else

                    Label1.Text = Val(Label1.Text) + Val("1")

                End If
            Next erlaubt
        Next user
Srry mein Fehler xD
Page 2 of 2 1 2