Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== [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:]]
<code vb>print_r char2Unicode("€")
<String> '\u20AC'

print_r char2Unicode("-")
<String> '\u002D'

'Es wird nur das erste Zeichen übersetzt
print_r char2Unicode("-123")
<String> '\u002D'

print_r char2Unicode(9)
<String> '\u0039'
</code>

===== Code =====
<code vb _cast_char2unicode.bas>
'-------------------------------------------------------------------------------
'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
</code>
Yaslaw.Info

User Tools

Site Tools

Page Tools
