[VB6.0]UFT8 인코딩 소스

Private Function Utf82String(ByRef data() As Byte) As String 'UTF8 인코딩
Dim objStream
Dim strTmp As String
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Mode = 3
objStream.Type = 1
objStream.Open
objStream.Write data
objStream.Flush
objStream.Position = 0
objStream.Type = 2
strTmp = objStream.ReadText
objStream.Close
Set objStream = Nothing
Utf82String = strTmp
End Function


사용법

Utf82String(변환할것)