View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Douglas Gennetten[_2_] Douglas Gennetten[_2_] is offline
external usenet poster
 
Posts: 3
Default 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