日期:2014-05-17 浏览次数:21379 次
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