代碼如下：
復制代碼 代碼如下:
Function ReplaceEx(strOri,replStr)
Set regEx=New RegExp
regEx.Global=True
regEx.MultiLine=True
regEx.Pattern="\r\n"
regEx.IgnoreCase=True
ReplaceEx=regEx.Replace(strOri,replStr)
End Function
shuoming=replace(rs("shuoming")," "," ")
shuoming=ReplaceEx(shuoming,"<br>")
這樣替換以後再輸出就不會出現錯誤了！我處理的時候使用replace函數替換空格可以，但是替換回車換行始終不行，只有求助於正則表達式了！！
