Hallo Zusammen,
ich habe mir eine Funktion wie folgt geschrieben:
Code
%REM
Function tauscheSonderzeichen
Description: Zeichen austauschen um XML Notation einzuhalten
%END REM
Function TauscheSonderzeichen (orgStr As String) As Variant
Dim replaceStr(45) As String
Dim replaceWithStr(45) As String
replaceStr(0) = "ä"
replaceStr(1) = "Ä"
replaceStr(2) = "ö"
replaceStr(3) = "Ö"
replaceStr(4) = "ü"
replaceStr(5) = "Ü"
replaceStr(6) = "ß"
replaceStr(7) = "§"
replaceStr(8) = "À"
replaceStr(9) = "Á"
replaceStr(10) = "Ã"
replaceStr(11) = "Î"
replaceStr(12) = "Â"
replaceStr(13) = "È"
replaceStr(14) = "É"
replaceStr(15) = "Ê"
replaceStr(16) = "Ë"
replaceStr(17) = "Ì"
replaceStr(18) = "Í"
replaceStr(19) = "Ò"
replaceStr(20) = "Ó"
replaceStr(21) = "Ô"
replaceStr(22) = "Ù"
replaceStr(23) = "Ú"
replaceStr(24) = "Û"
replaceStr(25) = "Ý"
replaceStr(26) = "à"
replaceStr(27) = "á"
replaceStr(28) = "â"
replaceStr(29) = "è"
replaceStr(30) = "é"
replaceStr(31) = "ê"
replaceStr(32) = "ì"
replaceStr(33) = "í"
replaceStr(34) = "î"
replaceStr(35) = "ò"
replaceStr(36) = "ó"
replaceStr(37) = "ô"
replaceStr(38) = "ù"
replaceStr(39) = "ú"
replaceStr(40) = "û"
replaceStr(41) = "ý"
replaceStr(42) = "Ć"
replaceStr(43) = "ć"
replaceStr(44) = "Ĉ"
replaceStr(45) = "ĉ"
replaceWithStr(0) = "ä"
replaceWithStr(1) = "Ä"
replaceWithStr(2) = "ö"
replaceWithStr(3) = "Ö"
replaceWithStr(4) = "ü"
replaceWithStr(5) = "Ü"
replaceWithStr(6) = "ß"
replaceWithStr(7) = "§"
replaceWithStr(8) = "À"
replaceWithStr(9) = "Á"
replaceWithStr(10) = "Ã"
replaceWithStr(11) = "Î"
replaceWithStr(12) = "Â"
replaceWithStr(13) = "È"
replaceWithStr(14) = "É"
replaceWithStr(15) = "Ê"
replaceWithStr(16) = "Ë"
replaceWithStr(17) = "Ì"
replaceWithStr(18) = "Í"
replaceWithStr(19) = "Ò"
replaceWithStr(20) = "Ó"
replaceWithStr(21) = "Ô"
replaceWithStr(22) = "Ù"
replaceWithStr(23) = "Ú"
replaceWithStr(24) = "Û"
replaceWithStr(25) = "Ý"
replaceWithStr(26) = "à"
replaceWithStr(27) = "á"
replaceWithStr(28) = "â"
replaceWithStr(29) = "è"
replaceWithStr(30) = "é"
replaceWithStr(31) = "ê"
replaceWithStr(32) = "ì"
replaceWithStr(33) = "í"
replaceWithStr(34) = "î"
replaceWithStr(35) = "ò"
replaceWithStr(36) = "ó"
replaceWithStr(37) = "ô"
replaceWithStr(38) = "ù"
replaceWithStr(39) = "ú"
replaceWithStr(40) = "û"
replaceWithStr(41) = "ý"
replaceWithStr(42) = "j"
replaceWithStr(43) = "k"
replaceWithStr(44) = "l"
replaceWithStr(45) = "m"
On Error GoTo ErrHandler
orgStr=Replace(orgStr,replaceStr,replaceWithStr)
TauscheSonderzeichen=orgStr
ErrHandler:
Print |Error: XML Agent: TauscheSonderzeichen - |+Str(Err)
End Function
Alles anzeigen
Ich schicke anschließend jeden String der Sonderzeichen enthalten könnte in die Funktion, ist dies so aus Performance oder anderen Gründen falsch?