|
alle öffnen alle schließen Nicht compiliert - . . geändert |
Umwandlung von UmlautenUMWANDLUNG VON UMLAUTENvon Rainer Becker Gelegentlich besteht die Notwendigkeit, alle Umlaute in einer Zeichenkette durch eine andere Schreibweise zu ersetzen. Dabei ist es natürlich sinnvoll, die Schreibweise beizubehalten. Ich verwende dafür folgende kurze Funktion: Function NoUmlaut Parameters cTemp If Upper(m.cTemp) = m.cTemp m.cTemp = strtran(m.cTemp,"Ä","AE") m.cTemp = strtran(m.cTemp,"ß","SS") *-- ditto für Ö und Ü Else m.cTemp = strtran(m.cTemp,"Ä","Ae") m.cTemp = strtran(m.cTemp,"ß","ss") m.cTemp = strtran(m.cTemp,"ä","ae") *-- ditto für ö,ü und Ö,Ü Endif Return m.cTemp Die Umwandlungen für die Buchstaben "ö" und "ü" in Großschreibung bzw. in beiden Schreibweisen müssen Sie natürlich noch eintragen. |
 |
||
