编码解码相关函数汇总

Quote-printable解码函数

Public Function QPUncode(sIn)
 Dim s,i,l,c,t,n : s="" : l=Len(sIn)
 'sIn=Replace(sIn,"=","%")
 For i=1 To l
  c=Mid(sIn,i,1)
  If c<>"=" Then
   s = s & c
  Else
   c=Mid(sIn,i+1,2) : i=i+2 : t=CInt("&H" & c)
   If t<&H80 Then
    s=s & Chr(t)
   Else
    c=Mid(sIn,i+1,3)
    If Left(c,1)<>"=" Then
     URLDecoding=s
     Exit Function
    Else
     c=Right(c,2) : n=CInt("&H" & c)
     t=t*256+n-65536
     s = s & Chr(t) : i=i+3
    End If
   End If
  End If
 Next
 QPUncode=s
End Function

***************************************************************