Hallo Leute ich brauche dringend Hilfe kann mir jemand diesen Code erklären?

While InStr(strSort, " ") > 0

strSort = Replace(strSort, " ", " ")

End While

Wort = Split(Trim(strSort), " ")

*Topic verschoben*

1. bitte konkreterer titel
2. sieht nach einer schleife aus, sie prüft ob im string strSort mehr als 0 leerzeichen sind und ersetzt sie , dann wird ein split vorgang vorgenommen..

LG

strSort = Replace(strSort, " ", " ")

nanu? Leerzeichen wird mit einem Leerzeichen ersetzt?

Ich sehe in diesem Code gleich drei fette Fehler:
1. ausschließlich VB6-Code in VB.net (außer du hast das Label falsch gesetzt)
2. sinnlose Schleife
3. Endlosschleife, da Zeile 2 nichts tut (außer Rechenleistung zu verschwenden)

Danke Leute vielleicht hilft das euch weiter
Public Sub WorteLesen(ByRef strSort As String, ByRef Wort() As String)

' Zeichen wie : . <> usw. Werden durch leerzeichen ersetzt

strSort = Replace(strSort, vbCrLf, " ")

strSort = Replace(strSort, ":", " ")

strSort = Replace(strSort, ".", " ")

strSort = Replace(strSort, ";", " ")

strSort = Replace(strSort, ",", " ")

strSort = Replace(strSort, """", " ")

strSort = Replace(strSort, ">", " ")

strSort = Replace(strSort, "<", " ")

strSort = Replace(strSort, "!", " ")

strSort = Replace(strSort, "?", " ")

strSort = Replace(strSort, "-", " ")

strSort = Replace(strSort, "_", " ")

strSort = Replace(strSort, "+", " ")

strSort = Replace(strSort, "%", " ")

strSort = Replace(strSort, "&", " ")

strSort = Replace(strSort, "/", " ")

strSort = Replace(strSort, "\", " ")

strSort = Replace(strSort, "(", " ")

strSort = Replace(strSort, ")", " ")

strSort = Replace(strSort, "[", " ")

strSort = Replace(strSort, "]", " ")

strSort = Replace(strSort, "{", " ")

strSort = Replace(strSort, "}", " ")

strSort = Replace(strSort, "*", " ")

strSort = Replace(strSort, "=", " ")

strSort = Replace(strSort, "'", " ")

strSort = Replace(strSort, "^", " ")

strSort = Replace(strSort, "¦", " ")

strSort = Replace(strSort, "@", " ")

strSort = Replace(strSort, "#", " ")

strSort = Replace(strSort, "°", " ")

strSort = Replace(strSort, "ç", " ")

strSort = Replace(strSort, "§", " ")

strSort = Replace(strSort, "¬", " ")

strSort = Replace(strSort, "|", " ")

strSort = Replace(strSort, "¢", " ")

strSort = Replace(strSort, "´", " ")

strSort = Replace(strSort, "~", " ")

strSort = Replace(strSort, "`", " ")

strSort = Replace(strSort, "$", " ")

strSort = Replace(strSort, "£", " ")

strSort = Replace(strSort, "¶", " ")

　

While InStr(strSort, " ") > 0

strSort = Replace(strSort, " ", " ")

End While

Wort = Split(Trim(strSort), " ")

End Sub

Public Sub WorteSchreiben(ByRef strSort As String, ByRef Wort() As String)

strSort = Join(Wort, " ")

End Sub

Der Code ist absolut sinnlos und endet in einer Endlosschleife.
Wer auch immer dir den gegeben hat, wollte dich veräppeln.

Nebenbei, bitte die Codetags nutzen.

@MR.NN Ich rate dir dringend, unsere Boardregeln zu lesen!

- Aussagekräftige Titel wählen!
- Code-Tag benutzen!
- Nur einen Thread pro Thema!
- Richtiges Unterforum wählen!

naja veräppeln glaube ich weniger

Es sieht ehr danach aus, das alle Zeichen ausser Buchstaben und Zahlen "entfernt" werden sollen.
Warum erst als Leerzeichen... weiß nur der Autor.

Aber ich denke der meint es wohl auch nur gut, hat aber wenig Ahnung.

---

Edit: Apropos CodeTag..
Wenn der gute Mann/Frau keine Ahnung hat, was er ja wohl auch sagt, dann sagt ihm "code-tag" auch nichts.
kann man soetwas nicht irgendwie automatisieren, sodaß die Forumsoftware selbst solche Dinge "in groben Maße" erkennt?

Dann verstehe ich den Sinn der Endlosschleife nicht...

Die hat sicherlich keinen Sinn und ist schlichtweg falsch..
Ich kann nur vermuten, das sie so lauten sollte..

Und derjenige "denkt" sicherlich, das beim Replace immer genau 1 Zeichen ersetzt wird.
Deshalb wohl die Schleife, damit ALLE ersetzt werden.
Ihm/Ihr hat wohl noch keiner gesagt, das dies "automatisch" in einem Rutsch geschieht, also Zeile 1 und 3 ersatzlos gestrichen werden können.

Allerding hat dann: Wort = Split(Trim(strSort), " ") auch keinen Sinn mehr, da es ja keine Leerzeichen mehr gibt zum Splitten.
Vielleicht sollten ja auch (und das vermute ich immer stärker) die doppelten Leerzeichen entfernt werden.

Tja.. ne Glaskugel müsste man haben

@RoulettePilot Nicht ganz.

MR.NN schrieb:

VB.NET-Quellcode

1. While InStr(strSort, " ") > 0
2. strSort = Replace(strSort, " ", " ")
3. End While

Diese Schleife macht dann Sinn, wenn alle multiplen Leerzeichen durch einfache Leerzeichen esetzt werden sollen.

*g* schrieb ich doch
Zitat "Vielleicht sollten ja auch (und das vermute ich immer stärker) die doppelten Leerzeichen entfernt werden."

Mit Betonung auf "Immer Stärker" weshalb ich den Code nicht nochmal mit dem 2 Leerzeichen schrieb.

okok "multiplen" klingt schöner

aber selbst da würde 1 Zeile ausreichen.

RoulettePilot schrieb:

schrieb ich doch

In Deinem Code steht aber was anderes, da wird ein doppeltes Leerzeichen durch einen Leerstring ersetzt.

Sicherlich... *g*
Die Antwort ist "Aufbauend"..
der 1. Teil nahe am original-Code.. und eine(!) Art der Interpretation - Mit Code
der 2. Teil als eine Art Schlussberachtung - Ohne Code - (deshalb .. Zitat: "immer stärker") meine Vermutung was wohl eigentlich gemeint war
(ich schrieb ja dazu, warum ich den Code nicht noch einmal in dieser Form schrieb)

(einige Dinge fallen mir erst während dem Schreiben auf, deshalb kann das Ende auch schon mal anders ausfallen als am Anfang gedacht

Aber egal Wir wissen ja was gemeint ist

@Admin tut mir Leid bin neu hier nächstes mal mache ich es besser
Danke Leute aber könnt ihr mir das Erklären mit dem Code?
Der Lehrer fragt mich um was es hier geht in diesem Code
ich weiss nicht was das hier macht Wort = Split(Trim(strSort), " ") oder InStr

Wort = Split(Trim(strSort), " ")
.. nimmt einen Text der in strSort ist (z.B. "Mein Lehrer muss sehr alt sein"), und
a) löscht vorne und hinten unnötige Leerzeichen (durch dem Befehl "Trim")
b) Zerteilt diesen Satz in seine Einzlenen Worter ( durch den Befehl "Split") und das bei jedem Leerzeichen
c) Am Ende kommt ein Array heraus, was die einzelnen Wörter enthält
Wort(0)= "Mein"
Wort(1)= "Lehrer"
Wort(2)= "muss"
usw.

MR.NN schrieb:

ich weiss nicht was das hier macht Wort = Split(Trim(strSort), " ") oder InStr

Zuerst solltest Du einfach mal auf das Dir unbekannte Wort klicken und dann die Taste F1 (= Hilfe) drücken. Da öffnet sich die MSDN und Du bekommst Hilfe aus erster Hand.
Es ist nicht Aufgabe des Forums, Dir die einzelnen Befehle haarklein zu erläutern, etwas musst Du schon selbst tun.

@RoulettePilot Ich danke dir das Hilft mir jetzt Danke Danke Danke
@RodFromGermany Tut mir leid ne Wenn ich das wüsst hätte ich ja nicht gefragt. Ich kenne Visual Basic nicht. Denn Stoff haben wir erst jetzt angefangen.

Dann der kleine Tipp, der nicht nur für Visual Studio gilt...
Die Hilfe lesen.
Die Hilfe der meisten Programme hat die Ignoranz der Nutzer in den meisten Fällen nicht verdient