Function myReplace(myString)
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<
myString=Replace(myString,">",">") '替换>
myString=Replace(myString,chr(13),"<br>") '替换回车符
myString=Replace(myString,chr(32)," ") '替换空格符
myString=Replace(myString,chr(9)," ") '替换Tab缩进符
myReplace=myString '返回函数值
End Function
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<
myString=Replace(myString,">",">") '替换>
myString=Replace(myString,chr(13),"<br>") '替换回车符
myString=Replace(myString,chr(32)," ") '替换空格符
myString=Replace(myString,chr(9)," ") '替换Tab缩进符
myReplace=myString '返回函数值
End Function
文本转换函数详解
本文介绍了一个用于文本转换的函数,该函数能够将特定字符转换为其对应的HTML实体,例如将'&'转换为'&','<''转换为'<'等。此外,它还能将换行符、空格及Tab键替换为HTML中的相应标记,适用于网页显示的文本预处理。

被折叠的 条评论
为什么被折叠?



