vba:cast:char2unicode
Differences
This shows you the differences between two versions of the page.
| Next revision | Previous revision | ||
|
vba:cast:char2unicode [08.05.2014 09:29:13] yaslaw created |
vba:cast:char2unicode [31.08.2015 11:10:49] (current) yaslaw |
||
|---|---|---|---|
| Line 2: | Line 2: | ||
| Casted ein Charakter in ein Unicode. ZB. '€' -> '\u20AC' | 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> | <code vb _cast_char2unicode.bas> | ||
| '------------------------------------------------------------------------------- | '------------------------------------------------------------------------------- | ||
| - | 'File : _cast_char2Unicode.bas | + | 'File : _cast_char2unicode.bas |
| ' Copyright mpl by ERB software | ' Copyright mpl by ERB software | ||
| ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/char2Unicode | ' http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/char2Unicode | ||
| Line 23: | Line 42: | ||
| ' * @return String Unicode | ' * @return String Unicode | ||
| ' */ | ' */ | ||
| - | Private Function char2Unicode(ByVal iChar As String) As String | + | Public Function char2Unicode(ByVal iChar As String) As String |
| char2Unicode = Hex(AscW(iChar)) 'Hex-Wert ermitteln | char2Unicode = Hex(AscW(iChar)) 'Hex-Wert ermitteln | ||
| char2Unicode = "\u" & String(4 - Len(char2Unicode), "0") & char2Unicode | char2Unicode = "\u" & String(4 - Len(char2Unicode), "0") & char2Unicode | ||
| End Function | End Function | ||
| </code> | </code> | ||
vba/cast/char2unicode.1399534153.txt.gz · Last modified: 08.05.2014 09:29:14 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
