Das deutsche QBasic- und FreeBASIC-Forum

[gandro]

Ich habe wieder mal ne Frage; dessen Lösung ich schon seit Vorgestern Abend suche:

Angenommen ich hätte einen String, dessen Inhalt zum Beispiel "Das ist ein Satz mit Wörtern." ist. Wie kann ich jetzt alle Wörter in ein Array/Feld platzieren, so das jedes Wort ein Feld ist also:

String(0) = Das
String(1) = ist
String(2) = ein
String(3) = Satz
String(4) = mit
String(5) = Wörtern.

Also so, dass es nach jeden Leerzeichen (evtl. auch jedes CHR$(13) Zeichen) ein Array anlegt und und diesem ein Wort zuordnet. Die Wörter könnte ja man sicher mit irgendwie INSTR und MID$ Trennen, aber wie zum Teufel bring ich das in ein Feld...
Vieleicht ist es noch erwähnenswert, dass der String in meinem Fall max 119 Zeichen lang ist (aber natürlich auch weniger)...

Danke im vorraus

[SpionAtom]

Das ist gar nicht so schwer.

Zunächst brauchst du die Anzahl der Leerzeichen. Bei einem Satz mit 3 Leerzeichen sollte man meinen, dass es dort 4 Wörter gibt. (Überhaupt muss man hier von Leerzeichenausnahmen absehen.)

satz$ = "Dies ist ein Satz"

also erst mal ein Array mit 4 Feldern machen

DIM wort$(4)

Dann sollte so etwas in der Art folgen: Die Wörtersuche


w$ = ""
w% = 0
FOR i% = 1 TO LEN(satz$)
IF MID$(satz$, i%, 1) = " " THEN
w% = w% + 1
wort$(w%) = w$
ELSE
w$ = w$ + MID$(satz$, i%, 1)
NEXT i%

(nicht getestet, aber könnte klappen)

In der IF-Abfrage kann man das Trennzeichnen festlegen. Und solange, der Satz nicht mit einem Leerzeichen beginnt, oder sonstige Ausnamen vorhanden sind, sollte es klappen.
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht.

[Skilltronic]

Hallo

Das funktioniert. Ich hatte gerade ein identisches Programm geschrieben und getestet, war aber zu langsam... Deshalb möchte ich nur noch anmerken, dass 119 Zeichen durch 59 Leerstellen in maximal 60 Teile getrennt werden können.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[gandro]

danke, aber ich weiss lieder nicht, wieviele wörter bzw. leerzeichen in diesem String sein werden
Und nen Array mit 60 Feldern anlegen ist auch nicht das gelbe vom ei

PS: Mehrere Leerzeichen sollten wie eines behandelt werden, sonst gibt es wieder probleme

[Skilltronic]

Hallo

Das hier zählt die Worte auch bei mehreren Leerstellen richtig:

[gandro]

Hey, danke, das funktioniert ja schon sehr gut...

Hat aber jemand noch eine Idee, wie ich das Array verkleinern kann. 59 Felder fressen extrem viel Speicher...
Gibt es da keine schönere Möglichkeit?

[Skilltronic]

Hallo

Du kannst ja das passende Wort immer erst dann aus dem Satz herausschneiden, wenn du es brauchst ohne es in einem Array zwischenzuspeichern. Dann brauchst du dir höchstens jedesmal zu merken, wieviele Worte schon herausgelesen wurden und holst dir beim folgenden Durchlauf das nächste.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[Dusky_Joe]

Oder du legst das Array (per BSAVE?) in eine externe Datei ab.
So kannst du den Speicher anders nutzen, und musst nur kurz für einen Zugriff die Datei laden.
Wenn du aber ziemlich oft auf dein Array zugreifen musst/willst, ist das allerdings eine recht zeitfressende Methode...

Wenn dir wirklich der Speicher ausgehen sollte, versuchs doch einfach mit EMS! Der wird ja von QBX unterstützt! (oder wars XMS? Ich kann sowiso mit keinem von beiden arbeiten... Aber dein Speicherproblem wäre gelöst)
_________________
fully biological degradable

Once, the big wave arrives, you've got two ways, you can go:
Either, you ride it, or you don't do.
But, if you don't ride, you'll never know wether you'd have gone wet.

[dreael]

Ich hatte früher einmal einen Ersatz für split() geschrieben:

http://beilagen.dreael.ch/QB/SPLIT.BAS

Dieses Unterprogramm macht sonst das im Titel Verlangte.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[gandro]

Leider auch nicht genau das was ich wollte..


Wie müsste ich es denn per Funktion machen?
So das ich nen String und den Wert n, und ich erhalte als Rückgabewert das n. Wort von String...

[SpionAtom]

[gandro]

PERFEKT!

Danke vielmals, genau das, was ich wollte (war schon dabei eine eigene Funktion zu schreiben, aber hatte etliche Probleme damit)