[VB6 Source code] Utf82String 함수

Private Function Utf82String(ByRef data() As Byte) As String

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

UTF-8 형식으로 된 사이트를 파싱해서 정보를 가져올때 사용하는 함수입니다.