Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 09:57

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Vb "Contains"

Discussion on Vb "Contains" within the .NET Languages forum part of the Coders Den category.

Reply
 
Old 08/31/2010, 18:10   #16
 
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
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
Algaten™ is offline  
Old 08/31/2010, 19:18   #17
 
Madd Eye's Avatar
 
elite*gold: 260
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
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
Madd Eye is offline  
Thanks
1 User
Old 08/31/2010, 19:37   #18
 
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
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
Algaten™ is offline  
Old 08/31/2010, 19:55   #19
 
Madd Eye's Avatar
 
elite*gold: 260
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
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
Madd Eye is offline  
Thanks
1 User
Old 08/31/2010, 20:41   #20
 
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
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 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!
Algaten™ is offline  
Old 08/31/2010, 20:53   #21
 
Madd Eye's Avatar
 
elite*gold: 260
Join Date: Apr 2010
Posts: 229
Received Thanks: 142
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
Madd Eye is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
[AUFRUF] An alle, die von "[Aimee]", "Blck-Sellerx" & ".Ava" betrogen worden sind!
03/23/2010 - Last Chaos - 34 Replies
Hallo libe ehrlichen Member von e*PvPers! Im LastChaos und Metin Bereich im TBM Forum soll ".Ava" mehrere Leute abgezogen haben. Nun kommen aber plötzlich Gegenstimmen in der iTrader Bewertung die positiv ausfallen von "Black-SellerX" und "" bei genauerem Hinsehen bemerkt man, dass diese 3 Forenuser sich gegenseitig immer wieder positiv bewerten, dennnoch werden diese von vielen Usern negativ bewertet. Von "" wurde ich selber betrogen, daher mein Interesse. Deshalb vermute ich, dass hinter...



All times are GMT +1. The time now is 09:58.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.