Function myReplace(myString)
myString=Replace(myString,"&","&") '替换&为字符实体&
myString=Replace(myString,"<","<") '替换<为字符实体<
myString=Replace(myString,">",">") '替换>为字符实体>
myString=Replace(myString,chr(13),"<br>") '替换回车符为换行标记<br>
myString=Replace(myString,chr(32)," ") '替换空格符为字符实体
myString=Replace(myString,chr(9)," ") '替换Tab缩进符为
myString=Replace(myString,chr(39),"´") '替换单引号为字符实体´
myString=Replace(myString,chr(34),""") '替换双引号为字符实体"
myReplace=myString '返回函数值
End Function
textarea内容显示回车符或别的过滤字符串
最新推荐文章于 2023-03-22 16:28:58 发布
本文介绍了一种用于处理文本输入的方法,通过使用VBA函数实现对特殊字符的转义处理,确保文本能在网页中安全显示。具体操作包括将特定字符转换为HTML实体,如&、<、>等,并处理换行和空格。
+++++++++++++++++++++++++++++++++++++textarea内容过滤字符串

2001

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



