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] unicode2char() ======
Casted ein Unicode zurück in ein Char. ZB. '\u20AC' -> '€'

>Siehe auch [[vba:unicode]].

===== Beispiele =====
<code vb>print_r unicode2char("\u20AC")
<String> '€'

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

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

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

Yaslaw.Info

User Tools

Site Tools

Page Tools