lark.com

火鸟乐园——生活在.net时代

:: :: :: ::

替换空格合回车符号的函数

Posted on 2005-06-13 20:27 火鸟阅读(757) 评论(0) 收藏举报

function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), "  ")
End Function

刷新页面返回顶部