excel汉字与url编码互转

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

一、汉字转为URL编码在excel中填加宏代码FunctionEncodeUrl_ANSI(sStr$)AsStringDimiAscii%,sEncode$,i&,sResult$Fori=1ToLen(sStr)sEncode=Mid$(sStr,i,1)iAscii=Asc(sEncode)SelectCaseiAsciiCase0To255'127'单字节SelectCasesEncodeCase0To9,AToZ,aToz',-,_'添加其他非转义字符'这些字符不进行转义。CaseElse'其他字符都要转义。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宏加新建模块加代码:FunctionURLDecode(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(&H&Mid(strURL,i+1,2)))i=i+2EndIfElseURLDecode=URLDecode&Mid(strURL,i,1)EndIfNextEndFunction在excel表格中调用”=URLDecode”就可以完全实现了。

1 / 2
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功