Vb "Contains"

[Algaten™]

Originally Posted by Madd Eye

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

[Madd Eye]

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

[Algaten™]

Originally Posted by Madd Eye

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

[Madd Eye]

nein man kann den code erweitern
ganz simpel sogar

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

[Algaten™]

Originally Posted by Madd Eye

nein man kann den code erweitern
ganz simpel sogar

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 DD

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!

[Madd Eye]

 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