excel汉字与url编码互转.docx

《excel汉字与url编码互转.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、汉字转为URL编码在excel中填加宏代码FunctionEncodeUrl_ANSI(sStr$)AsStringDimiAscii%,sEncode$,i&,sResult$Fori=1ToLen(sStr)sEncode=Mid$(sStr,i,1)iAscii=Asc(sEncode)SelectCaseiAsciiCase0To255'127'单字节SelectCasesEncodeCase"0"To"9","A"To"Z","a"To"z"',"-","_"'添加其他非转义字符'这些字符不进行转义。CaseElse'其他字

2、符都要转义。sEncode=Hex(iAscii)sEncode="%"&Right(sEncode,2)EndSelectCaseElse'双字节sEncode=Hex(iAscii)sEncode="%"&Left(sEncode,2)&"%"&Right(sEncode,2)EndSelectsResult=sResult&sEncodeNextEncodeUrl_ANSI=sResultEndFunction保存后，在表格中使用”=EncodeUrl_ANSI”调用。二、URL编码转汉字在excel宏加新建模块加代码：Functi

3、onURLDecode(strURL)DimiIfInStr(strURL,"%")=0ThenURLDecode=strURLExitFunctionEndIfFori=1ToLen(strURL)IfMid(strURL,i,1)="%"ThenIfCInt("&H"&Mid(strURL,i+1,2))>127ThenURLDecode=URLDecode&Chr(CInt("&H"&Mid(strURL,i+1,2)&Mid(strURL,i+4,2)))i=i+5ElseURLDecode=URLDecode&Chr(CInt(

4、"&H"&Mid(strURL,i+1,2)))i=i+2EndIfElseURLDecode=URLDecode&Mid(strURL,i,1)EndIfNextEndFunction在excel表格中调用”=URLDecode”就可以完全实现了。