Ersetzen von Umlauten bei groß geschriebenen Wörtern

[Ackerjan]

Ich suche nach dem richtigen Ansatz für das folgende Problem. Ich habe einen Text, in dem bewusst einige Wörter in Großbuchstaben geschrieben werden. Nun müssen die Umlaute aus dem Text ersetzt werden. Dafür verwende ich die angegebene Funktion.

In Österreich wird kein SÜßHOLZ hergestellt.

Code:

function OhneUmlaute(_string: String): String;
begin
    _string := ansiReplaceStr(_string, 'ä', 'ae');
    _string := ansiReplaceStr(_string, 'ü', 'ue');
    _string := ansiReplaceStr(_string, 'ö', 'oe');
    _string := ansiReplaceStr(_string, 'Ä', 'Ae');
    _string := ansiReplaceStr(_string, 'Ü', 'Ue');
    _string := ansiReplaceStr(_string, 'Ö', 'Oe');
    _string := ansiReplaceStr(_string, 'ß', 'ss');
    Result := _string;
end;

In Oesterreich wird kein SUessHOLZ hergestellt.

Gewünscht wird allerdings der folgende Text

In Oesterreich wird kein SUESSHOLZ hergestellt.

Mein erster Ansatz wäre, den Text von vorne nach hinten durchzugehen und für Ä,Ü,Ö,ß zu prüfen ob das Zeichen davor Groß ist, dann ersetze zu AE,UE,OE,SS. Ist der Buchstabe davor nicht vorhanden oder ist es kein Buchstabe dann prüfe den Buchstaben danach und ersetzte entsprechend.

Hat da jemand einen besseren Ansatz?
Vielleicht mit regulären Ausdrücken?
Gibt es da schon was?

[mkinzler]

Unter welcher Bedingung soll das Wort kapital dargestellt werden?

[Ackerjan]

Es gibt keine Bedingung für die kapital geschrieben Wörter. Der Ausgangstext gibt die Bedingung implizit mit. So kann der Ausgangstext auch so heißen:

In ÖSTERREICH wird kein Süßholz hergestellt.

und müsste in

In OESTERREICH wird kein Sueßholz hergestellt.

umgewandelt werden.

[baumina]

Zitat:

Zitat von mkinzler (Beitrag 1288549)

Unter welcher Bedingung soll das Wort kapital dargestellt werden?

Wenn das Wort UpperCase ist, dann soll es wohl auch so bleiben.

[himitsu]

Dann muß man also das Wort vorher extrahieren und prüfen ob es kapital ist (

Delphi-Quellcode:

if Wort = AnsiUpperCase(Wort) then

)
und dann eine entsprechende Ersetzungsfunktion benutzen.

Oder ganz einfach: Wenn Großbuchstabe nicht am Wortanfang steht oder wenn er direkt oder indirekt (wegen ß, was es aktuell nicht in Groß gibt) von einem Großbuchstaben gefolgt wird, dann bleibt er groß.
Für RegEx lassen sich solche einfachen Regeln leicht mittels Look-Ahead- und Look-Behind-Befehlen (Look-Around) umsetzen.


http://www.delphipraxis.net/183730-t...ml#post1288522
http://stackoverflow.com/questions/1...ns-editpad-pro
http://www.regular-expressions.info/replacecase.html

[p80286]

Zitat:

Zitat von himitsu (Beitrag 1288552)

Oder ganz einfach: Wenn Großbuchstabe nicht am Wortanfang steht oder wenn er direkt oder indirekt (wegen ß, was es aktuell nicht in Groß gibt) von einem Großbuchstaben gefolgt wird, dann bleibt er groß.

Das ist ja nicht so ganz richtig:
http://de.wikipedia.org/wiki/Gro%C3%9Fes_%C3%9F
http://www.fileformat.info/info/unic...1e9e/index.htm

Und nochmal zur Erinnerung
ä<>ae,ü<>ue.... In Gegenden in denen noch Niederdeutsch gesprochen wird, sind z.B. Ortsnahmen oder Familiennamen mit oe gang und gäbe, und das wird dann o: oder u: gesprochen und nicht ö !

Seit wann gibt es eigentlich ASCIIextended oder ANSIextended, ganz zu schweigen von UTF-8 oder Unicode, daß immer noch diese unsäglichen ae,oe und vor allem ss-Krücken genutzt werden. Das ß ist ein eSZett und kein DoppelS. Wenn schon "daß" ersetzt werden soll, dann durch "dasz" und nicht "dass".

Gruß
K-H

[Jasocul]

Zitat:

Zitat von Ackerjan (Beitrag 1288547)

Mein erster Ansatz wäre, den Text von vorne nach hinten durchzugehen und für Ä,Ü,Ö,ß zu prüfen ob das Zeichen davor Groß ist, dann ersetze zu AE,UE,OE,SS. Ist der Buchstabe davor nicht vorhanden oder ist es kein Buchstabe dann prüfe den Buchstaben danach und ersetzte entsprechend.

Prüfe den Folgebuchstaben zuerst. Ist der groß geschrieben, dann ist auch der auszutauschende Buchstabe groß zu schreiben. Gibt es keinen Folgebuchstaben, kannst du den vorherigen Buchstaben entsprechend prüfen. Diese Prüfreihenfolge ist sicherer, da Substantive oder Wörter am Satzanfang große Anfangsbuchstaben haben.
Bei Wörtern mit zwei Buchstaben, wird die Prüfung nicht funktionieren. Aber auf Anhieb fällt mir kein Beispiel dazu ein.

[himitsu]

"aktuell nicht" :zwinker:

Vielleicht schafft das große ß es ja im nächsten Jahrtausend in die "offizielle" deutsche Sprache. :stupid:

Zitat:

SO IN UM AN

[BadenPower]

Zitat:

Zitat von Jasocul (Beitrag 1288568)

Aber auf Anhieb fällt mir kein Beispiel dazu ein.

Öl

Öl in das Feuer zu gießen, ist KEINE gute Idee.

[Jasocul]

Zitat:

Zitat von himitsu (Beitrag 1288569)

Zitat:

SO IN UM AN

Ich sehe da keine Sonderzeichen. :?
Oder habe ich das jetzt alles falsch verstanden? ;)