Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

UTF8Çü½ÄÀÇ Äڵ带 Çѱ۷Πº¯È¯ÇÏ´Â ¹æ¹ý?

0 views
Skip to first unread message

À̼ºÁØ

unread,
Nov 10, 2003, 10:16:37 PM11/10/03
to
À§ÀÇ Á¦¸ñ¿¡¼­ ó·³ UTF8·Î Àü´ÞµÇ¾îÁø °ªÀÌ StringÀ¸·Î ÀúÀå
µÇ¾îÁ® ÀÖÀ»¶§ À̸¦ ÇÑ±Û ÄÚµå·Î º¯È¯ÇÏ´Â ¹æ¹ýÀ» ¾Ë°í ½Í½À´Ï
´Ù. MSDN¿¡¼­ ¾Ë·ÁÁØ ¹æ¹ýÀ» ÀÀ¿ëÇÏ¿© ´Ù¸§ ó·³ ¸¸µé¾î º¸¾Ò
´Âµ¥... ¾ÈµÇ³×¿ä... ¹«½¼ ÀÌÀ¯¿¡¼­ ÀÎÁö´Â ¸ð¸£°ÚÁö¸¸ ¼Ò½º
¿Í º¯È¯ ½ºÆ®¸µÀÌ µ¿ÀÏÇϳ׿ä...
' Create two different encodings.
Dim KSC_Code As New UnicodeEncoding
Dim UTF_Code As New UTF8Encoding

KSC_Code.GetEncoding("ks_c_5601-1987")

' Convert the string into a byte[].
Dim asciicodeBytes As Byte() = KSC_Code.GetBytes
(bstrMsgText)

'Dim RepCodeBytes As Byte() = UTF_Code.Convert
(UTF_Code, KSC_Code, asciicodeBytes)
'Dim asciiString As String = KSC_Code.GetString
(RepCodeBytes)
'MessageBox.Show(asciiString)
Dim asciiChars(KSC_Code.GetCharCount
(asciicodeBytes, 0, asciicodeBytes.Length)) As Char
KSC_Code.GetChars(asciicodeBytes, 0,
asciicodeBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)

MessageBox.Show(asciiString)

David Jeong

unread,
Nov 28, 2003, 1:32:32 AM11/28/03
to
WideCharToMultiByte()¸¦ »ç¿ëÇϼż­ 949 codepage·Î º¯È­ÇÏ
¸é µË´Ï´Ù.

thanks,
david jeong
>-----¿øº» ¸Þ½ÃÁö-----
0 new messages