假如取的数据放在content中,
content=Replace(content,chr(10),"<br>")
content=Replace(content,chr(13)&chr(10),"<p>")
content=Replace(content,chr(10)&chr(13),"</p>")
content=Replace(content,"
","&nbsp")
&nbsp代表空格。
加一个过滤Function text_chg(aBody)
text_chg = replace(aBody,"<","<")
text_chg = replace(text_chg,">",">")
text_chg = replace(text_chg,chr(39),"'")
text_chg = replace(text_chg,chr(34),""")
text_chg = replace(text_chg,chr(13)&chr(10),"<br>")
text_chg = replace(text_chg," "," ")
text_chg = trim(text_chg)
text_chg = replace(text_chg," "," ")
End Function
这个函数就可以,怎么使用不用我说了吧
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)