====== [VBA] unicode2char() ======
Casted ein Unicode zurück in ein Char. ZB. '\u20AC' -> '€'
>Siehe auch [[vba:unicode]].
===== Beispiele =====
print_r unicode2char("\u20AC")
'€'
print_r unicode2char("\u002D")
'-'
print_r unicode2char("\u0039")
'9'
===== Code =====
'-------------------------------------------------------------------------------
'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