Danke vielmals. Ich muss mir das morgen nochmals vornehmen.
Übrigens sollen fälschlicherweise klein geschriebene Hauptwörter
ausfindig gemacht werden, also "möglichkeit".
Das Programm korrigiert mir eingescannte Texte.
Ein schönen Abend
Robert
Am 25.03.2009 um 17:49 schrieb Christian Dorn:
Ich dachte, dass RB intern sowieso mit UTF8 arbeitet?
Tut es auch, aber abhängig davon, woher der zu durchsuchende Text
stammt (z. B. aus einer Datei) kann dieser auch eine andere
Kodierung haben.
Ich habe Dein Suchmuster mal mit dem Text "Dies wäre eine
Möglichkeit." getestet (Rb 2009.1, Intel-iMac). Als Ergebnis
erhalte ich " Möglichkeit.", also das, was Du erreichen willst.
dim reg as new RegEx
dim match as RegExMatch
dim searchText, matchText as String
reg.SearchPattern = "(\x20|\x09|\x0D)([a-zäöüß]{2,28})(ung|heit|
keit|tion|schaft)(en)?(\x20|\x2C|\x2E|\x3A|\x3B)"
searchText = "Dies wäre eine Möglichkeit."
match = reg.search(searchText)
if match <> nil then
matchText = match.SubExpressionString(0)
end if
break
Gruß
Christian
----------------------------------------
Christian Dorn
realbasic {a} online.de
REALbasic 2008.5-1 Pro
REALbasic 2009.1 Pro
iMac 3.06 GHz Intel Core 2 Duo, 4 GB RAM
PowerMac G5 2x2GHz, 1.5 GB RAM
Mac OS X 10.5.6
----------------------------------------
