This is an old revision of the document!
Casted ein Unicode zurück in ein CHar. ZB. '\u20AC' → '€'
Funktion | Beschreibung |
---|---|
[VBA] char2Unicode() | Casted ein Charakter in ein Unicode. ZB. '€' → '\u20AC' |
[VBA] masked2unicode() | Wandelt alle mit \ maskierten Zeichen in einem String in unicode |
[VBA] unicode2char() | Casted ein Unicode zurück in ein CHar. ZB. '\u20AC' → '€' |
[VBA] unicodeDecode() | Wandelt alle mit Unicodes in einem String in Zeichen u |
print_r unicode2char("\u20AC") <String> '€' print_r unicode2char("\u002D") <String> '-' print_r unicode2char("\u0039") <String> '9'
'------------------------------------------------------------------------------- 'File : _cast_unicode2Char.bas ' Copyright mpl by ERB software ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/unicode2Char 'Environment : VBA 2007 + 'Version : 1.0 'Author : Stefan Erb (ERS) 'History : 29.04.2014 - ERS - Creation '------------------------------------------------------------------------------- Option Explicit '/** ' * Copyright mpl by ERB software | http://wiki.yaslaw.info ' * ' * Wandelt ein Unicode in ein Charakter ' * @example: unicode2char("\u20AC") -> '\€' ' * @param String Unicode ' * @return String Char ' */ Private Function unicode2Char(ByVal iUnicode As String) As String unicode2Char = ChrW(replace(iUnicode, "\u", "&h")) End Function