Domino 9 und frühere Versionen > ND7: Entwicklung

Konvertierung von Zeichenketten in Sonderzeichen

<< < (2/2)

Jens_1:
Hallo NG,

und so habe ich das ganz nun in den Griff gekriegt:


--- Code: ---Function Translate (incoming As String) As String
Dim array1(0) As String
Dim array2(6) As String
Dim array3(6) As String
Dim ret As Variant

array1(0) = incoming

array2(0) = "ä"
array2(1) = "Ä"
array2(2) = "ö"
array2(3) = "Ö"
array2(4) = "ü"
array2(5) = "Ü"
array2(6) = "ß"

array3(0) = "ä"
array3(1) = "Ä"
array3(2) = "ö"
array3(3) = "Ö"
array3(4) = "ü"
array3(5) = "Ü"
array3(6) = "ß"



ret = Replace(array1, array2, array3)
For x = 0 To 0
translate = ret(0)
Nextl

End Function
--- Ende Code ---

Vielenb Dank nochmal für den Klaps auf den Hinterkopf ;)

Gruß
Jens

Navigation

[0] Themen-Index

[*] Vorherige Sete