$x=UrlEnc('上海')
MsgBox(32,"上海",$x)
MsgBox(32,"上海",UrlDec($x))
Func UrlEnc($Sz_url)
Local $str=StringTrimLeft(StringToBinary($Sz_url,4),2)
Local $ret
For $i=1 to StringLen($str) Step 2
$ret &='%' & StringMid($str,$i,2)
Next
Return $ret
EndFunc
Func UrlDec($Sz_url)
Local $str='0x' & StringReplace($Sz_url,"%","")
Local $ret=BinaryToString($str,4)
Return $ret
EndFunc
原帖由 thesnow 于 2008-12-11 12:49 发表
[au3]$x=UrlEnc('上海')
MsgBox(32,"上海",$x)
MsgBox(32,"上海",UrlDec($x))
Func UrlEnc($Sz_url)
Local $str=StringTrimLeft(StringToBinary($Sz_url,4),2)
Local $ret
For $i=1 t ...