日期:2014-05-17 浏览次数:21213 次
Function UnEscape(ByVal str) Dim x, s x = InStr(str,"%") s = "" Do While x>0 s = s & Mid(str,1,x-1) If LCase(Mid(str,x+1,1))="u" Then s = s & ChrW(CLng("&H"&Mid(str,x+2,4))) str = Mid(str,x+6) Else s = s & Chr(CLng("&H"&Mid(str,x+1,2))) str = Mid(str,x+3) End If x=InStr(str,"%") Loop UnEscape = s & str End Function