VB에서 UTF8-유니코드 인코딩

  
  
  
  

   
   
   
   
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long 
   
   
   
   
Private Const CP_UTF8 = 65001  
   
   
   
   
 
   
   
   
   
'Purpose:Convert Utf8 to Unicode  
   
   
   
   
Public Function UTF8_Decode(ByVal sUTF8 As String) As String 
   
   
   
   
   Dim lngUtf8Size      As Long 
   
   
   
   
   Dim strBuffer        As String 
   
   
   
   
   Dim lngBufferSize    As Long 
   
   
   
   
   Dim lngResult        As Long 
   
   
   
   
   Dim bytUtf8()        As Byte 
   
   
   
   
   Dim n                As Long 
   
   
   
   
   If LenB(sUTF8) = 0 Then Exit Function 
   
   
   
   
      On Error GoTo EndFunction  
   
   
   
   
      bytUtf8 = StrConv(sUTF8, vbFromUnicode)  
   
   
   
   
      lngUtf8Size = UBound(bytUtf8) + 1  
   
   
   
   
      On Error GoTo 0  
   
   
   
   
      lngBufferSize = lngUtf8Size * 2  
   
   
   
   
      strBuffer = String$(lngBufferSize, vbNullChar)  
   
   
   
   
      'Translate using code page 65001(UTF-8)  
   
   
   
   
      lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _  
   
   
   
   
         lngUtf8Size, StrPtr(strBuffer), lngBufferSize)  
   
   
   
   
      'Trim result to actual length  
   
   
   
   
      If lngResult Then 
   
   
   
   
         UTF8_Decode = Left$(strBuffer, lngResult)  
   
   
   
   
      End If 
   
   
   
   
End Function 
  
  
  
  

 
위에서 얻은 내용을 돌리면 됩니다. 예를 들어 Text 1.Text=UTF8_Decode(str Response)는 Instr(1,str Response, "charset=utf-8") > 0을 추가하여 UTF8 인코딩이 실행되는지 판단할 수 있으며, UTF8이 아니면 바로 표시할 수 있다.Instr (1,str Response, "charset=UTF-8") > 0으로 대문자로 된 페이지 인코딩도 있습니다.