Domino 9 und frühere Versionen > Entwicklung

String nach Sonderzeichen durchsuchen!

<< < (2/2)

eknori:
So, nach dem Schnellschuss von gestern abend ( und einer guten Flasche Wein ) hier eine etwas professionellere Lösung

Function KillUmlaute ( s As String ) As String
     strformula = { @ReplaceSubString("} + s + {"; "ä":"ö":"ü":"ß":"Ä":"Ö":"Ü"; "ae":"oe":"ue":"ss":"Ae":"Oe":"Ue" ) }
     nStr = Evaluate( strformula )
     KillUmlaute = nstr(0)
End Function

Und zum Testen folgender Aufruf

Sub Click(Source As Button)
     Dim s As String
     s="ä ü ö ß Ä Ü Ö "
     Msgbox KillUmlaute(s)
End Sub

eknori

Christopher:
Hallo Eknori,

ich fand die Lösung von gestern shon sehr professionel aber das ist noch besser schneller und kleiner.  ;D ;D

Vielen Dank

Christopher

Felix:
Hallo ihr zwei,

das habe ich dazu gefunden:

_domain := "@mydomain.de";
_firstname := @Left(@ReplaceSubString(Firstname;"Ä":"Ö":"Ü":"ä":"ö":"ü":"ß";"Ae":"Oe":"Ue":"ae":"oe":"ue":"ss");3);
_lastname := @Left(@ReplaceSubString(Lastname;"Ä":"Ö":"Ü":"ä":"ö":"ü":"ß";"Ae":"Oe":"Ue":"ae":"oe":"ue":"ss");4);
FIELD InternetAddress := _firstname+_lastname+_domain;


wie man(n) sieht wird diese Formel zum konvertieren
von Namen benutzt.

Vieleicht hifts ja weiter

Felix

eknori:
Klasse, aber Christopher wollte eine Script Lösung  ;D

Felix:
endschuldigung,   ;D

wer lesen kann ist klar im Vorteil  ;D ;) ;D

Felix

Navigation

[0] Themen-Index

[*] Vorherige Sete