How can I get the unicode value of a char?
For example, I know that I can do this with ascii:
i = Asc("a") // i == 97 (correct)
What if I have a unicode char though?
i = Asc("•") // i == 149 (incorrect... should return 8226)
Obviously the second example doesn't work since that character is not in the Ascii set. Is there an e开发者_StackOverflow社区quivalent function that I can use which will return 8226
instead of the incorrect result 149
?
I'm doing this in Outlook 2003, if that makes any difference.
What about AscW ?
The answer provided by RC. helped me a lot but I had issues with the AscW()
function sometimes returning negative values.
In my case the problem appeared when working with Chinese characters.
I found a work around on the web:
Function CharToUnicode(strChar As String)
Dim lngUnicode As Long
lngUnicode = AscW(strChar)
If lngUnicode < 0 Then
lngUnicode = 65536 + lngUnicode
End If
CharToUnicode = lngUnicode
End Function
精彩评论