function f_TextHtml(Str) '转换TextArea等文本字符的换行和空格 Str=replace(Str,chr(13)&chr(10),"<br>") Str=replace(Str,chr(10),"<br>") Str=replace(Str,chr(13),"<br>") Str=replace(Str," "," ") f_TextHtml=Str End function