How to pars non-ascii (e.g Korean) strings? -- Double-Byte Equivalents to Ascii Functions????
make that "parse" :-|
What are the double-byte equivalents of these ascii functions?
---
I created the following function to do this conversion by pulling out one
character at a time from the string and doing an operation on that
character
to get the ascii equivalent.
Function HEXEDASCII(asciiString As String) As String
Const COMMA As String = ","
Dim i As Long
Dim sOut As String
For i = 1 To Len(asciiString)
If ((i - 1) Mod 8 = 0) Then sOut = sOut & vbCrLf & " "
sOut = sOut & "0x" & _
Right("0000" & Hex(Asc(Mid(asciiString, i, 1))), 4) _
& COMMA & " "
Next i
HEXEDASCII = sOut & "0" & vbCrLf
End Function
|