Hallo,

ich brauch mal nen kleinen Denkanstoß:
Ich habe einen String (Beispiel: V7EÄäuÄÄä0FNe)

So in diesen String kommt an Position 4,5 und 7,8,9 hintereinander ein Ä(oder ä) vor.
Mit welcher Methode kann ich doppelt/mehrfach hintereinander stehende Zeichen (Bei Buchstaben egal ob groß oder klein) zählen?

Meine Idee:
Einen Integer definieren welcher für die anzahl steht:
Dim DubCount as Integer = 0

und definiere einen String, welcher das aktuelle zeichen enthält welche überprüft wird.

Dim ProofStr as String = ""

So nun gehe ich mit ner schleife jedes Zeichen des zu überprüfenden Strings durch und gucke was dach nächste Zeichen ist.

Nun gut... was mein Problem ist, wie überprüfe ich mit ner Schleife jedes einzelne und folgende Zeichen?
Also gibt es eine Methode zb. TextBox3.Char(x) wobei x das zu überprüfende Zeichen, also die Position darstellt also ProofStr = TextBox3.Char(4) | ProofStr = "Ä".

Ich kann nicht so gut VB, sollte aber ungefähr so aussehen



Das is jetz ne schleife, die jedes Zeichen durchgeht.
Dort überspringst du immer einen index und checkst beide Zeichen

Die indexe (? :D) kannst du dann yielden oder irgendwo abspeichern

Grüße

Danke schön ,-)
Kleine Frage noch, die Funktion überprüft ja ob das folge Zeichen das selbe ist wie das zu Überrpüfende.
Ich muss aber für die Funktion ein Zeichen (chr) übergeben... -> CountChar(String, "A") zb. (oder sehe ich das falsch?)
Wenn ja, dann überprüft er doch nur auf diese eine Zeichen hin. Es soll aber überprüft werden ob ein belibiges Zeichen das folge Zeichen des selben belieben Zeichen (bei buchstaben groß oder klein egal) ist.

//Edit Falschen code entfernt

Grüße

Eig. möchte ich, dass die Funktion eigenständig Zeichen x abfragt und guckt ob zeichen x+1 = Zeichen x ist und wenn zeichen x = x+1, dann soll gegucklt werden ob zeichen x = x +2 usw.

Falls x ungleich x +1 dann soll überprüft werden ob x+1 = x +2 usw.

dann soll in einen integer die insgesammt vorhandene anzahl an doppelten zeichen
bei dem String: V7EÄäuÄÄä0FNe
soll das Ergebnis der Funktion sein: 5

Bei: V77äÄertZz soll das ergebnis sein : 6

Achso ok. Hab meinen C# code aus dem vorherigen code angepasst, der tut jetzt das was er soll.

Kannste ja übersetzen

//Edit scheiß drauf ich schreib das schnell nochma in VB.
Moment



So sollte jetzt stimmen

Grüße

vielen dank für die mühe
An sich würde ich behaupten, das ist das was ich gesucht habe
Aber ich erhallte bei der übergabe des Strings ne fehlermeldung:
Der Index war außerhalb des Arraybereichs Angezeigt in : If str(i) = str(i + 1) Then [das .ToLower() musste ich entfernen, da ich dort die meldung bekommen habe "fehler bei der Überladungsauflösung, da keine zugreifbare "ToLower" die Anzahl an Argumenten akzeptiert" andere möglichkeit währe str(i).ToString.ToLower was zwar keine meldung mehr verursagt, aber ich finde das unlogisch da Str doch ein String bereits ist (oder nicht?)]

str ist ein string, str(i) ist ein char.

Wenn die ToLower erweiterung nur für strings existiert musste wohl wirklich .ToString().ToLower() machen

Die Fehlermeldung mit dem index tritt auf, wenn das letzte zeichen im string ein doppeltes zeichen ist. Dabei wird der index um 2 erhöht und es wird auf das letzte zeichen des strings + 1 zugegriffen. Da dies nicht existiert gibts ne exception.

Das kannst du beheben indem du in nem if-statement checkst, ob i = str.Length - 2 ist. Wenn ja, dann darf i nicht um 2, sondern nur um eins inkrementiert werden.

Der Fehler tritt auf, bei jedem String den ich übergebe egal ob die letzten zeichen doppelt sind oder nicht.

Versuch trotzdem mal das mit der if-abfrage, kann eigentlich nur daran liegen.

Grüße

jop, vielen dank
jetz muss ich nurnoch eine kleinigkeit korregieren, bei 3 gleichen zeichen hintereinander wird ausgegeben, es seien nur 2, bei dem 4. wird 4 ausgegeben beim 5. wieder nur 4 usw.

Aber ansonsten, danke für die Hilfe

Hmm entferne einfach mal das i = i + 1 komplett und guck obs dann funktioniert
Grüße

Jahh es wird
Jetz zählt er den brav 1,2,3,4... aber jetzt zählt er ab 1 los bei "aa" gibt er 1 aus bei "aaa" 2 bei "aaaa" 3 gut wenn aber zwei gleiche zeichen an unterschiedlichen positionen ausftreten "aabb" wird 2 ausgegebn, mit anderen worten, es fehlt noch dass beim ersten doppelten zeichen +2 statt +1 gerechnet wird.

Kannst du bitte den code posten, den du gerade benutzt?
Mit ein bisschen Glück find ich den Fehler

Eingabe:

ok.. shit.
Ich sehe nicht, wo der fehler ist. Is auch schon relativ spät und ich hab letzte nacht durchgemacht. Tut mir echt leid

Wie genau soll denn gezählt werden? Welche Zahl erwartest du z.B. bei deinem Beispiel von oben, 2 oder 5 oder was ganz anderes? Dann würd' ich mich auch mal dransetzen.

#Off-Topic
Haha
Naja nach meiner 3. schlaflosen Nacht hatte ich Hallos... Also ab schlafen mit dir
Ich für meinen Teil werde auch ma nächtigen

#Topic
Ja, kein Problem^^ An sich fehlt nurn Boolean der bei false auf true gesetzt wird fals str(i).ToString.ToLower = str(i + 1).ToString.ToLower then count += 2
ansonsten wenn der boolean bereits true ist dann count += 1
sollte str(i).ToString.ToLower = str(i + 1).ToString.ToLower = falsch sein, dan wird der boolean auf false gesetzt
Aber das sollte ich dann noch selber hinbekommen ,-)

in dem Sinne gute Nacht und Vielen dank

//Edit: @ Artentus:
Bei "aa" sol 2 ausgegeben werden, es wird aber 1 ausgegeben
Bei "aabb" sol 4 ausgegeben werden, es wird aber 2 ausgegeben
Bei "aaabb" soll 5 Ausgegeben wernm, es wird aber 3 ausgegeben

Bitteschön, hatte keine Lust mehr, es noch zu konvertieren, zu spät:
Dieser Code ist nicht so starr und hat deswegen nicht die obigen Probleme.

Der Fehler mit dem Index weiter oben kommt weil die Schleife von 0 bis str.Length geht, darf aber nur bis str.Length - 1 gehen. str.Length ist die Anzahl an Zeichen im String, der Index der einzelnen Zeichen geht aber von 0 bis Length-1.