====== [VBA] char2Unicode() ======
Casted ein Charakter in ein Unicode. ZB. '€' -> '\u20AC'
>Siehe auch [[vba:unicode]].
{{:vba:cast:cast_char2Unicode.bas|Download cast_char2Unicode.bas}}
===== Beispiel =====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]]
print_r char2Unicode("€")
'\u20AC'
print_r char2Unicode("-")
'\u002D'
'Es wird nur das erste Zeichen übersetzt
print_r char2Unicode("-123")
'\u002D'
print_r char2Unicode(9)
'\u0039'
===== Code =====
'-------------------------------------------------------------------------------
'File : _cast_char2unicode.bas
' Copyright mpl by ERB software
' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/char2Unicode
'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 Charakter in ein Unicode
' * @example: char2unicode("€") -> '\u20AC'
' * @param String(1) Charakter, der gewandelt werden soll
' * @return String Unicode
' */
Public Function char2Unicode(ByVal iChar As String) As String
char2Unicode = Hex(AscW(iChar)) 'Hex-Wert ermitteln
char2Unicode = "\u" & String(4 - Len(char2Unicode), "0") & char2Unicode
End Function