Wie oft kommt ein bestimmtes Wort im Memo vor?!

[BlueBeer]

Hey,

hab leider noch nicht so viel ahnung und hab mir ein kleines Tool geschrieben um
mir ein wenig arbeit zu ersparen... funktioniert auch eigentlich ganz prima nur
um es noch ein wenig zu verbessern würde ich gern bestimmte Wörter in einem Memo
zählen und mir die Anzahl ausgeben lassen...

Wie mach ich das am besten?
Bin für jeden Tipp oder Hinweis dankbar!

Grüüße!

[Nicodius]

such mal hier unter "pos"

aja herzlich willkommen -

[BlueBeer]

is mir auch shcon in den sinn gekommen

hatte nur noch nicht gefunden wie das ganze damit umgeht wenn ein wort öfters vorkommt...

[TeronG]

Zitat von Nicodius:

such mal hier unter "pos"

bzw. PosEx

[Dale]

Hallo,

ich denke die Lösung für dein Problem findet sich in der CodeLib:

Hier

Dale grüßt

[himitsu]

Jupp, und wenn man mal alle Tipps zusammenlegt und nach [cl]pos posex count*[/cl] in der CodeLib sucht, dann kommt sogar Nocheiner zum Vorschein

[TeronG]

WOW soo viel asm
Ich dachte an ne einfache "WHILE posex > 0" Schleife ...

[marlem]

naja, der code hat mit delphi sehr wenig zu tun
ist wohl so eine art assembler!
ne schleife geht natürlich!
memofeldinhalt auf einen string speichern, im string mit while length(string) > 0 und pos nach dem wort suchen. wenn gefunden hochzählen und ganz wichtig: gefundenes wort löschen!

[TeronG]

Zitat von marlem:

naja, der code hat mit delphi sehr wenig zu tun
ist wohl so eine art assembler!

Zitat von TeronG:

WOW soo viel asm

Zitat von marlem:

memofeldinhalt auf einen string speichern, im string mit while length(string) > 0 und pos nach dem wort suchen. wenn gefunden hochzählen und ganz wichtig: gefundenes wort löschen!

?? hä warum denn das?
Memoinhalt gibbet schon als fertigen string ... memo1.text
und warum "while length(string) > 0" und pos
ok. .. wenn du das mit Pos machst macht das Kopieren und löschen wieder sinn
Allerdings wird der string nie Length = 0 wenn du nur die gefundenen Wörter löscht

Ich hätte einfach (s.o.) mit while posex() gearbeitet .. bei fund des Suchstrings (result > 0) einfach inc(anzahl) und fundstelle+1 (für neuen durchlauf) gemerkt...

nagut
Himitsu's ASM ist bestimmt Performanter und so ..

[marlem]

Zitat:

Allerdings wird der string nie Length = 0 wenn du nur die gefundenen Wörter löscht

hast selbstverständlich recht!
muss while pos ... > 0 heißen!!!