vba:cast:char2unicode
Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision Next revision | Previous revision Last revision Both sides next revision | ||
|
vba:cast:char2unicode [08.05.2014 09:36:33] yaslaw |
vba:cast:char2unicode [08.05.2014 10:10:42] yaslaw [[VBA] char2Unicode()] |
||
|---|---|---|---|
| Line 2: | Line 2: | ||
| Casted ein Charakter in ein Unicode. ZB. '€' -> '\u20AC' | Casted ein Charakter in ein Unicode. ZB. '€' -> '\u20AC' | ||
| - | ===== Download ===== | + | Siehe auch [[vba:cast:unicode2char]] |
| - | <WRAP center round download 60%> | + | |
| - | {{:vba:cast:cast_char2Unicode.bas|Download cast_char2Unicode.bas}}</WRAP> | + | {{: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 ===== | ||
| <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 26: | 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.txt · Last modified: 31.08.2015 11:10:49 by yaslaw
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: GNU Free Documentation License 1.3
