태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

출처 : http://www.cftea.com/c/2009/10/OOXX97QIONHANAF9.asp

 ' Encode된 한글 파일을 Decode해 주는 함수 
 Function UrlDecode(ByVal str)
  Dim B,ub   
  Dim UtfB   
  Dim UtfB1, UtfB2, UtfB3
  Dim i, n, s
  n=0
  ub=0
  For i = 1 To Len(str)
   B=Mid(str, i, 1)
   Select Case B
    Case "+"
     s=s & " "
    Case "%"
     ub=Mid(str, i + 1, 2)
     UtfB = CInt("&H" & ub)
     If UtfB<128 Then
      i=i+2
      s=s & ChrW(UtfB)
     Else
      UtfB1=(UtfB And &H0F) * &H1000   
      UtfB2=(CInt("&H" & Mid(str, i + 4, 2)) And &H3F) * &H40
      UtfB3=CInt("&H" & Mid(str, i + 7, 2)) And &H3F  
      s=s & ChrW(UtfB1 Or UtfB2 Or UtfB3)
      i=i+8
     End If
    Case Else
     s=s & B
   End Select
  Next
  UrlDecode = s
 End Function

블로그 이미지

구본숭 하늘을사랑한사람

진실된 사람으로 태어 나기 위한 조건들, 사랑하기 위해 필요한 것을 찾습니다.