转换html代码子程序

来源：互联网发布：java 半角转全角处理编辑：程序博客网时间：2024/04/20 17:45

?作者：
?

?? function htmlencode(str)
??? on error resume next
??? dim result
??? dim l
??? if isnull(str) then
?????? htmlencode=""
?????? exit function
??? end if

??? l=len(str)
??? result=""
dim i
for i = 1 to l
??? select case mid(str,i,1)
?????????? case "<"
??????????????? result=result+"<"
?????????? case ">"
??????????????? result=result+">"
?????????? case chr(34)
??????????????? result=result+"""
?????????? case "&"
??????????????? result=result+"&"
?????????? case chr(13)
??????????????? result=result+"
"
?????????? case chr(9)
??????????????? result=result+" "
?????????? case chr(32)???????????
??????????????? 'result=result+" "
??????????????? if i+1<=l and i-1>0 then
?????????????????? if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)? then??????????????????????
????????????????????? result=result+" "
?????????????????? else
????????????????????? result=result+" "
?????????????????? end if
??????????????? else
?????????????????? result=result+" "????????????????????
??????????????? end if
?????????? case else
??????????????? result=result+mid(str,i,1)
???????? end select
?????? next
?????? if err.number<>0 then err.clear
?????? htmlencode=result
?? end function