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(변환할것)
'컴퓨터 > 비주얼베이직 6.0' 카테고리의 다른 글
Winhttp 웹 파싱 - 이거 보면 다 이해간다!! (0) | 2012.02.11 |
---|---|
[VB6.0]프로세스리스트를 불러오고 해당 프로세스를 종료하는 소스 (1) | 2012.01.30 |